Input İşlevi

Önemli : Bu makale makine çevisidir. Bkz. yasal uyarı. Bu makalenin İngilizce sürümüne buradan ulaşabilirsiniz.

Not : Microsoft Jet ifade hizmeti güvenli olmayabilecek deyimleri engeller korumalı alan modunda çalışıyorsa işlevi, yöntemi, nesne veya bu konuda açıklanan özelliğini devre dışı bırakılır. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu için" arayın.

Giriş veya ikili modunda açılan bir dosyadan karakterleri içeren bir dize döndürür.

Söz dizimi

Giriş ( sayı, [# ] filenumber)

Giriş işlevinin söz diziminde aşağıdaki bağımsız değişkenler bulunur:

Bağımsız Değişken

Açıklama

sayı

Gerekli. Döndürülecek karakter sayısını belirten herhangi bir geçerli sayısal ifade .

filenumber

Gerekli. Herhangi bir geçerli dosya numarası.


Notlar

Veri girişi işlevle okumak genellikle yazdırma # veya koymadosyasıyla yazılır. Giriş veya ikili modunda açılmış dosyaları bu işlevi kullanın.

Giriş # deyimi farklı olarak, Giriş işlevi bunu, virgül, Satır başları, satır beslemeler, tırnak işaretleri ve Öndeki boşluklar dahil olmak üzere okur tüm karakterleri verir.

İkili erişim için açılmış dosyalarıyla EOFTrue döndürür kadar Giriş işlevini kullanarak dosyayı okuma girişimi bir hata oluşturur. LOF ve Loc işlevleri EOF yerine Girişikili dosyalarıyla okurken veya almaEOF işlevi kullanıldığında kullanın.

Not : Metin dosyaları içinde yer alan bayt veri için InputB işlevini kullanın. InputBile döndürülecek karakter sayısı yerine bayt sayısını belirtir.

Örnek

Not : Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.

Bu örnekte, bir dosyadan bir kerede bir karakter okuyun ve hemen penceresine yazdırmak için Giriş işlevi kullanılmaktadır. Bu örnekte, o TESTFILE birkaç örnek veri satırlarını içeren bir metin dosyası olduğu varsayılır.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.

Not : Makine Çevirisi Yasal Uyarısı: Bu makale, insan müdahalesi olmadan bir bilgisayar sistemi tarafından çevrilmiştir. Microsoft bu makine çevirilerini İngilizce bilmeyen kullanıcıların Microsoft ürünleri, hizmetleri ve teknolojileriyle ilgili içeriklerden yararlanmasına yardımcı olmak için sunar. Bu makale makine çevirisi olduğundan sözcük, cümle dizilimi ve gramer hataları içerebilir.

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Office Insider Programına Katılın

Bu bilgi yararlı oldu mu?

Görüşleriniz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×