ファイル内のn番目の文字をすべて削除するには（バッチまたはvbs経由で）？

Question

ファイル（.txtまたは.sql）のn番目（4000番目）のchar（空白文字）をバッチまたはvbsで一番上に削除するにはどうすればよいですか？

Answer 1

VBScriptが必要ですが、バッチファイルでは実行できません。 今それは私がオフセットを追加しなければならなかった最初のループのために:)だ（最初intervall約4023文字であるため）、このようなので、何かあなたのためにそれを行います

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 

・ホープ、このことができます:)