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:Ekspresi 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