如何删除文件中的每个第n个字符（通过批处理或vbs）？

Question

如何通过batch或vbs最好地删除文件（.txt或.sql）中的每个第n个（第4000个）字符（空格字符）？

Answer 1

你需要一些VBScript，你不能用批处理文件来做到这一点。 所以这样的事情会做的

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 

你希望这有助于:)