Buon giorno. il mio quesito e' questo.
Vorrei modificare un file txt.
es: nel file txt: A B C
Vorrei aggiungere un trattino : -A -B -C
ho trovato questo codice ma mi aggiunge il trattino solo alla prima occorrenza.
Dim fso As FileSystemObject
Dim tsReadFile As TextStream
Dim tsWriteFile As TextStream
Dim sRecord As String
Set fso = New FileSystemObject
Set tsReadFile = fso.OpenTextFile("C:\MioFile.txt", ForReading)
Set tsWriteFile = fso.CreateTextFile("C:\NuovoFile.txt")
Do Until tsReadFile.AtEndOfStream
sRecord = tsReadFile.ReadLine
sRecord = Trim$(sRecord)
If sRecord = vbNullString Then
' if line is null, do nothing
Else
tsWriteFile.WriteLine "-" + sRecord
End If
Loop
Set fso = Nothing
tsReadFile.Close
tsWriteFile.Close
Set tsReadFile = Nothing
Set tsWriteFile = Nothing
Come posso fare?
Grazie