Seek - Cronologia

Vuott il 21:45, 10 giu 2024

2024-06-10T21:45:56Z

← Versione meno recente		Versione delle 15:45, 10 giu 2024
Riga 11:		Riga 11:
	Seek #flusso, -10		Seek #flusso, -10
	Esempio:		Esempio:
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim fl As File		Dim fl As File
	Dim s As String		Dim s As String

	fl = Open "<FONT Color=~~gray~~>''/percorso/del/file/da/leggere''</font>" For Read		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~~'''~~		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()		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=~~gray~~>''/percorso/del/file''</font>" For Read Write		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~~'''~~		End

Vuott il 10:14, 12 apr 2023

2023-04-12T10:14:02Z

← Versione meno recente		Versione delle 04:14, 12 apr 2023
Riga 27:		Riga 27:

	===Impostare il puntatore dopo la fine del flusso di dati===		===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()'':		Per impostare il puntatore dopo la fine del flusso di dati, è necessario usare la funzione "[[Lof\|Lof()]]":
	<FONT color=gray>' ''Sposta il puntatore interno dello stream <SPAN style="text-decoration:underline">dopo</span> la fine dello stream:''</font>		<FONT color=gray>' ''Sposta il puntatore interno dello stream <SPAN style="text-decoration:underline">dopo</span> la fine dello stream:''</font>
	Seek #flusso, Lof(#flusso)		Seek #flusso, Lof(#flusso)

Vuott il 01:14, 3 nov 2022

2022-11-03T01:14:51Z

← Versione meno recente		Versione delle 19:14, 2 nov 2022
Riga 59:		Riga 59:
	Print i		Print i

	<FONT color=gray>' ''Ora andiamo a vedere l'<SPAN style="text-decoration:underline">attuale</span> posizione del puntatore interno del flusso,''		<FONT color=gray>' ''Ora andiamo a vedere l'<SPAN style="text-decoration:underline">attuale</span> posizione del puntatore interno del flusso, tenendo presente che anche la funzione ''Read'' sposta automaticamente il puntatore all'interno del flusso:''</font>
	~~' ''~~tenendo presente che anche la funzione ''Read'' sposta automaticamente il puntatore all'interno del flusso:''</font>
	f = <FONT color=#B22222>seek(fl)</font>		f = <FONT color=#B22222>seek(fl)</font>

Vuott il 01:14, 3 nov 2022

2022-11-03T01:14:13Z

← Versione meno recente		Versione delle 19:14, 2 nov 2022
Riga 1:		Riga 1:
	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.		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.
	<BR>''Seek'' consente, pertanto, di leggere o di scrivere ~~all'interno di~~ un flusso di dati partendo dall'indice di un determinato byte.		<BR>''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 è:		La sua sintassi è:
	Seek #Flusso, Posizione		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:


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


	Se il valore della posizione è negativo, allora il puntatore interno allo ''stream'' sarà spostato ad un indice calcolato partendo <SPAN style="text-decoration:underline">dalla fine</span> del flusso medesimo.		Se il valore della posizione è negativo, allora il puntatore interno allo ''stream'' sarà spostato ad un indice calcolato partendo <SPAN style="text-decoration:underline">dalla fine</span> del flusso medesimo.
	<FONT color=gray>' ''Sposta il puntatore interno dello stream di dieci byte partendo <SPAN style="text-decoration:underline">dalla fine</span> dello stream:''</font>		<FONT color=gray>' ''Sposta il puntatore interno dello stream di dieci byte partendo a ritroso <SPAN style="text-decoration:underline">dalla fine</span> dello stream:''</font>
	Seek #flusso, -10		Seek #flusso, -10
	Esempio:		Esempio:
