标题: [文本处理] [已解决]BAT如何批量生成不同关键词的网页? [打印本页]
作者: wuzu007 时间: 2015-10-24 09:36 标题: [已解决]BAT如何批量生成不同关键词的网页?
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 时间: 2015-10-24 12:16
- //&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');
- }
复制代码
作者: 依山居 时间: 2015-10-24 12:33
吐槽,一看就是做垃圾站的伸手党。
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |