Fungsi input

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 rentetan yang mengandungi aksara daripada fail dibuka dalam mod Input atau perduaan .

Sintaks

Input ( nombor, [ #] filenumber)

Sintaks fungsi Input mempunyai argumen ini:

Argumen

Perihalan

nombor

Diperlukan. Sebarang sah ungkapan bernombor menentukan bilangan aksara untuk dikembalikan.

filenumber

Diperlukan. Sebarang sah nombor fail.


Catatan

Baca dengan fungsi Input data biasanya ditulis pada fail dengan mencetak # atau meletakkan. Gunakan fungsi ini hanya dengan fail yang dibuka dalam mod Input atau perduaan .

Berbeza dengan kenyataan Input # , fungsi Input mengembalikan semua aksara yang ia membaca, termasuk koma, penyorong, linefeeds, tanda petikan dan ruang.

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 .

Nota: Gunakan fungsi InputB bait data yang terkandung dalam fail teks. Dengan InputB, nombor menentukan bilangan bait untuk kembali dan bukannya bilangan aksara untuk dikembalikan.

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 Input untuk membaca satu aksara pada satu masa daripada fail dan mencetak kepada tetingkap merta . Contoh ini menganggap bahawa TESTFILE ialah fail teks dengan beberapa baris data sampel.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.

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.

×