Not: Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu" araması yapın.
Giriş veya İkili modunda açılan bir dosyadaki karakterleri içeren Dize döndürür.
Söz dizimi
Input( number, [# ] filenumber)
Input işlevinin söz diziminde şu 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 geçerli sayısal ifade. |
|
dosyasayısı |
Gerekli. Geçerli herhangi bir dosya numarası. |
Notlar
Input işleviyle okunan veriler genellikle Yazdır # veya Koy ile bir dosyaya yazılır. Bu işlevi yalnızca Giriş veya İkili modunda açılmış dosyalarla kullanın.
Input # deyiminden farklı olarak, Input işlevi virgüller, satır başı, satır beslemeleri, tırnak işaretleri ve baştaki boşluklar da dahil olmak üzere okuduğu tüm karakterleri döndürür.
dosyalar İkili erişim için açıldığında, EOFTrue döndürene kadar Input işlevini kullanarak dosyayı okuma girişimi bir hata oluşturur. Giriş ile ikili dosyaları okurken EOF yerine LOF ve Loc işlevlerini kullanın veya EOF işlevini kullanırken Get kullanın.
Not: Metin dosyalarının içinde yer alan bayt verileri için InputB işlevini kullanın. InputB ile sayı, döndürülecek karakter sayısı yerine döndürülecek 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 okumak ve Bunu Anında penceresine yazdırmak için Input işlevi kullanılır. Bu örnekte, TESTFILE birkaç satır örnek veri içeren bir metin dosyası olduğu varsayılır.
Dim MyCharOpen "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.LoopClose #1 ' Close file.
