Differenze tra le versioni di "Modificare o eliminare una riga in un file di testo"
Da Gambas-it.org - Wikipedia.
(2 versioni intermedie di uno stesso utente non sono mostrate) | |||
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() | |
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= | + | 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> | ||
ss = Split(s, "\n") | ss = Split(s, "\n") | ||
− | <FONT Color=gray>' ''Viene eliminata la 3^ riga:''</font> | + | <FONT Color=gray>' ''Viene eliminata la 3^ riga (numero d'indice: 2):''</font> |
ss.Remove(2, 1) | ss.Remove(2, 1) | ||
Riga 20: | Riga 20: | ||
<FONT Color=gray>' ''Salva il nuovo file di testo, ora privo della originaria terza riga:''</font> | <FONT Color=gray>' ''Salva il nuovo file di testo, ora privo della originaria terza riga:''</font> | ||
− | File.Save("<FONT Color= | + | File.Save("<FONT Color=darkgreen>''/percorso/del/nuovo/file/di/testo''</font>", s) |
− | + | End |
Versione attuale delle 16:11, 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 (numero d'indice: 2): 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