Como excluir todos os caractere n-th no arquivo (via lote ou VBS)?
-
05-07-2019 - |
Pergunta
Como posso apagar todos os n-th (4000) char (caractere de espaço) em um arquivo (.txt ou SQL) melhor via lote ou vbs?
Solução
Você precisa de algum VBScript, você não pode fazer isso com um arquivo de lote. Então, algo como isto vai fazer isso por você
option Explicit
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim fso
Dim inFile
Dim outFile
Dim buffer
set fso = CreateObject("Scripting.FileSystemObject")
Set inFile = fso.OpenTextFile("C:\testIn.txt", ForReading)
Set outFile = fso.OpenTextFile("C:\testOut.txt", ForWriting, True)
Do While Not inFile.AtEndOfStream
buffer = inFile.Read(3999)
outFile.Write buffer
If Not inFile.AtEndOfStream Then
inFile.Read (1)
End If
Loop
inFile.Close
outFile.Close
Espero que isso ajude:)
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow