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 olmayabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için, Yardım'da "korumalı alan modu" araması yapın.
Rastgele veya sıralı Giriş için açılan bir dosyanın sonuna ulaşıldığında Doğru Boole değerini içeren bir Tamsayı döndürür.
Söz dizimi
EOF(dosyanumarası)
Gerekli dosya numarasıbağımsız değişkeni, geçerli herhangi bir dosya numarası içeren bir Tamsayıdır.
Açıklamalar
Dosyanın sonundan sonra giriş almaya çalışmanın sonucunda oluşan hatadan kaçınmak için EOF'yi kullanın.
EOF işlevi, dosyanın sonuna erişilene kadar False döndürür. Dosyalar Rastgele veya İkili erişim için açıldığında, EOF, yürütülen son Get deyimi tüm kaydı okuyamayana kadar False 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. Input ile ikili dosyaları okurken EOF yerine LOF ve Loc işlevlerini kullanın veya EOF işlevini kullanırken Get kullanın. Çıktı için dosyalar açıldığında, EOF her zaman True döndürür.
Ö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 örnek, bir dosyanın sonunu algılamak için EOF işlevini kullanır. Bu örnekte, birkaç MYFILE satır metin içeren bir metin dosyası olduğu varsayılmıştır.
Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1