ファイル内のすべてのn番目の文字を削除する方法(バッチまたはvbs経由)?
-
05-07-2019 - |
質問
バッチまたはvbsでファイル(.txtまたは.sql)内のn番目(4000番目)の文字(スペース文字)を削除するにはどうすればよいですか?
解決
いくつかの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
これが役立つことを願って:)
所属していません StackOverflow