Fungsi EOF

Catatan: Fungsi, metode, objek, atau properti yang diuraikan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft jet berjalan dalam mode Sandbox, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode Sandbox, Cari "mode Sandbox" dalam bantuan.

Mengembalikan bilangan bulat yang berisi nilai BooleanTrue ketika akhir file dibuka untuk inputRandom atau Sequential telah tercapai.

Sintaks

EOF ( nama grup )

argumenfilenumber yang diperlukan adalah bilangan bulat yang berisi nomor fileyang valid.

Keterangan

Gunakan EOF untuk menghindari kesalahan yang dihasilkan dengan mencoba memasukkan input melewati akhir file.

Fungsi EOF mengembalikan false sampai akhir file tercapai. Dengan file yang dibuka untuk akses acak atau biner , EOF mengembalikan false hingga pernyataan Get yang terakhir dieksekusi tidak dapat membaca seluruh catatan.

Dengan file yang dibuka untuk akses biner , upaya untuk membaca file menggunakan fungsi input hingga EOF mengembalikan True akan menghasilkan kesalahan. Gunakan fungsi LOF dan Loc dan bukan EOF saat membaca file biner dengan input, atau gunakan Get ketika menggunakan fungsi EOF . Dengan file yang dibuka untuk output, EOF selalu mengembalikan True.

Contoh

Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.

Contoh ini menggunakan fungsi EOF untuk mendeteksi akhir file. Contoh ini menganggap bahwa MYFILE adalah file teks dengan beberapa baris teks.

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

Perlu bantuan lainnya?

Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×