Differenze tra le versioni di "Modificare o eliminare una riga in un file di testo"

Da Gambas-it.org - Wikipedia.
Riga 2: Riga 2:
  
 
Mostriamo un esempio pratico, ad un file di testo, formato da almeno tre righe, viene eliminata la terza riga:
 
Mostriamo un esempio pratico, ad un file di testo, formato da almeno tre righe, viene eliminata la terza riga:
  '''Public''' Sub Main()
+
  Public Sub Main()
 
    
 
    
 
   Dim s As String
 
   Dim s As String
Riga 8: Riga 8:
 
    
 
    
 
  <FONT Color=gray>' ''Carica il contenuto del file di testo in una variabile vettoriale di tipo String:''</font>
 
  <FONT Color=gray>' ''Carica il contenuto del file di testo in una variabile vettoriale di tipo String:''</font>
   s = File.Load("<FONT Color=gray>''/percorso/del/file/di/testo''</font>")
+
   s = File.Load("<FONT Color=darkgreen>''/percorso/del/file/di/testo''</font>")
 
      
 
      
 
  <FONT Color=gray>' ''Divide le righe ponendole ciascuna in un elemento del vettore di tipo String:''</font>
 
  <FONT Color=gray>' ''Divide le righe ponendole ciascuna in un elemento del vettore di tipo String:''</font>
Riga 22: Riga 22:
 
   File.Save("<FONT Color=gray>''/percorso/del/nuovo/file/di/testo''</font>", s)
 
   File.Save("<FONT Color=gray>''/percorso/del/nuovo/file/di/testo''</font>", s)
 
    
 
    
  '''End'''
+
  End

Versione delle 16:09, 24 giu 2024

Per modificare o eliminare una riga in un file di testo, formato da più righe, può essere utile l'uso di una variabile array di tipo String e della funzione "Split()".

Mostriamo un esempio pratico, ad un file di testo, formato da almeno tre righe, viene eliminata la terza riga:

Public Sub Main()
 
 Dim s As String
 Dim ss As String[]
  
' Carica il contenuto del file di testo in una variabile vettoriale di tipo String:
 s = File.Load("/percorso/del/file/di/testo")
   
' Divide le righe ponendole ciascuna in un elemento del vettore di tipo String:
 ss = Split(s, "\n")
   
' Viene eliminata la 3^ riga:
 ss.Remove(2, 1)
   
' Ricostituisce il file di testo all'interno di una variabile di tipo String, garantendo alla file di ciascuna riga di testo il carattere escape "\n":
 s = ss.Join("\n", Null)
   
' Salva il nuovo file di testo, ora privo della originaria terza riga:
 File.Save("/percorso/del/nuovo/file/di/testo", s)
  
End