Al İfadesi

Göreceli bir dosyadan kayıt okur veya ikilik dosyadan bayt sırasını bir değişkene.

Ayrıca PUT Deyimine bakın

Sözdizimi:

Get [#] FileNumber As Integer, [Position], Variable

Parametreler:

DosyaNumarası: Dosya numarasını belirten herhangi sayısal ifade.

Konum: Rastegele kipte açılmış olan dosyalar için, Konum okumak istediğiniz kayıt sayısıdır.

İkilik kipte açılmış dosyalar için, Konum dosya içerisinde okumanın başlayacağı bayt konumudur.

Eğer Konum atlanmışsa, mevcut konum veya dosyanın mevcut veri kaydı kullanılır.

Değişken: Okunacak değişken adı. Nesne değişkenlerindeki olağandışı durum ile, herhangi bit tür değişkeni kullanabilirsiniz.

Örnek:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Bir değişken olmalı

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Seek #iNumber,1 REM Başlangıçtaki konum

    Put #iNumber,, "Bu metnin ilk satırıdır" REM Metni satır ile doldur

    Print #iNumber, "Bu metnin ikinci satırıdır"

    Print #iNumber,, "Bu metnin üçüncü satırıdır"

    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,,"Bu yeni bir metindir"

    Get #iNumber,1,sText

    Get #iNumber,2,sText

    Put #iNumber,20,"Bu kayıt 20 deki metindir"

    Print Lof(#iNumber)

    Close #iNumber

End Sub