Fungsi EOF

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft Jet sedang berjalan di mode kotak pasir yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode kotak pasir, Cari "mode kotak pasir" di bantuan.

Mengembalikan bilangan bulat yang berisi nilai BooleanTrue saat akhir file dibuka untuk acak atau berurutan Input telah mencapai.

Sintaks

EOF ( filenumber )

Diperlukan filenumberargumen adalah bilangan bulat yang berisi apa pun yang valid nomor file.

Keterangan

Gunakan EOF untuk menghindari kesalahan yang dihasilkan oleh berusaha mendapatkan input dari akhir file.

Fungsi EOF akan mengembalikan False hingga akhir file telah mencapai. Dengan file yang dibuka untuk akses acak atau biner , EOF mengembalikan False hingga terakhir dijalankan mendapatkan pernyataan ini tidak dapat membaca seluruh catatan.

Dengan file yang dibuka untuk biner akses, usaha untuk membaca file yang menggunakan fungsi Input hingga EOF mengembalikan True menghasilkan kesalahan. Gunakan fungsi LOF dan Loc bukan EOF saat membaca file biner dengan Input, atau menggunakan mendapatkan saat 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 mengasumsikan 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

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan 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.

×