Differenze tra le versioni di "Aggiungere una riga di caratteri alla fine di un file di testo"
Da Gambas-it.org - Wikipedia.
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 1: | Riga 1: | ||
− | Per aggiungere una riga di caratteri in un file di testo, è possibile adottare almeno due modalità | + | Per aggiungere una riga di caratteri in un file di testo, è possibile adottare almeno due modalità. |
− | <B>1</b>) aprendo in ''Scrittura'' il file di testo con l'istruzione ''[[Open]]'' e usando la parola-chiave ''[[Append]]'': | + | <B>1</b>) aprendo in ''Scrittura'' il file di testo con l'istruzione ''[[Open]]'' e usando la parola-chiave ''[[Append]]'' : |
Public Sub Main() | Public Sub Main() | ||
Dim fl As File | Dim fl As File | ||
Dim riga As String = "Questa è la riga da aggiungere alla fine del file di testo." | Dim riga As String = "Questa è la riga da aggiungere alla fine del file di testo." | ||
− | + | ||
− | fl = Open "<FONT Color= | + | fl = Open "<FONT Color=darkgreen>''/percorso/del/file/di/testo''</font>" For Write <FONT Color=red>Append</font> |
Write #fl, riga | Write #fl, riga | ||
Riga 21: | Riga 21: | ||
Dim riga As String = "Questa è la riga da aggiungere alla fine del file di testo." | Dim riga As String = "Questa è la riga da aggiungere alla fine del file di testo." | ||
− | File<FONT Color=#B22222>.Save</font>("<FONT Color= | + | File<FONT Color=#B22222>.Save</font>("<FONT Color=darkgreen>''/percorso/del/file/di/testo''</font>", File<FONT Color=#B22222>.Load</font>("<FONT Color=darkgreen>''/percorso/del/file/di/testo''</font>") & riga) |
End | End | ||
+ | |||
In entrambi i casi l'aggiunta del valore (&h0A) di "nuova riga a capo" dopo l'ultima riga del file di testo, avviene automaticamente. | In entrambi i casi l'aggiunta del valore (&h0A) di "nuova riga a capo" dopo l'ultima riga del file di testo, avviene automaticamente. |
Versione attuale delle 17:22, 28 giu 2024
Per aggiungere una riga di caratteri in un file di testo, è possibile adottare almeno due modalità.
1) aprendo in Scrittura il file di testo con l'istruzione Open e usando la parola-chiave Append :
Public Sub Main() Dim fl As File Dim riga As String = "Questa è la riga da aggiungere alla fine del file di testo." fl = Open "/percorso/del/file/di/testo" For Write Append Write #fl, riga fl.Close End
2) usando i Metodi ".Load()" e ".Save()" dela Classe statica File:
Public Sub Main() Dim riga As String = "Questa è la riga da aggiungere alla fine del file di testo." File.Save("/percorso/del/file/di/testo", File.Load("/percorso/del/file/di/testo") & riga) End
In entrambi i casi l'aggiunta del valore (&h0A) di "nuova riga a capo" dopo l'ultima riga del file di testo, avviene automaticamente.