[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 keshun 于 2020-7-29 00:59 编辑

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%

回复 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();
复制代码
1

评分人数

    • keshun: 十分感谢!!!!技术 + 1

TOP

本帖最后由 keshun 于 2020-7-27 01:43 编辑

回复 2# went

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

TOP

  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. }
复制代码
1

评分人数

TOP

返回列表