Differenze tra le versioni di "Aggiungere una riga di caratteri alla fine di un file di testo"
Da Gambas-it.org - Wikipedia.
Riga 6: | Riga 6: | ||
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 |
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.