[文本处理] [已解决]批处理或VBS如何实现对多个文本文件进查找替换字符串操作

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('type "a.txt"') do (
set n=0
for /f "tokens=1* delims=:" %%b in ('findstr /n .* "%%a"') do (
>$ echo,%%c
if !n! == 1 (
for /f "tokens=2 delims==" %%d in ('type "$"') do set /a s=%%d/5
>>"2.txt" echo,ToolSpeed=!s!
set n=0
) else (
>>"2.txt" echo,%%c
)
findstr /c:"Generating" $ >nul 2>nul && set n=1
)
del $
move "2.txt" "%%a"
)

for /f "delims=" %%a in ('type "a.txt"') do (
set n=0
for /f "tokens=1* delims=:" %%b in ('findstr /n "EdgeData" "%%a"') do set /a t=%%b+1
for /f "tokens=1* delims=:" %%c in ('findstr /n .* "%%a"') do (
if !n! lss !t! (
>>$1 echo,%%d
) else (
>>$2 echo,%%d
)
set /a n+=1
)
set m=0
for /f "tokens=1* delims=:" %%e in ('findstr /n .* "$2"') do (
if not !m! == 0 >>$ echo,%%f
set /a m+=1
)
move $ "$2"
for /f "tokens=1* delims=:" %%g in ('findstr /n .* "$1"') do >>$ echo,%%h
>>$ echo,Diameter=80
for /f "tokens=1* delims=:" %%i in ('findstr /n .* "$2"') do >>$ echo,%%j
move "$" "%%a"
del $*
)
pause
复制代码

@set @n=0;// & cscript -nologo -e:jscript "%~0"<a.txt & pause & exit/b

Path = "D:\\Test\\"
fso = new ActiveXObject("Scripting.FileSystemObject");
while (!WScript.StdIn.AtEndOfStream) {
        f = WScript.StdIn.ReadLine().replace(/^\s+|\s+$/g, "");
        f = Path + f;
        if (fso.FileExists(f)) {
                objFile = fso.OpenTextFile(f, 1);
                txt = objFile.ReadAll();
                objFile.Close();
                fso.OpenTextFile(f, 2).Write(changeNum(txt))
        }
}

function changeNum(s) {
        s += "\r\n";
        //ToolSpeed 的值乘以0.2
        re1 = /^( *\[Generating][\s\S]+?^ *ToolSpeed *=)(.*)\r\n/im;
        //Diameter 的值修改成80
        re2 = /^( *\[EdgeData][\s\S]+?^ *Diameter *=)(.*)\r\n/im;
        //Type=circle 修改为 Type=rand
        re3 = /^ *Type *= *circle *\r\n/im;
        //[EdgeData] 下面增加一行 PA=5.0
        re4 = /^ *\[EdgeData] *\r\n/im;
        //Wavi开头的行后面加上 -Q
        re5 = /^( *Wavi.*?)(\-Q)? *\r\n/img;
        //删除以Thickness开头的行
        re6 = /^ *Thickness.*\n/img;
        s = s.replace(re1,
                //加减除修改下面*为+-/
                function(s0,s1,s2){s2-=0; return s1 + (s2 * 0.2) + "\r\n"} 
        );
        s = s.replace(re2, "$1" + "80" + "\r\n");
        s = s.replace(re3, "Type=rand" + "\r\n");
        s = s.replace(re4, "$&" + "PA=5.0" + "\r\n");
        s = s.replace(re5, "$1" + "-Q" + "\r\n");
        s = s.replace(re6, "");
        return s.replace(/\r\n$/, "")
}
复制代码

@set @n=0;/* & echo off
for /f "delims=:" %%a in ('findstr /bn "\/\*" "%~0"') do (
        more +%%a "%~0" | cscript -nologo -e:jscript "%~0"
)
pause & exit/b & rem */

Path = "D:\\Test\\"
fso = new ActiveXObject("Scripting.FileSystemObject");
while (!WScript.StdIn.AtEndOfStream) {
        f = WScript.StdIn.ReadLine().replace(/^\s+|\s+$/g, "");
        f = Path + f;
        if (fso.FileExists(f)) {
                objFile = fso.OpenTextFile(f, 1);
                txt = objFile.ReadAll();
                objFile.Close();
                fso.OpenTextFile(f, 2).Write(changeNum(txt))
        }
}

function changeNum(s) {
        s += "\r\n";
        //ToolSpeed 的值乘以0.2
        re1 = /^( *\[Generating][\s\S]+?^ *ToolSpeed *=)(.*)\r\n/im;
        //Diameter 的值修改成80
        re2 = /^( *\[EdgeData][\s\S]+?^ *Diameter *=)(.*)\r\n/im;
        //Type=circle 修改为 Type=rand
        re3 = /^ *Type *= *circle *\r\n/im;
        //[EdgeData] 下面增加一行 PA=5.0
        re4 = /^ *\[EdgeData] *\r\n/im;
        //Wavi开头的行后面加上 -Q
        re5 = /^( *Wavi.*?)(\-Q)? *\r\n/img;
        //删除以Thickness开头的行
        re6 = /^ *Thickness.*\n/img;
        s = s.replace(re1,
                function(s0,s1,s2){s2-=0;return s1 + (s2 * 0.2) + "\r\n"}
        );
        s = s.replace(re2, "$1" + "80" + "\r\n");
        s = s.replace(re3, "Type=rand" + "\r\n");
        s = s.replace(re4, "$&" + "PA=5.0" + "\r\n");
        s = s.replace(re5, "$1" + "-Q" + "\r\n");
        s = s.replace(re6, "");
        return s.replace(/\r\n$/, "")
}

/* --- Start List ---
1.txt
2.txt
3.txt
--- End List ------ */
复制代码