Seek

Da Gambas-it.org - Wikipedia.

Il comando Seek imposta la posizione del puntatore interno ad un flusso (stream), definito mediante una variabile di tipo File o di tipo Stream, per la successiva operazione di lettura (Read) o scrittura (Write) sul flusso medesimo.
Seek consente di muovere il puntatore di lettura e/o scrittura in una qualunque posizione all'interno del file di dati, e pertanto consente di leggere e/o di scrivere in un flusso di dati partendo dall'indice di un determinato byte.

La sua sintassi è:

Seek #Flusso, Posizione

Poiché l'indice interno di un flusso di dati ha inizio da zero, per posizionare - ad esempio - il puntatore interno del flusso all'indice 0, ossia al primo byte, si dovrà impostare il valore di Posizione a zero:

Seek #flusso, 0

Se il valore della posizione è negativo, allora il puntatore interno allo stream sarà spostato ad un indice calcolato partendo dalla fine del flusso medesimo.

' Sposta il puntatore interno dello stream di dieci byte partendo a ritroso dalla fine dello stream:
Seek #flusso, -10

Esempio:

Public Sub Main()

 Dim fl As File
 Dim s As String

 fl = Open "/percorso/del/file/da/leggere" For Read

 Seek #fl, -5

 Read #fl, s, -256

 fl.Close

End

Impostare il puntatore dopo la fine del flusso di dati

Per impostare il puntatore dopo la fine del flusso di dati, è necessario usare la funzione Lof():

' Sposta il puntatore interno dello stream dopo la fine dello stream:
Seek #flusso, Lof(#flusso)


Conoscere la posizione attuale del puntatore interno del flusso di dati

Il comando Seek consente anche di conoscere la posizione attuale del puntatore all'interno del flusso di dati.

In tal caso la sua sintassi è:

Posizione = Seek(flusso)

Esempio pratico

Public Sub Main()

 Dim fl As File
 Dim i, f As Integer

 fl = Open "/percorso/del/file" For Read Write

 Write #fl, 9 As Integer

 Write #fl, 99 As Integer

' Poiché le funzioni "Write" spostano, comunque, automaticamente il puntatore all'interno del flusso, per leggere qualsiasi dei due valori, bisognerà utilizzare la funzione "Seek" impostandone la posizione in modo preciso.
' Poiché il valore di tipo Integer occupa 4 byte, le due operazioni di scrittura con "Write" hanno prodotto anche lo spostamento di 8 byte complessivi in avanti del puntatore interno. Così, volendo leggere, ad esempio, il secondo valore (99) scritto nel file, bisognerà spostare il puntatore di 4 byte indietro; e quindi il valore sarà letto al byte di indice 4 (ossia al 5° byte) del file:
 Seek #fl, 4

 Read #fl, i

 Print i

' Ora andiamo a vedere l'attuale posizione del puntatore interno del flusso,
' tenendo presente che anche la funzione Read sposta automaticamente il puntatore all'interno del flusso:
 f = seek(fl)

 Print f   ' Il risultato sarà 8 = 4 (l'indice impostato con "Seek") + 4 (...giacché abbiamo letto un valore di tipo Integer)

 fl.Close

End