IBM Lotus Symphony


Instrukcja Get [środowisko wykonawcze]

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.

Składnia

Get [#] NumerPliku As Integer, [Pozycja], Zmienna

Parametry

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.

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe