Fungsi EOF

Penting: Artikel ini diterjemahkan oleh mesin, lihatlah notis penafian. Sila dapatkan versi Bahasa Inggeris artikel ini di sini sebagai rujukan anda

Nota: Fungsi, kaedah, objek atau sifat yang diperihalkan dalam topik ini dinyahdayakan jika Perkhidmatan Microsoft Jet ungkapan berjalan dalam mod kotak pasir yang menghalang penilaian ungkapan yang mungkin tidak selamat. Untuk maklumat lanjut tentang mod kotak pasir, Cari "mod kotak Pasir" dalam bantuan.

Mengembalikan Integer yang mengandungi nilai Booleanbenar apabila penghujung fail dibuka untuk rawak atau berjujukan Input dicapai.

Sintaks

EOF ( filenumber )

Diperlukan filenumberargumen ialah Integer mengandungi sebarang sah nombor fail.

Catatan

Gunakan EOF untuk mengelakkan ralat yang dijanakan oleh mencuba untuk mendapatkan input penghujung fail.

Fungsi EOF mengembalikan False sehingga penghujung fail dicapai. Dengan fail yang dibuka untuk capaian rawak atau perduaan , EOF mengembalikan False sehingga terakhir dilaksanakan kenyataan mendapatkan tidak dapat membaca seluruh rekod.

Dengan fail yang dibuka untuk capaian perduaan , cubaan untuk membaca fail yang menggunakan fungsi Input sehingga EOF mengembalikan benar menjana ralat. Gunakan fungsi LOF dan Loc dan bukannya EOF apabila membaca fail perduaan dengan Input, atau menggunakan mendapatkan apabila menggunakan fungsi EOF . Dengan fail dibuka untuk Output, EOF sentiasa mengembalikan benar.

Contoh

Nota: Contoh berikut menunjukkan penggunaan fungsi ini dalam Visual Basic for Applications (VBA) modul. Untuk maklumat lanjut tentang bekerja dengan VBA, pilih Rujukan pembangun dalam senarai juntai bawah di sebelah Cari dan memasukkan satu atau lebih istilah dalam kotak carian.

Contoh ini menggunakan fungsi EOF untuk mengesan penghujung fail. Contoh ini menganggap bahawa MYFILE ialah fail 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

Nota: Notis Penafian Penterjemahan Mesin: Artikel ini telah diterjemah oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan penterjemahan mesin ini untuk membantu pengguna-pengguna yang tidak bertutur dalam Bahasa Inggeris supaya dapat menikmati kandungan mengenai produk, perkhidmatan dan teknologi Microsoft. Artikel ini mungkin mengandungi ralat perbendaharaan kata, sintaks atau tatabahasa kerana ia diterjemahkan oleh mesin.

Kembangkan kemahiran anda
Jelajahi latihan
Dapatkan ciri baru terlebih dahulu
Sertai Office Insiders

Adakah maklumat ini membantu?

Terima kasih atas maklum balas anda!

Terima kasih atas maklum balas anda! Nampaknya ia mungkin akan membantu untuk menyambungkan anda kepada salah seorang daripada ejen sokongan Office kami.

×