Mendapatkan Pernyataan

Isi
Indeks 🔎︎

# 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