Riga 20:		Riga 16:
	Dim s As String		Dim s As String

	fl = Open "''/percorso/del/file/da/leggere''" For Read		fl = Open "<FONT Color=gray>''/percorso/del/file/da/leggere''</font>" For Read

	Seek #fl, -5		<FONT Color=#B22222>Seek</font> #fl, -5

	Read #fl, s, -256		Read #fl, s, -256

	fl.Close		fl.Close

	'''End'''		'''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()'':		Per impostare il puntatore dopo la fine del flusso di dati, è necessario usare la funzione ''Lof()'':
	<FONT color=gray>' ''Sposta il puntatore interno dello stream <SPAN style="text-decoration:underline">dopo</span> la fine dello stream:''</font>		<FONT color=gray>' ''Sposta il puntatore interno dello stream <SPAN style="text-decoration:underline">dopo</span> la fine dello stream:''</font>
Riga 37:		Riga 32:


			==Conoscere la posizione attuale del puntatore interno del flusso di dati==
	===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.		Il comando ''Seek'' consente anche di conoscere la posizione attuale del puntatore all'interno del flusso di dati.

	In tal caso la sua sintassi è:		In tal caso la sua sintassi è:
	Posizione = Seek(flusso)		Posizione = Seek(flusso)


	===Esempio pratico===		===Esempio pratico===
Riga 52:		Riga 45:
	Dim i, f As Integer		Dim i, f As Integer

			fl = Open "<FONT color=gray>''/percorso/del/file''</font>" For Read Write

	~~fl = Open "''/percorso/del/file''" For Read Write~~		Write #fl, 9 As Integer

	Write #fl, 9 ~~As Integer~~

	~~Write #fl, 99~~ As Integer

	~~<FONT color=gray>' ''Poiché le funzioni "~~Write~~" spostano, comunque, automaticamente il puntatore all'interno del flusso,''~~		Write #fl, 99 As Integer
	~~' ''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:''</font>~~
	~~<FONT color=#B22222>Seek~~ #fl, ~~4</font>~~

	~~Read~~ #fl, i		<FONT color=gray>' ''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:''</font>
			<FONT color=#B22222>Seek #fl, 4</font>

	~~Print~~ i		Read #fl, i

			Print i

	<FONT color=gray>' ''Ora andiamo a vedere l'<SPAN style="text-decoration:underline">attuale</span> posizione del puntatore interno del flusso,''		<FONT color=gray>' ''Ora andiamo a vedere l'<SPAN style="text-decoration:underline">attuale</span> posizione del puntatore interno del flusso,''
	' ''tenendo presente che anche la funzione ''Read'' sposta automaticamente il puntatore all'interno del flusso:''</font>		' ''tenendo presente che anche la funzione ''Read'' sposta automaticamente il puntatore all'interno del flusso:''</font>
	f = <FONT color=#B22222>seek(fl)</font>		f = <FONT color=#B22222>seek(fl)</font>

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

	fl.Close		fl.Close

	'''End'''		'''End'''

Vuott il 01:34, 13 feb 2015

2015-02-13T01:34:08Z

← Versione meno recente		Versione delle 19:34, 12 feb 2015
Riga 25:		Riga 25:

	Read #fl, s, -256		Read #fl, s, -256

			fl.Close

	'''End'''		'''End'''

Vuott il 01:32, 13 feb 2015

2015-02-13T01:32:46Z

← Versione meno recente		Versione delle 19:32, 12 feb 2015
Riga 9:		Riga 9:
	Poiché l'indice interno di un flusso di dati ha inizio da zero, per posizionare il puntatore interno del flusso all'indice 0, ossia al ''primo'' byte, si dovrà impostare il valore di ''Posizione'' a zero:		Poiché l'indice interno di un flusso di dati ha inizio da zero, per posizionare il puntatore interno del flusso all'indice 0, ossia al ''primo'' byte, si dovrà impostare il valore di ''Posizione'' a zero:
	Seek #flusso, 0		Seek #flusso, 0


	Se il valore della posizione è negativo, allora il puntatore interno allo ''stream'' sarà spostato ad un indice calcolato partendo <SPAN style="text-decoration:underline">dalla fine</span> del flusso medesimo.		Se il valore della posizione è negativo, allora il puntatore interno allo ''stream'' sarà spostato ad un indice calcolato partendo <SPAN style="text-decoration:underline">dalla fine</span> del flusso medesimo.
	<FONT color=gray>' ''Sposta il puntatore interno dello stream di dieci byte partendo <SPAN style="text-decoration:underline">dalla fine</span> dello stream:''</font>		<FONT color=gray>' ''Sposta il puntatore interno dello stream di dieci byte partendo <SPAN style="text-decoration:underline">dalla fine</span> dello stream:''</font>
	Seek #flusso, -10		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

			'''End'''



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

Vuott il 15:29, 12 feb 2015

2015-02-12T15:29:24Z

← Versione meno recente		Versione delle 09:29, 12 feb 2015
Riga 58:		Riga 58:

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

			fl.Close

	'''End'''		'''End'''

Vuott il 22:04, 11 feb 2015

2015-02-11T22:04:46Z

← Versione meno recente		Versione delle 16:04, 11 feb 2015
Riga 57:		Riga 57:
	f = <FONT color=#B22222>seek(fl)</font>		f = <FONT color=#B22222>seek(fl)</font>

	Print f <FONT color=gray>' ''Il risultato sarà 8: 4 (l'indice impostato con "Seek") + 4 (...giacché abbiamo letto un valore di tipo Integer)''</font>		Print f <FONT color=gray>' ''Il risultato sarà 8 = 4 (l'indice impostato con "Seek") + 4 (...giacché abbiamo letto un valore di tipo Integer)''</font>

	'''End'''		'''End'''

Vuott il 22:04, 11 feb 2015

2015-02-11T22:04:27Z

← Versione meno recente		Versione delle 16:04, 11 feb 2015
Riga 57:		Riga 57:
	f = <FONT color=#B22222>seek(fl)</font>		f = <FONT color=#B22222>seek(fl)</font>

	Print f <FONT color=gray>' ''Il risultato sarà 8 (...giacché abbiamo letto un valore di tipo Integer)''</font>		Print f <FONT color=gray>' ''Il risultato sarà 8: 4 (l'indice impostato con "Seek") + 4 (...giacché abbiamo letto un valore di tipo Integer)''</font>

	'''End'''		'''End'''

Vuott il 22:02, 11 feb 2015

2015-02-11T22:02:45Z

← Versione meno recente		Versione delle 16:02, 11 feb 2015
Riga 57:		Riga 57:
	f = <FONT color=#B22222>seek(fl)</font>		f = <FONT color=#B22222>seek(fl)</font>

	Print f <FONT color=gray>' ''Il risultato sarà 8''</font>		Print f <FONT color=gray>' ''Il risultato sarà 8 (...giacché abbiamo letto un valore di tipo Integer)''</font>

	'''End'''		'''End'''