pcl_test

本版规则
1、求助时，务必在顶楼一次性把问题交代清楚，建议给出完整有针对性的样本，样本过大可发网盘分享链接。勿发无意义的标题
2、使用 code 标记把代码部分括起来（单击回复框的 <> 按钮，复制粘贴代码进去），以便复制。问题解决后，请编辑顶楼帖子在标题前面注明[已解决]http://www.bathome.net/thread-3473-1-1.html
3、提问前先使用论坛搜索，相同或类似的问题就无需再发帖了

pcl_test

<!-- :
@echo off&mshta "%~f0"&pause&exit /b
-->

<script>
var fso = new ActiveXObject("Scripting.FileSystemObject");
//设置网址
var url = "http://q10000.howbbs.com/posts/list/15681/540451.html";
var http = new ActiveXObject("Msxml2.XMLHTTP");
http.open("GET", url, false);
http.send(null);
var m = http.responseText.match(/\*{10,}[\s\S]+\*{10,}/m);
var txt = m[0].replace(/\*+|<br\s*\/>\s*|<[^>]+>/g,'').replace(/&nbsp;/g,' ');
fso.CreateTextFile('结果.txt',2).Write(txt.replace(/^[\r?\n]+/mg,''));
close();
</script>
复制代码

pcl_test

回复 7# 447219071
已修改

pcl_test

回复 9# 447219071

不知所云

pcl_test

回复 11# 447219071

fso.CreateTextFile('结果.txt',2).Write(txt.replace(/^\r+/mg,'').replace(/\r/g,'\r\n'));

pcl_test

回复 15# 447219071

批处理文件非gbk编码