[文本处理] 批处理脚本怎样替换指定位置的字符串？

@echo off & setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    set "s=%%i"
    if "!s: target=!" NEQ "!s!" (
        if "!s: URL=!" NEQ "!s!" (
            for /f tokens^=1-5delims^=^" %%a in ("%%i") do (
                echo,%%a"%%~nd"%%c"%%d"%%e
            )
        ) else echo,%%i
    ) else echo,%%i
)
pause
复制代码

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

s = WScript.StdIn.ReadAll();
s = s.replace(/( target=").*?(" +URL=".*?([^\/]+)\.html")/ig,"$1$3$2");
WScript.StdOut.Write(s)
复制代码

fso = new ActiveXObject("Scripting.FileSystemObject");
a = fso.OpenTextFile("filea.txt").ReadAll();
b = fso.OpenTextFile("fileb.txt").ReadAll();
a = a.replace(/( target=")(.*?)(" +URL=".*?([^/]+)\.html")/ig,
        function(s0, s1, s2, s3, s4) {
                re = new RegExp(s1 + s2 + '"', "ig");
                b = b.replace(re, s1 + s4 + '"');
                return s1 + s4 + s3
        }
)

fso.OpenTextFile("New_filea.txt", 2, true).Write(a)
fso.OpenTextFile("New_fileb.txt", 2, true).Write(b)
复制代码