[文本处理] [已解决]批处理如何将html网页文件中的链接修改成指定格式

@echo off
set "h=<a href="../../htm/"
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b/s/a-d *.html') do (
    (for /f usebackqtokens^=2delims^=^" %%j in ("%%i") do (
        for /f "tokens=2delims==" %%k in ("%%j") do (
            set "str=%%k"
            if "!str:~5!" == "" (
               set "str=!str:~,2!"
            ) else set "str=!str:~,3!"
              echo !h!!str!/%%k.html"^>
        )
    ))>$
    move $ "%%i"
)
pause
复制代码

@set @n=0;/* & echo off
dir /b/s *.html | cscript -nologo -e:jscript "%~0"
pause & exit /b & rem */
fso = new ActiveXObject('Scripting.FileSystemObject');
while (!WScript.StdIn.AtEndOfStream) {
    f = WScript.StdIn.ReadLine();
    txt = fso.OpenTextFile(f, 1).ReadAll();
    txt = txt.replace(/(.+=").+=(.{4,6})"/img,
        function(s0, s1, s2) {
            m = Math.floor(s2.length / 2);
            s = s1 + '\.\./\.\./htm/';
            s += s2.substr(0, m) + '/' + s2 + '\.html"';
            return s
        }
    );
    fso.OpenTextFile(f, 2, true).Write(txt);
}
复制代码

@set @n=0;/* & echo off
dir /b/s *.htm | cscript -nologo -e:jscript "%~0"
pause & exit /b & rem */
fso = new ActiveXObject('Scripting.FileSystemObject');
while (!WScript.StdIn.AtEndOfStream) {
    f = WScript.StdIn.ReadLine();
    txt = fso.OpenTextFile(f, 1).ReadAll();
    txt = txt.replace(/"http:\/\/.+?uni=([\da-z]{4,6})"/ig,
        function(s0, s1) {
            m = Math.floor(s1.length / 2);
            s = '"../../htm/' + s1.substr(0, m) + '/' + s1 + '.html"';
            return s
        }
    );
    fso.OpenTextFile(f, 2, true).Write(txt);
}
复制代码