Differenze tra le versioni di "Seek"
| Riga 11: | Riga 11: | ||
Seek #flusso, -10 | Seek #flusso, -10 | ||
Esempio: | Esempio: | ||
| − | + | Public Sub Main() | |
Dim fl As File | Dim fl As File | ||
Dim s As String | Dim s As String | ||
| − | fl = Open "<FONT Color= | + | fl = Open "<FONT Color=darkgreen>''/percorso/del/file/da/leggere''</font>" For Read |
<FONT Color=#B22222>Seek</font> #fl, -5 | <FONT Color=#B22222>Seek</font> #fl, -5 | ||
| Riga 24: | Riga 24: | ||
fl.Close | fl.Close | ||
| − | + | End | |
===Impostare il puntatore dopo la fine del flusso di dati=== | ===Impostare il puntatore dopo la fine del flusso di dati=== | ||
| Riga 40: | Riga 40: | ||
===Esempio pratico=== | ===Esempio pratico=== | ||
| − | + | Public Sub Main() | |
Dim fl As File | Dim fl As File | ||
Dim i, f As Integer | Dim i, f As Integer | ||
| − | fl = Open "<FONT color= | + | fl = Open "<FONT color=darkgreen>''/percorso/del/file''</font>" For Read Write |
Write #fl, 9 As Integer | Write #fl, 9 As Integer | ||
| Riga 66: | Riga 66: | ||
fl.Close | fl.Close | ||
| − | + | End | |
Versione attuale delle 14:45, 10 giu 2024
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
