Differenze tra le versioni di "Line Input"

Da Gambas-it.org - Wikipedia.
 
(16 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 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''.
  
−
Se per esempio il file di testo è così strutturato:
+
 
 +
===Esempio di lettura con "Line Input"===
 +
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.''
−
sarà letta la sola intera prima stringa: ''Line Input legge'' .
+
ed andiamo a leggere con ''Line Input''
−
<BR>Infatti, se esaminiamo il file con un editor esadecimale, noteremo che immediatamente dopo i byte che rappresentano i caratteri della parola "''legge''" sarà presente il carattere esadecimale 0A, il quale a sua volta rappresenta appunto il carattere ''escape'' di "''ritorno a capo''".
+
Public Sub Main()
 +
 +
  Dim fl As File
 +
  Dim s As String
 +
 +
  fl = Open "<FONT Color=darkgreen>''/percorso/del/file''</font>" For Input
 +
 +
  <FONT color=#B22222>Line Input</font> #fl, s
 +
 +
  Print s
 +
 +
  fl.Close
 +
 +
End
 +
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").
  
 +
====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 con ''Line Input'' e successiva scrittura in un file di testo===
+
 
−
Poniamo il caso che nel file di testo vi siano queste righe composte dalle seguenti semplici parole:
+
===Esempio di lettura dell'intero file===
−
<BR>sale
+
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:
−
<BR>pepe
+
Public Sub Main()
−
<BR>pane
+
−
<BR>pasta
+
  Dim fl As File
−
<BR>cacio
+
  Dim s As String
−
<BR>Andiamo a cambiare la seconda riga del file di testo con la parola: olio:
+
−
'''Public''' Sub Button1_Click()
+
  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>
 +
    <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
 +
  Wend
 
   
 
   
−
   Dim f As File 
+
   fl.Close
−
  Dim s$, sss As String 
 
−
  Dim a As Byte
 
−
 
 
−
<FONT color=#006400>' ''Dichiaro quindi anche una variabile array di tipo stringa con numero elementi non definito.''
 
−
' ''Non lo definisco, poiché abbiamo ammesso che non conosco il numero esatto di righe''
 
−
' ''contenute dal file di testo:''</font>
 
−
  Dim sArr$ As String[] 
 
−
 
 
−
 
 
−
<FONT color=#006400>' ''apro il mio file di testo:''</font>
 
−
  f = Open "/percorso_mio_file" For Input 
 
−
 
 
−
<FONT color=#006400>' ''creo la variabile stringa array:''</font>
 
−
  sArr$ = New String[] 
 
−
 
 
−
<FONT color=#006400>' ''Vado a leggere tutte le righe del file:''</font>
 
−
  While Not Eof(f)    <FONT color=#006400>' ''compie il ciclo fin tanto che non è giunto alla fine del file''</font>
 
−
 
 
−
  <FONT color=#B22222>Line Input</font> #f, s$ 
 
−
 
 
−
<FONT color=#006400>' ''carico ogni nuova riga in un nuovo elemento della variabile array:''</font>
 
−
  sArr$.Add(s$) 
 
−
   
 
−
  Wend   
 
−
 
 
−
<FONT color=#006400>' ''chiudo il file aperto in modalità Input:''</font>
 
−
  Close #f 
 
−
 
 
−
<FONT color=#006400>' ''A questo punto del codice ho letto tutto il file di testo.''
 
−
'-----------------------------------------------------------------------
 
−
 
 
−
' ''Passo quindi a trasformare il contenuto del file di testo.''
 
−
' ''In particolare, come era nella mia iniziale intenzione:''
 
−
' ''modificare la seconda riga con la parola: olio.''
 
−
' ''Ho bisogno di un ciclo per ricostruire riga dopo riga il nuovo file di testo.''</font>
 
−
  For a = 0 To sArr$.Max 
 
−
 
 
−
    If a = 1 Then 
 
−
<FONT color=#006400>' ''se sono giunto alla seconda riga (il conteggio inizia da zero !),''
 
−
' ''allora il contenuto del 2° elemento dell'indice''
 
−
' ''della variabile array di tipo stringa sarà: olio:''</font>
 
−
    sArr$[a] = "olio"
 
−
    Endif 
 
−
 
 
−
<FONT color=#006400>' ''la variabile stringa "sss" è uguale alla precedente versione''
 
−
' ''di se stessa + la successiva riga + il carattere "riga a capo":''</font>
 
−
  sss = sss & sArr$[a] & "\n"
 
−
 
 
−
  Next 
 
−
 
 
−
<FONT color=#006400>' ''vado a salvare il nuovo file di testo'' 
 
−
' ''(ora modificato nella sua 2^ riga):''</font>
 
−
    File.Save("/percorso_mio_file", sss) 
 
 
   
 
   
−
  '''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 08: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"