Innhold

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

### Syntaks:

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

### Parametre:

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.

### Eksempel:

      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

Lignende emner

Lukke uttrykk

Hent uttrykk

Åpnings uttrykk

Supporter oss!