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.
Rastgele veya sıralı Giriş için açılan bir dosyanın sonuna ulaşıldığında TrueBoole değerini içeren bir Tamsayı döndürür.
Söz dizimi
EOF( dosyasayısı )
Gerekli dosyasayısıbağımsız değişken geçerli dosya numarası içeren bir Tamsayıdır .
Açıklamalar
Bir dosyanın sonundan giriş almaya çalışarak oluşturulan hatadan kaçınmak için EOF kullanın.
EOF işlevi, dosyanın sonuna ulaşılana kadar False döndürür. Dosyalar Rastgele veya İkili erişim için açıldığında, son yürütülen Get deyimi kaydın tamamını okuyamayana kadar EOFFalse 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. Çıktı için açılan dosyalar ile 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, MYFILE birkaç satırlık metin içeren bir metin dosyası olduğu varsayılı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
