[问题求助] 【已解决】请教VBS如何替换某文本中部分单词中某个字符？

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1*" %%a in ('type "input.txt"') do (
    set "strA=%%a"
    set "strA=!strA:(=!"
    set "strB=%%b"
    set "strB=!strB:-=.!"
    set "strB=!strB:)=!"
    echo !strA!: !strB!
))>"out.txt"
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1,* delims= " %%a in (input.txt) do (
set "str=%%b"
set "var=%%a"
set "var=!var:~1!"
set "str=!str:~0,-1!"
set "str=!str:-=.!"
echo !var!;!str!
))>out.txt
pause
复制代码

Rem On Error Resume Next
Dim srcFile, dstFile, fso, objFile
srcFile = "a.txt"    '输入文件
dstFile = "b.txt"    '输出文件
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(srcFile, 1)

Dim reg, strLine, n, out, match
Set reg = New RegExp
reg.Pattern = "^\s*[(（]\s*(?=([^)）\s]+))\1\s+(?=([^)）]+))\2[)）]\s*$"
n = 0
ReDim out(n)

while Not objFile.AtEndOfStream
    ReDim Preserve out(n)
    strLine = objFile.ReadLine
    If reg.Test(strLine) Then
        Set match = reg.Execute(strLine)(0)
        out(n) = match.SubMatches(0) + ";" + Replace(match.SubMatches(1), "-", ".")
    Else
        out(n) = strLine
    End If
    n = n + 1
wend

objFile.Close
fso.OpenTextFile(dstFile, 2, True).Write Join(out, vbCrLf)

MsgBox "Done"
复制代码

Rem On Error Resume Next
Dim srcFile, dstFile, fso, objFile
srcFile = "in.txt"         '输入文件
dstFile = "out.txt"        '输出文件
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(srcFile, 1)

Dim reg1, strLine, n, out(), match, reg2, s
Set reg1 = New RegExp
Set reg2 = New RegExp
reg1.Pattern = "^\s*\(\s*(?=([^)\s]+))\1\s+(?=([^)]+))\2\)\s*$"
reg2.Pattern = "(?:\S+\s+){9}(?=(\S+))\1(?!\s*$)"
reg2.Global = True
n = 0

while Not objFile.AtEndOfStream
    ReDim Preserve out(n)
    strLine = objFile.ReadLine
    If reg1.Test(strLine) Then
        Set match = reg1.Execute(strLine)(0)
        s = Replace(match.SubMatches(1), "-", ".")
        s = reg2.Replace(s, "$&," + vbCrLf + "    ")
        out(n) = match.SubMatches(0) + ";" + s
    Else
        out(n) = strLine
    End If
    n = n + 1
wend

objFile.Close
fso.OpenTextFile(dstFile, 2, True).Write Join(out, vbCrLf)

MsgBox "Done"
复制代码