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