网页数据写入文本【己解决】

keshun

https://hq.sinajs.cn/list=s_sh000001,int_dji,int_ftse
网页数据显示如下：
var hq_str_s_sh000001="上证指数,3196.7684,-128.3418,-3.86,4270540,58431187";
var hq_str_int_dji="道琼斯,26469.89,-182.44,-0.68";
var hq_str_int_ftse="伦敦指数,6123.82,-87.62,-1.41";

如下内容写入a.txt求代码，谢谢！！
上证指数,3196.7684,-128.3418,-3.86%
道琼斯,26469.89,-182.44,-0.68%
伦敦指数,6123.82,-87.62,-1.41%

went

1. //&cls&@ cscript -E:javascript -Nologo "%~0" >"a.txt" &pause&exit
   
2. var xhr=new ActiveXObject("Microsoft.XMLHTTP");
   
3. var url="https://hq.sinajs.cn/list=s_sh000001,int_dji,int_ftse";
   
4. xhr.open("GET",url,false);
   
5. xhr.send();
   
6. var value=xhr.responseText.match(/"(.*?(,|")){4}/g);
   
7. for(var i=0;i<value.length;i++){
   
8.         WSH.Echo(value[i].substr(1,value[i].length-2)+"%");
   
9. }

复制代码

keshun

回复 2# went

如下内容写入20200727.txt求代码，前面插入时间，谢谢！！
    2020.7.27 1:38:26 上证3196.7684,-3.86% 道琼斯,26469.89,-0.68% 伦敦6123.82,-1.41%

went

回复 3# keshun

1. //&cls&@ cscript -E:javascript -Nologo "%~0" &pause&exit
   
2. var date,line,xhr,url,values,array,file,fileName;
   
3. d=new Date();
   
4. fileName=line=""+d.getFullYear()+"."+(d.getMonth()+1)+"."+d.getDate();
   
5. line+=" "+d.getHours()+":"+d.getMinutes()+":"+d.getSeconds()+" ";
   
6. xhr=new ActiveXObject("Microsoft.XMLHTTP");
   
7. url="https://hq.sinajs.cn/list=s_sh000001,int_dji,int_ftse";
   
8. xhr.open("GET",url,false);
   
9. xhr.send();
   
10. values=xhr.responseText.match(/"(.*?(,|")){4}/g);
    
11. for(var i=0;i<values.length;i++){
    
12.         array=values[i].substr(1,values[i].length-2).split(",");
    
13.         line+=" "+array[0]+","+array[1]+","+array[3]+"%";
    
14. }
    
15. WSH.Echo(line);
    
16. file=new ActiveXObject("Scripting.FileSystemObject").CreateTextFile(fileName+".txt",true);
    
17. file.WriteLine(line);
    
18. file.Close();

复制代码