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

お役に立てれば ：）