EOF Açıklaması
Bir dosyanın sonuna ulaşılıp ulaşılmadığını gösteren değeri döndürür (Boolean).
EOF Sözdizimi
VBA Düzenleyicide, EOF İşlevinin sözdizimini görmek için “EOF(” yazabilirsiniz:
EOF işlevi bir argüman içerir:
Dosya numarası: Herhangi bir geçerli dosya numarası.
Excel VBA EOF İşlevi Örnekleri
EOF işlevini test etmek için, D sürücüsünde bir “test.txt” metin dosyası oluşturun.(D:\test.txt) Dosyanın içeriğinin aşağıdaki gibi olduğunu varsayın.
123 | ABC1 2 3xy z |
Lütfen aşağıdaki kodu çalıştırın.
1234567891011 | Alt Giriş_Fx_Örnek()Dize Olarak strContent'i DimMyChar'ı karartGiriş için "D:\test.txt" dosyasını açın #1 ' Dosyayı açın.Do while Not Not EOF(1) ' Dosyanın sonuna kadar döngü yapın.MyChar = Input(1, #1) ' Bir karakter al.strContent = strContent ve MyChar 'DöngüMsgBox strİçeriğiKapat #1 'Dosyayı kapat.Alt Bitiş |
O zaman sonuç aşağıdaki gibi olacaktır.
Burada, bir dosyanın sonuna ulaşıldığını belirlemek için EOF işlevi kullanılır.