Come eliminare ogni n-esimo carattere nel file (tramite batch o vbs)?
-
05-07-2019 - |
Domanda
Come posso eliminare ogni n-esimo (4000esimo) carattere (spazio) in un file (.txt o .sql) meglio tramite batch o vbs?
Soluzione
Hai bisogno di VBScript, non puoi farlo con un file batch. Quindi qualcosa del genere lo farà per te
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
Spero che questo aiuti :)
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow