Module
Contents
Index 🔎︎

# Put Statement

Kirjutab kirje suhtelisse faili või baidijada kahendfaili.

Vaata ka: Get lause

## Süntaks:

    Put [#] FileNumber As Integer, [position], Variable

## Parameetrid:

FileNumber: suvaline täisarvavaldis, mis määrab faili, kuhu soovid kirjutada.

Position: suhteliste failide (juhupääsuga failide), korral on see selle kirje number, mida soovid kirjutada.

Kahendfailide (binaarpääs) korral on see baidipositsioon failis, millest soovid kirjutamist alustada.

Variable: selle muutuja nimi, mille soovid faili kirjutada.

Märkus suhteliste failide kohta. Kui selle muutuja sisu ei vasta lause Open sättes Len määratud kirjepikkusele, siis täidetakse kirjutatud kirje lõpu ja järgmise kirje vaheline tühik olemasolevate andmetega failist, kuhu kirjutad.

Märkus kahendfailide kohta. Muutujate sisu kirjutatakse määratud asukohta ja faili kursor asetatakse kohe viimase baidi järele. Kirjete vahele tühikut ei jäeta.

## Näide:

    Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant REM Peab olema variant-tüüpi
    Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Seek #iNumber,1 REM Koht, kust alustatakse kirjutamist
        Put #iNumber,, "See on teksti esimene rida" REM Täidab rea tekstiga
        Put #iNumber,, "See on teksti teine rida"
        Put #iNumber,, "See on teksti kolmas rida"
        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,,"See on uus tekst"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        Put #iNumber,20,"See on tekst kirjes 20"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub