In un file di testo, l'ultima riga contiene una scritta e alcuni caratteri speciali (esempio æ), utilizzo il seguente codice:
- Codice: Seleziona tutto
Sub CancellaUltima()
Dim lineaRicerca As String = "la storia ai giorni nostri æ dal passato al presente "
Dim lineaSostituzione As String = ""
Dim linee As String() = IO.File.ReadAllLines(percorso & "\storia.txt")
For i As Integer = 0 To linee.Count - 1
If linee(i) = lineaRicerca Then linee(i) = lineaSostituzione
Next
IO.File.WriteAllLines(percorso & "\storia.txt", linee)
MsgBox("Aggiornamento terminato")
End Sub
Purtroppo non riconosce la stringa e non mi elimina l'ultima riga contenente la stringa.
Chiedo cortesemente aiuto per riuscire a superare quanto esposto, o altra forma per eliminare l'ultima riga del file.
Grazie
Francesco