IBM Lotus Symphony
|
Służy do odczytywania rekordu z pliku o dostępie pośrednim lub sekwencji bajtów z pliku binarnego do zmiennej.
Patrz także: Instrukcja PUT.
Get [#] NumerPliku As Integer, [Pozycja], Zmienna
NumerPliku: Dowolne wyrażenie całkowitoliczbowe określające numer pliku.
Pozycja: W przypadku plików otwartych w trybie Random parametr Pozycja jest numerem rekordu do odczytu.
W przypadku plików otwartych w trybie Binary parametr Pozycja jest pozycją bajtu w pliku. Od tej pozycji rozpocznie się odczyt.
Jeśli parametr Pozycja zostanie pominięty, użyta zostanie bieżąca pozycja lub bieżący rekord danych z pliku.
Zmienna: Nazwa zmiennej, do której mają zostać odczytane dane. Można używać dowolnych typów zmiennych, z wyjątkiem zmiennych obiektów.
Sub PrzykladDostepuBezposredniego
Dim iNumer As Integer
Dim sTekst As Variant REM Musi być typu Variant
Dim aPlik As String
aPlik = "c:\data.txt"
iNumer = Freefile
Open aPlik For Random As #iNumer Len=32
Seek #iNumer,1 REM Pozycja na początku
Put #iNumer,, "To jest pierwszy wiersz tekstu" REM Wypełnianie wiersza tekstem
Put #iNumer,, "To jest drugi wiersz tekstu"
Put #iNumer,, "To jest trzeci wiersz tekstu"
Seek #iNumer,2
Get #iNumer,,sTekst
Print sTekst
Close #iNumer
iNumer = Freefile
Open aPlik For Random As #iNumer Len=32
Get #iNumer,2,sTekst
Put #iNumer,,"To jest nowy tekst"
Get #iNumer,1,sTekst
Get #iNumer,2,sTekst
Put #iNumer,20,"To jest tekst w rekordzie 20"
Print Lof(#iNumer)
Close #iNumer
end sub