Line Input - Cronologia

Vuott il 14:45, 29 ott 2023

2023-10-29T14:45:38Z

← Versione meno recente		Versione delle 08:45, 29 ott 2023
Riga 1:		Riga 1:
	'''LINE INPUT''' legge all'interno di un file di testo un'intera riga di caratteri non interrotta da un carattere non stampabile di "''ritorno a capo'' " (ossia un byte avente valore &h0A - ''Line feed character''). Quindi la riga sarà letta tutta <SPAN style="text-decoration:underline">fino</span> al carattere non stampabile di ''ritorno a capo''.		'''LINE INPUT''' legge all'interno di un file di testo un'intera riga di caratteri non interrotta da un carattere non stampabile di "''ritorno a capo'' " (ossia un byte avente valore &h0A - ''Line feed character''). Quindi la riga sarà letta tutta <SPAN style="text-decoration:underline">fino</span> al carattere non stampabile di ''ritorno a capo''.

	~~Ovviamente, se si ponesse l'istruzione "Seek" (prima dell'istruzione "Line Input"), si leggerebbe dal byte puntato da "Seek" sino al primo dato avente valore &h0A ("\n").~~

	===Esempio di lettura con "Line Input"===		===Esempio di lettura con "Line Input"===
Riga 24:		Riga 23:
	sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .		sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .
	<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge'' ", è presente il valore esadecimale <FONT color=red>0A</font> (''Line feed character'' ), il quale rappresenta appunto il carattere non stampabile ''escape'' di ''ritorno a capo'' ("\n").		<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge'' ", è presente il valore esadecimale <FONT color=red>0A</font> (''Line feed character'' ), il quale rappresenta appunto il carattere non stampabile ''escape'' di ''ritorno a capo'' ("\n").

			====Uso dell'istruzione "SeeK"====
			Ovviamente, se si ponesse l'istruzione "Seek" (prima dell'istruzione "Line Input"), si leggerebbe dal byte puntato da "Seek" sino al primo dato avente valore &h0A ("\n").

Vuott il 14:41, 29 ott 2023

2023-10-29T14:41:49Z

← Versione meno recente		Versione delle 08:41, 29 ott 2023
Riga 23:		Riga 23:
	End		End
	sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .		sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .
	<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge'' ", è presente il valore esadecimale <FONT color=red>0A</font> (''Line feed character''), il quale rappresenta appunto il carattere non stampabile ''escape'' di ''ritorno a capo'' ("\n").		<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge'' ", è presente il valore esadecimale <FONT color=red>0A</font> (''Line feed character'' ), il quale rappresenta appunto il carattere non stampabile ''escape'' di ''ritorno a capo'' ("\n").

Vuott il 14:40, 29 ott 2023

2023-10-29T14:40:56Z

← Versione meno recente		Versione delle 08:40, 29 ott 2023
Riga 23:		Riga 23:
	End		End
	sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .		sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .
	<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge''", è presente il valore esadecimale <FONT color=red>0A</font> (''Line feed character''), il quale rappresenta appunto il carattere non stampabile ''escape'' di "''ritorno a capo'' " ("\n").		<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge'' ", è presente il valore esadecimale <FONT color=red>0A</font> (''Line feed character''), il quale rappresenta appunto il carattere non stampabile ''escape'' di ''ritorno a capo'' ("\n").

Vuott il 14:39, 29 ott 2023

2023-10-29T14:39:30Z

← Versione meno recente		Versione delle 08:39, 29 ott 2023
Riga 36:		Riga 36:

	While Not Eof(fl) <FONT color=gray>' ''Fin tanto che non si è giunti alla fine dei dati del file...''</font>		While Not Eof(fl) <FONT color=gray>' ''Fin tanto che non si è giunti alla fine dei dati del file...''</font>
	<FONT color=B22222>Line Input</font> #fl, s <FONT color=gray>' ''...legge un'intera riga''</font>		<FONT color=B22222>Line Input</font> #fl, s <FONT color=gray>' ''...legge un'intera riga fino al carattere escape di "nuova riga a capo"''</font>
	Print s		Print s
	Wend		Wend

Vuott il 14:38, 29 ott 2023

2023-10-29T14:38:32Z

← Versione meno recente		Versione delle 08:38, 29 ott 2023
Riga 23:		Riga 23:
	End		End
	sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .		sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .
	<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge''", è presente il ~~carattere ''non stampabile''~~ esadecimale <FONT color=red>0A</font> (''Line feed character''), il quale rappresenta appunto il carattere ''escape'' di "''ritorno a capo'' " ("\n").		<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge''", è presente il valore esadecimale <FONT color=red>0A</font> (''Line feed character''), il quale rappresenta appunto il carattere non stampabile ''escape'' di "''ritorno a capo'' " ("\n").

Vuott il 14:35, 29 ott 2023

