Erklæringen Get

Læser en datapost fra en relativ fil, eller en sekvens af bytes fra en binær fil, til en variabel.

Se også:Put-sætning

Syntaks:

Erklæringsdiagrammet Get


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

Parametre:

fileNum: Ethvert heltalsudtryk, der bestemmer filnummeret.

recordNum: Ved filer åbnet i Random-tilstand er recordNum nummeret på den post, du vil læse.

Ved filer, der er åbnet i binær tilstand er filePos den byte-position i filen, hvor læsningen starter.

Hvis recordNum og filePos er udeladt, bruges den aktuelle placering eller filens aktuelle datapost.

variable: Navnet på den variabel, der skal læses. Bortset fra objektvariablerne kan du bruge enhver variabeltype.

Eksempel:


  Sub ExampleRandomAccess
      Dim iNumber As Integer
      Dim sText As Variant REM Skal være en variant
      Dim aFile As String
      aFile = "C:\Users\ThisUser\data.txt"
      iNumber = Freefile
      Open aFile For Random As #iNumber Len=32
      Seek #iNumber,1 REM Position ved begyndelse
      Put #iNumber, , "Det er den første tekstlinje" ' Fyld linjen med tekst
      Put #iNumber, , "Dette er den anden tekstlinje"
      Put #iNumber, , "Dette er den tredje tekstlinje "
      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øg #iNumber,1 ' Begyndelsesposition
      Put #iNumber, , "Dette er den første tekstlinje" ' Fyld linjen med tekst
      Put #iNumber, , "Dette er den anden tekstlinje"
      Put #iNumber, , "Dette er den tredje tekstlinje"
      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

erklæringen Open

Erklæringen Put#

udtrykket Close