Put# Uttrykk

Skriver en post til en relativ fil eller en sekvens av byte til en binær fil.

Bruk Print#-setningen for å skrive ut data til en sekvensiell tekstfil. Bruk Write#-setningen for å skrive data til en sekvensiell tekstfil med skilletegn.

Sett [#]filNum, [recordNum|filPos], variabel

filNum: Ethvert heltallsuttrykk som definerer filen du vil skrive til.

recordNum, filePos: For relative filer (filer med tilfeldig tilgang), nummeret på posten du vil skrive.

For binære filer (binær tilgang), posisjonen til byten i filen der du vil begynne å skrive.

variabel: Navnet på variabelen du vil skrive til filen.

Merknad for relative filer: Hvis innholdet i denne variabelen ikke samsvarer med lengden på posten som er spesifisert i Len-leddet i Open-setningen, vil mellomrommet mellom slutten av den nyskrevne posten og neste post fylles med eksisterende data fra filen du skriver til.

Merknad for binære filer: Innholdet i variablene skrives til den angitte posisjonen, og filpekeren settes inn rett etter siste byte. Ingen plass er igjen mellom postene.

Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant ' Må være en variant
    Dim aFile As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    Søk #iNumber,1 ' Posisjon ved begynnelsen
    Put #iNumber, , "Dette er den første tekstlinjen" ' Fyll linjen med tekst
    Put #iNumber, , "Dette er den andre tekstlinjen"
    Put #iNumber, , "Dette er den tredje tekstlinjen"
    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, , "Dette er en ny tekst"
    Get #iNumber, 1, sText
    Get #iNumber, 2, sText
    Put #iNumber, 20, "Dette er teksten i post 20"
    Print Lof(#iNumber)
    Close #iNumber
End Sub

Sub ExampleRandomAccess
    Dim iNumber As Integer
    Dim sText As Variant ' Må være en variant
    Dim aFile As String
    aFile = "~/data.txt"
    iNumber = Freefile
    Open aFile For Random As #iNumber Len=32
    Søk #iNumber,1 ' Posisjon ved begynnelsen
    Put #iNumber, , "Dette er den første tekstlinjen" ' Fyll linjen med tekst
    Put #iNumber, , "Dette er den andre tekstlinjen"
    Put #iNumber, , "Dette er den tredje tekstlinjen"
    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, , "Dette er en ny tekst"
    Get #iNumber, 1, sText
    Get #iNumber, 2, sText
    Put #iNumber, 20, "Dette er teksten i post 20"
    Print Lof(#iNumber)
    Close #iNumber
End Sub