7
« en: Diciembre 31, 2021, 09:57:14 am »
Buenos días. mi pregunta es esta.
Me gustaría editar un archivo txt.
ej: en el archivo txt: A B C
Me gustaría agregar un guión: -A -B -C
Encontré este código pero agrega el guión solo a la primera aparición.
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