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

Question

如何最好通过批处理或 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

希望这可以帮助 ：）