Question

vbs 批处理 替换从A到B之间的文本内容

vbs或批处理 可不可以实现替换两个红色部分之间的内容
把1.txt红色部分之间的内容替换成相同的内容（红色部分之间的内容不同）
1.txt
a.txt
最终效果

注：一个文本里有N段这样的内容 有很多处要替换





Answer 1

'vbs代码，替换后的内容保存到 2.txt
Set FSO = CreateObject("Scripting.FileSystemObject")
a = FSO.OpenTextFile("a.txt").ReadAll
Set f2 = FSO.OpenTextFile("2.txt", 2, True)
For Each s In Split(FSO.OpenTextFile("1.txt").ReadAll, "<PropertyGroup>")
  g = Split(s, "</OptionInfer>A", 2)
  If UBound(g) = 0 Then
    f2.Write g(0)
  ElseIf UBound(g) = 1 Then
    f2.Write a & g(1)
  End If
Next
f2.Close

追问

代码挺好是我想要的
大神你可不可以在改进一下让1.txt支持拖拽（就是1.txt换了名字例如2.txt 3.txt.....txt）那样就不用老改文本名字了

追答

让文件支持拖拽，把代码中的 "1.txt" 改成 WScript.Arguments(0)

追问

老大 文件未找到

老大 要是有时间就修正一下吧 没时间就算了 凑合着用吧

我顺便研究一下 貌似这玩意很强大

追答

拖动文件到vbs，当前目录不是vbs所在文件夹。

需要用绝对路径，或者修改当前目录。

原先代码，如果原文件名是2.txt也会出错。

Set ws = CreateObject("WScript.Shell")
ws.CurrentDirectory = WScript.ScriptFullName & "\.." '修改当前目录到vbs所在文件夹
Set FSO = CreateObject("Scripting.FileSystemObject")
a = FSO.OpenTextFile("a.txt").ReadAll
ss = Split(FSO.OpenTextFile(WScript.Arguments(0)).ReadAll, "<PropertyGroup>")
'提前读取原文件
'替换后的内容保存到 2.txt
Set f2 = FSO.OpenTextFile("2.txt", 2, True)
For Each s In ss
  g = Split(s, "</OptionInfer>A", 2)
  If UBound(g) = 0 Then
    f2.Write g(0)
  ElseIf UBound(g) = 1 Then
    f2.Write a & g(1)
  End If
Next
f2.Close