EOF İşlevi

Not: En güncel yardım içeriklerini, mümkün olduğunca hızlı biçimde kendi dilinizde size sunmak için çalışıyoruz. Bu sayfanın çevirisi otomasyon aracılığıyla yapılmıştır ve bu nedenle hatalı veya yanlış dil bilgisi kullanımları içerebilir. Amacımız, bu içeriğin sizin için faydalı olabilmesini sağlamaktır. Buradaki bilgilerin faydalı olup olmadığını bu sayfanın sonunda bize bildirebilir misiniz? Kolayca başvurabilmek için İngilizce makaleye 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.

Bir dosyanın sonuna için rasgele açıldığında veya sıralı Giriş ulaşıldı doğruBoole değerini içeren bir tamsayı döndürür.

Söz dizimi

EOF ( filenumber )

Gerekli filenumberbağımsız değişken geçerli herhangi bir dosya numarasıiçeren bir Tamsayı olur.

Notlar

EOF dosya sonunun girişi çalışılıyor tarafından üretilen hata önlemek için kullanın.

Dosya sonuna gelinceye kadar EOF işlevi False döndürür. Rasgele veya ikili erişim için açılmış dosyalarıyla alma bildirimi son yürütülen kadar yanlış tüm kayıt okuyamıyor EOF 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. Çıktıiçin açılan dosyalarıyla EOF her zaman Truedö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 örnekte, bir dosyanın sonuna saptamak için EOF işlevi kullanılmaktadır. Bu örnekte, birkaç satırlık metin içeren bir metin dosyası o MYFILE 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
Office 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.

×