İçerikler
Dizin 🔎︎

# Put# Statement

Göreceli dosyaya bir kayıt veya ikilik dosyaya bir bayt dizisi yazar.

Use Print# statement to print data to a sequential text file. Use Write# statement to write data to a sequential text file with delimiting characters.

### Sözdizimi:

    Put [#]fileNum, [recordNum|filePos], variable

### Parametreler:

fileNum: Any integer expression that defines the file that you want to write to.

recordNum, filePos: For relative files (random access files), the number of the record that you want to write.

İkilik dosyalar için (ikilik erişim), yazmaya başlayacağınız baytın dosyadaki konumu.

variable: Name of the variable that you want to write to the file.

Göreceli dosyalar için not: Eğer bu değişkenin içeriği Aç deyiminin Len cümleciğiyle belirtilen kayıt uzunluğu ile örtüşmezse, yeni girilen kayıt ile sonraki kayır arasındaki boşluk yazdığınız dosyadan veriler ile doldurulur.

İkilik dosyalar için not: Belirtilen pozisyona yazılan değişkenlerin içeriği ve dosya göstergeci son bayttan hemen sonra eklenir. Kayıtlar arasında boşluk bırakılmaz.

### Ö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

İlgili Konular

Close Statement

Get Statement

Open Statement