Mendapatkan Pernyataan

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