Put# Statement

Kirjutab kirje suhtelisse faili või baidijada kahendfaili.

tip

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ĂĽntaks:

Put Statement diagram


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

Parameetrid:

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.

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

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

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:

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 Asukoht alguses
    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