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

StackOverflow https://stackoverflow.com/questions/1205424

  •  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

希望这会有所帮助：）

许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top