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:

Put Uttrykks- diagram


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

Lukke uttrykk

Hent uttrykk

Åpnings uttrykk