powerbat

未考虑文件编码，都当作gbk对待。

@set @n=0//&cscript.exe -e:jscript "%~f0"&exit /b

folder1 = "html文件夹";
folder2 = "新的文件夹";
info = "a.txt";

fso = new ActiveXObject("Scripting.FileSystemObject");
fc = new Enumerator(fso.GetFolder(folder1).files);
files = [];
for (i=0; !fc.atEnd(); fc.moveNext()) {
    fp = fc.item().Path;
    if (/\.(html?)$/i.test(fp)) files[i++] = fp;
}
texts = fso.OpenTextFile(info).ReadAll().split("\r\n");
if (!fso.FolderExists(folder2)) fso.CreateFolder(folder2);
for (i=0; i<files.length; i++)
{
    s = fso.OpenTextFile(files[i]).ReadAll();
    s = s.replace(/(?=<\/body>)/i, texts[parseInt(Math.random()*texts.length)]);
    fso.OpenTextFile(folder2+'\\'+files[i].replace(/.*\\/,'')).write(s));
}
复制代码