Instrukcja Get

Odczytuje rekord z pliku względnego lub sekwencję bajtów z pliku binarnego i przypisuje je do zmiennej.

Zobacz także: Instrukcja PUT

Składnia:

Diagram instrukcji Get


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

Parametry:

fileNum: Dowolne wyrażenie całkowite określające numer pliku.

recordNum: Dla plików otwieranych w trybie Random, recordNum to numer rekordu, który chcesz odczytać.

Dla plików otwieranych w trybie binarnym filePos jest pozycją bajtu w pliku, od której rozpoczyna się odczyt.

Jeśli recordNum i filePos zostaną pominięte, używana jest bieżąca pozycja lub bieżący rekord danych pliku.

variable: Nazwa zmiennej do odczytania. Z wyjątkiem zmiennych obiektowych, możesz użyć dowolnego typu zmiennej.

Przykład:


  Sub ExampleRandomAccess
      Dim iNumber As Integer
      Dim sText As Variant ' Musi być typu variant
      Dim aFile As String
      aFile = "C:\Users\ThisUser\data.txt"
      iNumber = Freefile
      Open aFile For Random As #iNumber Len=32
      Seek #iNumber,1 ' Pozycja rozpoczęcia
      Put #iNumber, , "To jest pierwsza linia tekstu" ' Wypełnia linię tekstem
      Put #iNumber, , "To jest druga linia tekstu"
      Put #iNumber, , "To jest trzecia linia tekstu"
      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, , "To jest nowy tekst"
      Get #iNumber, 1, sText
      Get #iNumber, 2, sText
      Put #iNumber, 20, "To jest tekst w rekordzie 20"
      Print Lof(#iNumber)
      Close #iNumber
  End Sub


  Sub ExampleRandomAccess
      Dim iNumber As Integer
      Dim sText As Variant ' Musi być Variant
      Dim aFile As String
      aFile = "~/data.txt"
      iNumber = Freefile
      Open aFile For Random As #iNumber Len=32
      Seek #iNumber,1 ' Pozycja na początku
      Put #iNumber, , "To jest pierwsza linia tekstu" ' Wypełnia linię tekstem
      Put #iNumber, , "To jest druga linia tekstu"
      Put #iNumber, , "To jest trzecia linia tekstu"
      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, , "To jest nowy tekst"
      Get #iNumber, 1, sText
      Get #iNumber, 2, sText
      Put #iNumber, 20, "To jest tekst w rekordzie 20"
      Print Lof(#iNumber)
      Close #iNumber
  End Sub

Instrukcja Open

Instrukcja Put#

Instrukcja Close