Modül
İçerikler
Dizin 🔎︎

# 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