[文本处理] 【已解决】批处理如何替换与删除文本中特定字符串？

hkldd

文本中相同字符替换与删除，示例文件如下；a.txt是要处理的文本、b.txt是处理好的文本，谢谢大家！
a.txt

sate001.txt
4
1
sate002.txt
5
1
sate003.txt
4
1
sate004.txt
5
1
sate005.txt
5
1
sate006.txt
5
1
sate007.txt
4
1
sate008.txt
3
1
复制代码

b.txt

随机数据(矩阵)\随机批次001数据\注汇总001
4
1
随机数据(矩阵)\随机批次001数据\注汇总002
5
1
随机数据(矩阵)\随机批次001数据\注汇总003
4
1
随机数据(矩阵)\随机批次001数据\注汇总004
5
1
随机数据(矩阵)\随机批次001数据\注汇总005
5
1
随机数据(矩阵)\随机批次001数据\注汇总006
5
1
随机数据(矩阵)\随机批次001数据\注汇总007
4
1
随机数据(矩阵)\随机批次001数据\注汇总008
3
1
复制代码

替换说明；
   把a.txt文本中的所有"sate"字符替换成文字"随机数据(矩阵)\随机批次001数据\注汇总",并且把".txt"替换成空

hkldd

谢谢两位帮了我大忙！真心谢谢两位！

xp3000

Dim str, fso, file, f, txt
Set fso = CreateObject("Scripting.FileSystemObject")
For Each file in fso.GetFolder(".").Files
    If LCase(Right(file, 4)) = ".txt" Then
        Set f = fso.OpenTextFile(file, 1)
        txt = f.ReadAll
        f.Close : Set f = Nothing
        fso.OpenTextFile(file, 2).Write RegEx(txt)
    End If
Next
Set fso = Nothing

MsgBox "OK"

Function RegEx(txt)
    Set re = New RegExp
    re.Pattern = "sate([0-9]*)\.txt"
    re.Global = True
    re.IgnoreCase = True
    RegEx = re.Replace(txt, "随机数据(矩阵)\随机批次$1数据\注汇总$1")
End Function
复制代码

这个是VBS直接替换的，$1表示分组1，也就是第一个()里面的内容，如果带其他内容([0-9]*)改成(.*)

flyinnet9

@echo off
setlocal enabledelayedexpansion
for /f %%a in (a.txt) do (
set str=%%a
set str=!str:sate=随机数据^(矩阵^)\随机批次001数据\注汇总!
set str=!str:.txt=!
echo !str! >>b.txt
)
复制代码