Dapatkan Pernyataan
Membaca catatan dari berkas relatif, atau urutan byte dari berkas biner, menjadi sebuah variabel.
Lihat juga: Pernyataan PUT
Sintaksis:
Get [#] NomorBerkas As Integer, [Posisi], Variabel
Parameter:
NomorBerkas:pernyataan bilangan bulat apa pun yang menentukan nomor berkas.
Posisi: Untuk berkas yang dibuka dalam Mode Acak, Posisi adalah jumlah catatan yang ingin anda baca.
Untuk berkas yang dibuka dalam mode Biner, posisiadalah posisi byte dalam berkas di mana pembacaan dimulai.
Jika Posisi dihilangkan, posisi saat ini atau catatan data berkas saat ini digunakan.
Variabel: Nama variabel yang akan dibaca. Dengan pengecualian variabel objek, Anda dapat menggunakan jenis variabel apa pun.
Contoh:
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant ' Harus varian
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Carilah #iNumber,1 ' Posisi di awal
Masukkan #iNumber,, "Ini adalah baris pertama dari teks" ' Isi baris dengan teks
Put #iNumber,, "Ini baris teks kedua"
Put #iNumber,, "Ini baris teks ketiga"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
Put #iNumber,,"Ini teks yang baru"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Ini adalah teks dalam catatan 20"
Print Lof(#iNumber)
Close #iNumber
End Sub