Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan Ekspresi Microsoft Jet berjalan dalam 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 Long yang menentukan posisi baca/tulis saat ini di dalam file yang terbuka.
Sintaks
Loc( filenumber )
Filenumber argumen yang diperlukan adalah semua nomor fileBilangan Bulat yang valid.
Keterangan
Berikut ini menguraikan nilai yang dikembalikan untuk setiap mode akses file:
|
Modus |
Nilai yang Dikembalikan |
|
Acak |
Jumlah catatan terakhir yang dibaca dari atau ditulis ke file. |
|
Berurutan |
Posisi byte saat ini dalam file dibagi dengan 128. Namun, informasi yang dikembalikan oleh Loc untuk file berurutan tidak digunakan atau diperlukan. |
|
Biner |
Posisi byte terakhir dibaca atau ditulis. |
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 Loc untuk mengembalikan posisi baca/tulis saat ini dalam file yang terbuka. Contoh ini mengasumsikan bahwa TESTFILE adalah file teks dengan beberapa baris data sampel.
Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.
