[文本处理] 网页数据写入文本【己解决】

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

回复 3# keshun

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

keshun

回复 2# went

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

went

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