2023-10-29T14:35:31Z

← Versione meno recente		Versione delle 08:35, 29 ott 2023
Riga 13:		Riga 13:
	Dim s As String		Dim s As String

	fl = Open "<FONT Color=~~drakgreen~~>''/percorso/del/file''</font>" For Input		fl = Open "<FONT Color=darkgreen>''/percorso/del/file''</font>" For Input

	<FONT color=#B22222>Line Input</font> #fl, s		<FONT color=#B22222>Line Input</font> #fl, s

Vuott il 14:35, 29 ott 2023

2023-10-29T14:35:13Z

← Versione meno recente		Versione delle 08:35, 29 ott 2023
Riga 1:		Riga 1:
	'''~~Line Input~~''' legge all'interno di un file di testo un'intera riga di caratteri non interrotta da un carattere non stampabile di "''ritorno a capo'' " (ossia un byte avente valore &h0A - ''Line feed character''). Quindi la riga sarà letta tutta ~~quanta~~ <SPAN style="text-decoration:underline">fino</span> al carattere non stampabile di ''ritorno a capo''.		'''LINE INPUT''' legge all'interno di un file di testo un'intera riga di caratteri non interrotta da un carattere non stampabile di "''ritorno a capo'' " (ossia un byte avente valore &h0A - ''Line feed character''). Quindi la riga sarà letta tutta <SPAN style="text-decoration:underline">fino</span> al carattere non stampabile di ''ritorno a capo''.

	Ovviamente, se si ponesse ~~la funzione '~~'Seek'' (prima dell'istruzione ''Line Input''), si ~~andrebbe a leggere~~ dal byte puntato da ''Seek'' sino al primo dato avente valore &h0A.		Ovviamente, se si ponesse l'istruzione "Seek" (prima dell'istruzione "Line Input"), si leggerebbe dal byte puntato da "Seek" sino al primo dato avente valore &h0A ("\n").

	===Esempio di lettura con ''Line Input''===		===Esempio di lettura con "Line Input"===
	Se per esempio il file di testo è così strutturato con due righe:		Se per esempio il file di testo è così strutturato con due righe:
	''Line Input legge''		''Line Input legge''
	''all'interno di un file.''		''all'interno di un file.''
	ed andiamo a leggere con ''Line Input''		ed andiamo a leggere con ''Line Input''
	~~'''~~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''</font>" For Input		fl = Open "<FONT Color=drakgreen>''/percorso/del/file''</font>" For Input

	<FONT color=#B22222>Line Input</font> #fl, s		<FONT color=#B22222>Line Input</font> #fl, s
Riga 21:		Riga 21:
	fl.Close		fl.Close

	~~'''~~End~~'''~~		End
	sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .		sarà letta la sola intera prima riga del file di testo: ''Line Input legge'' .
	<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge''", è presente il carattere ''non stampabile'' esadecimale <FONT color=red>0A</font> (''Line feed character''), il quale rappresenta appunto il carattere ''escape'' di "''ritorno a capo''".		<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte, che rappresentano i caratteri della parola "''legge''", è presente il carattere ''non stampabile'' esadecimale <FONT color=red>0A</font> (''Line feed character''), il quale rappresenta appunto il carattere ''escape'' di "''ritorno a capo'' " ("\n").


	===Esempio di lettura dell'intero file===		===Esempio di lettura dell'intero file===
	Volendo, invece, leggere tutte le righe del file di testo, useremo ovviamente un ciclo, verificando mediante la funzione nativa "Eof()" se si è giunti alla fine del file:		Volendo, invece, leggere tutte le righe del file di testo, useremo ovviamente un ciclo, verificando mediante la funzione nativa "Eof()" se si è giunti alla fine del file:
	~~'''~~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''</font>" For Input		fl = Open "<FONT Color=darkgreen>''/percorso/del/file''</font>" For Input

	While Not Eof(fl) <FONT color=gray>' ''Fin tanto che non si è giunti alla fine dei dati del file...''</font>		While Not Eof(fl) <FONT color=gray>' ''Fin tanto che non si è giunti alla fine dei dati del file...''</font>
Riga 42:		Riga 42:
	fl.Close		fl.Close

	~~'''~~End~~'''~~		End
	La verifica potrà avvenire anche usando la Proprietà ".EndOfFile" della Classe ''File'':		La verifica potrà avvenire anche usando la Proprietà ".EndOfFile" della Classe ''File'':
	While Not <FONT color=B22222>fl.EndOfFile</font>		While Not <FONT color=B22222>fl.EndOfFile</font>
	...etc...		...etc...

Vuott il 16:32, 9 gen 2022

2022-01-09T16:32:25Z

← Versione meno recente		Versione delle 10:32, 9 gen 2022
Riga 2:		Riga 2:

	Ovviamente, se si ponesse la funzione ''Seek'' (prima dell'istruzione ''Line Input''), si andrebbe a leggere dal byte puntato da ''Seek'' sino al primo dato avente valore &h0A.		Ovviamente, se si ponesse la funzione ''Seek'' (prima dell'istruzione ''Line Input''), si andrebbe a leggere dal byte puntato da ''Seek'' sino al primo dato avente valore &h0A.


	===Esempio di lettura con ''Line Input''===		===Esempio di lettura con ''Line Input''===
Riga 36:		Riga 35:
	fl = Open "<FONT Color=gray>''/percorso/del/file''</font>" For Input		fl = Open "<FONT Color=gray>''/percorso/del/file''</font>" For Input

	While Not Eof(fl) <FONT color=gray>' ''Fin tanto che non si è giunti alla fine dei dati del file...''</font>		While Not Eof(fl) <FONT color=gray>' ''Fin tanto che non si è giunti alla fine dei dati del file...''</font>
	<FONT color=B22222>Line Input</font> #fl, s <FONT color=gray>' ''...legge un'intera riga''</font>		<FONT color=B22222>Line Input</font> #fl, s <FONT color=gray>' ''...legge un'intera riga''</font>
	Print s		Print s

Vuott il 16:30, 9 gen 2022

2022-01-09T16:30:49Z

← Versione meno recente		Versione delle 10:30, 9 gen 2022
Riga 20:		Riga 20:
	Print s		Print s

	fl.Close		fl.Close

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

Vuott il 16:27, 9 gen 2022

2022-01-09T16:27:28Z

← Versione meno recente		Versione delle 10:27, 9 gen 2022
Riga 1:		Riga 1:
	'''Line Input''' legge all'interno di un file di testo un'intera riga di caratteri non interrotta da un carattere non stampabile di "''ritorno a capo''" (ossia un byte avente valore ~~x0A~~ - ''Line feed character''). Quindi la riga sarà letta tutta quanta <SPAN style="text-decoration:underline">fino</span> al carattere non stampabile di ''ritorno a capo''.		'''Line Input''' legge all'interno di un file di testo un'intera riga di caratteri non interrotta da un carattere non stampabile di "''ritorno a capo'' " (ossia un byte avente valore &h0A - ''Line feed character''). Quindi la riga sarà letta tutta quanta <SPAN style="text-decoration:underline">fino</span> al carattere non stampabile di ''ritorno a capo''.

	~~Ponendo eventualmente~~ la funzione ''Seek'', si va a leggere dal byte puntato da Seek sino al primo dato avente valore ~~x0A~~.		Ovviamente, se si ponesse la funzione ''Seek'' (prima dell'istruzione ''Line Input''), si andrebbe a leggere dal byte puntato da ''Seek'' sino al primo dato avente valore &h0A.


Riga 9:		Riga 9:
	''all'interno di un file.''		''all'interno di un file.''
	ed andiamo a leggere con ''Line Input''		ed andiamo a leggere con ''Line Input''
	'''Public''' Sub ~~Button1_Click~~()		'''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''</font>" For Input

	fl = ~~Open "''~~/~~percorso/del/mio/file''" For Input~~		<FONT color=#B22222>Line Input</font> #fl, s

	~~<FONT color=#B22222>Line Input</font> #fl, s~~		Print s

	Print s

	fl.Close		fl.Close
Riga 28:		Riga 27:


	===Esempio di lettura dell'intero file ~~con ''Line Input''~~===		===Esempio di lettura dell'intero file===
	Volendo, invece, leggere tutte le righe del file di testo, useremo ovviamente un ciclo:		Volendo, invece, leggere tutte le righe del file di testo, useremo ovviamente un ciclo, verificando mediante la funzione nativa "Eof()" se si è giunti alla fine del file:
	'''Public''' Sub ~~Button1_Click~~()		'''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''</font>" For Input

	fl = ~~Open "~~''~~/percorso/~~del/~~mio~~/~~file~~''~~" For Input~~		While Not Eof(fl) <FONT color=gray>' ''Fin tanto che non si è giunti alla fine dei dati del file...''</font>
			<FONT color=B22222>Line Input</font> #fl, s <FONT color=gray>' ''...legge un'intera riga''</font>
			Print s
			Wend

	~~While Not fl(Eof)~~ ~~<FONT color=gray>' ''Fin tanto che non si è giunti alla fine dei dati del file...''</font>~~		fl.Close
	~~<FONT color=B22222>Line Input</font> #fl, s <FONT color=gray>' ''...legge un'intera riga''</font>~~
	~~Print s~~
	~~Wend~~

	fl.Close

	'''End'''		'''End'''
			La verifica potrà avvenire anche usando la Proprietà ".EndOfFile" della Classe ''File'':
			While Not <FONT color=B22222>fl.EndOfFile</font>
			...etc...