Comment supprimer tous les n-ième caractères dans le fichier (par lot ou vbs)?

Question

Comment puis-je supprimer tous les n-ième (4000e) caractères (caractère espace) dans un fichier (.txt ou .sql) par batch ou vbs?

Answer 1

Vous avez besoin de VBScript, vous ne pouvez pas le faire avec un fichier batch. donc quelque chose comme ça va le faire pour vous

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 

Hope this helps :)