Differenze tra le versioni di "Line Input"

Da Gambas-it.org - Wikipedia.
 
(9 versioni intermedie di uno stesso utente non sono mostrate)
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 <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.
 
  
−
 
+
===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 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=darkgreen>''/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
 
   
 
   
−
  '''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 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").
  
  
−
===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=darkgreen>''/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 fino al carattere escape di "nuova riga a capo"''</font>
−
  While Not fl(Eof)   <FONT color=gray>' ''Fin tanto che non si è giunti alla fine dei dati del file...''</font>
+
    Print s
−
    <FONT color=B22222>Line Input</font> #fl, s  <FONT color=gray>' ''...legge un'intera riga''</font>
+
  Wend
−
    Print s
 
−
  Wend
 
 
   
 
   
−
  fl.Close
+
  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...

Versione attuale delle 07:45, 29 ott 2023

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 fino al carattere non stampabile di ritorno a capo.


Esempio di lettura con "Line Input"

Se per esempio il file di testo è così strutturato con due righe: 

Line Input legge
all'interno di un file.

ed andiamo a leggere con Line Input 

Public Sub Main()

 Dim fl As File
 Dim s As String

 fl = Open "/percorso/del/file" For Input

 Line Input #fl, s

 Print s

 fl.Close

End

sarà letta la sola intera prima riga del file di testo: Line Input legge .
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 0A (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").


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: 

Public Sub Main()

 Dim fl As File
 Dim s As String

 fl = Open "/percorso/del/file" For Input

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

 fl.Close

End

La verifica potrà avvenire anche usando la Proprietà ".EndOfFile" della Classe File: 

 While Not fl.EndOfFile
   ...etc...
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Line_Input&oldid=35168"