apang

回复 6# amwfjhh


    ADO 的话可以不转换ansi，直接改。

@if (0)==(0) echo off
set "htmlfile=LoginForm.html"
set /p NewValue=输入新值：
cscript -nologo -e:jscript "%~0" "%NewValue%" "%htmlfile%"
pause
goto :EOF
@end

arg = WScript.Arguments;
with (new ActiveXObject("ADODB.Stream")){
        Mode = 3;
        Type = 2;
        Charset = "utf-8";
        Open();
        LoadFromFile(arg(1));
        s = ReadText(-1);
        s = s.replace(/(<tr>[\s\S]+?")\d+"/ig, '$1' + arg(0) + '"');
        s = s.replace(/.+>(未接|[34]路温度)<.*(\n|$)/g, '');
        Position = 0;
        WriteText(s);
        SetEOS;
        SaveToFile(arg(1), 2)
}
复制代码