如何刪除文件中的每個第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 

你希望這有助於:)