Mencari fungsi

Catatan:  Kami ingin secepatnya menyediakan konten bantuan terbaru dalam bahasa Anda. Halaman ini diterjemahkan menggunakan mesin dan mungkin terdapat kesalahan tata bahasa atau masalah keakuratan. Kami bertujuan menyediakan konten yang bermanfaat untuk Anda. Dapatkah Anda memberi tahu kami apakah informasi ini bermanfaat untuk Anda di bagian bawah halaman ini? Berikut artikel dalam bahasa Inggris untuk referensi.

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 lama yang menentukan posisi baca/tulis saat ini dalam file yang dibuka menggunakan pernyataan terbuka .

Sintaks

Mencari ( filenumber )

Diperlukan filenumberargumen adalah bilangan bulat yang berisi valid nomor file.

Keterangan

Mencari mengembalikan nilai antara 1 dan 2,147,483,647 (sama dengan 2 ^ 31-1), inklusif.

Berikut ini menguraikan nilai yang dikembalikan untuk setiap file access mode.

Mode

Nilai yang Dikembalikan

Acak

Jumlah rekaman berikutnya membaca atau menulis

Biner,
Output,
Tambahkan,
Input

Byte posisi di mana operasi berikutnya berlangsung. Byte pertama dalam file berada di posisi 1, byte kedua berada di posisi 2, dan seterusnya.


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 pencarian untuk mengembalikan posisi file saat ini. Contoh mengasumsikan TESTFILE adalah file yang berisi catatan dari tipe yang ditentukan pengguna Record.

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

Untuk file yang dibuka dalam mode acak, mencari mengembalikan jumlah rekaman berikutnya.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Untuk file yang dibuka dalam mode selain mode acak, mencari mengembalikan byte posisi di mana operasi berikutnya berlangsung. Mengasumsikan TESTFILE adalah file yang berisi beberapa baris teks.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.
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.

×