[已解决]怎么让这段提取网页内容的bat代码实时生成结果

zhuan1688

最终还是用火车采集器了，那个效率高很多，也容易很多！

下面是我在咱论坛找到的一位老师的批量提取网页内容的代码，问题是我的a.txt里网址太多，而这个代码是提取全部内容后才会生成jieguo.txt，
请教各位老师，能不能实时生成jieguo.txt，也就是提取一个网址生成一次jieguo.txt，这样就算中途出了问题我也可以从失败的地方重新开始
如果实现不了，让代码实时显示执行过程也行，我加上echo命令后不是显示条件编译已关闭就是显示缺少;
谢谢各位老师的辛苦付出

1. //&cls&cscript -nologo -e:jscript "%~f0"<"a.txt"&pause&exit /b
   
2. 
   
3. function BintoStr(strBin,strCharset){
   
4.     var stream = new ActiveXObject('ADODB.Stream')
   
5.     stream.Type = 1
   
6.     stream.Mode = 3
   
7.     stream.Open()
   
8.     stream.Write(strBin)
   
9.     stream.Position = 0
   
10.     stream.Type = 2
    
11.     stream.Charset = strCharset
    
12.     return stream.ReadText
    
13. }
    
14. 
    
15. function getHtmlTxt(strURL){
    
16.     var http = new ActiveXObject('Msxml2.XMLHTTP');
    
17.     try{
    
18.         http.open('GET', strURL, false);
    
19.         http.send();
    
20.         var m = http.GetResponseHeader('Content-Type').match(/charset\s?=\s?([^\s;]+)/i);
    
21.         if (m){
    
22.             var contenttype = m[0].replace(/charset\s?=\s?/,'');
    
23.             var HtmlText = BintoStr(http.ResponseBody,contenttype);
    
24.             return HtmlText;
    
25.         }
    
26.         else{
    
27.             var m = http.ResponseText.match(/<\s?meta.+?charset\s?=\s?[^\s"]+/i);
    
28.             if (m){
    
29.                 var contenttype = m[0].replace(/.+?charset\s?=\s?/,'');
    
30.                 var HtmlText = BintoStr(http.ResponseBody,contenttype);
    
31.                 return HtmlText;
    
32.             }
    
33.             else return http.ResponseText;
    
34.         }
    
35.      }catch (e){}
    
36. }
    
37. 
    
38. var fso = new ActiveXObject('Scripting.Filesystemobject');
    
39. var url = WScript.StdIn.ReadAll().split(/\s/);
    
40. var titlestr = descriptionstr = '';
    
41. for (var i=0; i<url.length; i++)
    
42. {
    
43.     var txt = getHtmlTxt(url[i]);
    
44.     if (txt) {
    
45.         var title = /<guid isPermaLink="false">([^<]+)<\/guid>/i.exec(txt);
    
46.         if (title)
    
47.              titlestr += title[1]+'\r\n';
    
48.         else titlestr += 'not found\r\n';
    
49.     }
    
50.     else{
    
51.         titlestr += 'access forbidden\r\n';
    
52.     }
    
53. }
    
54. fso.CreateTextFile('jieguo.txt',2).Write(titlestr);

复制代码

went

42行下面插入一行
WSH.Echo(url[i]):