[文本处理] [已解决]BAT如何批量生成不同关键词的网页？

wuzu007

1，读入域名文本host.txt，然后按顺序生成，生成域名文件夹/二级文件夹www.域名/生成index.htm
2，index.htm模板从moban.htm提取（moban.htm设置一个标签为{关键词1}{关键词2}{关键词3}{关键词4}）
3，关键字标签随机读取key.txt

总的来说就是批量生成一个index.htm文件，每个域名下的index.htm关键词不一样而已。

叫朋友用E语言写的一个，生成出来的在客户端查看是乱码。郁闷。编码没有问题，就是软件生成导致的。

pcl_test

//&cls&cscript.exe -nologo -e:jscript "%~f0"&pause&exit/b

var loadText = function (FileIn,Charset){
    var stm = new ActiveXObject('ADODB.Stream');
    stm.Type = 2;
    stm.Mode = 3;
    stm.Charset = Charset;
    stm.Open();
    stm.LoadFromFile(FileIn);
    stm.Position = 0;
    return stm.ReadText;
}
var saveText = function (str,FileOut,Charset){
    var stm = new ActiveXObject('ADODB.Stream');
    stm.Type = 2;
    stm.Mode = 3;
    stm.Charset = Charset;
    stm.Open();
    stm.WriteText(str);
    return stm.SaveToFile(FileOut,2);
}

var f1 ='key.txt',f2 ='host.txt',f3 ='moban.txt';
var keytxt = loadText(f1,'utf-8').split('\r\n');
var hosttxt = loadText(f2,'gbk').split('\r\n');
var mobantxt = loadText(f3,'utf-8');
var fso = new ActiveXObject('Scripting.FileSystemObject');
for (var i=0; i<hosttxt.length; i++)
{
    fso.CreateFolder('.\\'+hosttxt[i]);
    var folder = '.\\'+hosttxt[i]+'\\www.'+hosttxt[i]+'\\';
    fso.CreateFolder(folder);
    var htmtxt = mobantxt;
    for (var j=1; j<5; j++)
    {
        var n = Math.floor(Math.random()*keytxt.length);
        var re =new RegExp('关键词'+j,'g')
        var tmptxt = htmtxt.replace(re,keytxt[n]);
        htmtxt = tmptxt;
    }
    saveText(htmtxt,folder+'index.htm','utf-8');
}
复制代码

依山居

吐槽，一看就是做垃圾站的伸手党。