Rozkaz Seek

Instrukcja Seek ustawia pozycję następnej operacji odczytu/zapisu pliku otwartego rozkazem Open.

Składnia rozkazu Seek:

Seek [#]NrPliku, Pozycja

Argument NrPliku jest wymaganym poprawnym numerem pliku.
Argument Pozycja jest wymaganym wyrażeniem w zakresie 1-2,147,483,647, określającym gdzie powinna nastąpić następna operacja odczytu/zapisu.

Numer rekordu określony przez rozkazy Put i Get zmienia położenie w pliku ustawione przez rozkaz Seek.
Wykonanie operacji zapisu do pliku po operacji Seek poza końcem pliku rozszerza plik. Przy próbie wykonania operacji rozkazem Seek na ujemnej lub zerowej pozycji, wystąpi błąd.

Przykład użycia rozkazu Seek:

Dim recRekord As Record  'Record jest typem użytkownika
Open "FILE" For Random As #1 Len=Len(recRekord)  'otwiera plik
Seek #1,Len(recRekord)*3  'przesuwa na 3 rekord
Close #1  'zamyka plik

(Zmienne, typy zmiennych, funkcja Len, rozkazy Open i Close zostały opisane w innych częściach kursu.

na górę strony...