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

[文本处理] 【已解决】批处理如何对比数据条目 找出更新的条目

本帖最后由 uuu888s 于 2015-4-21 09:06 编辑

现有一几天前的数据条目文件 a.txt   假设内容如下

var RoaqyFPm={pages:1,data:["002042,华孚色纺,88,18837971,0.0226148126773274,增仓,15170345,4.136284615716,2015-03-31","600517,置信电气,1,7467160,0.00600002110046579,减仓,-6182622,-0.452946574531373,2015-03-31","002013,中航机电,1,3449707,0.00481610067451324,减仓,-6506264,-0.653503711491325,2015-03-31","600086,东方金钰,3,21662045,0.0481378777777778,减仓,-10277407,-0.321777812593654,2015-03-31","002276,万马股份,2,22154366,0.0235776173664484,减仓,-17645634,-0.443357638190955,2015-03-31"]}



http://datainterface.eastmoney.com//JS.aspx?type=8&js=var%20RoaqyFPm={pagespc),data:[(x)]}&stat=6&cmd=1&fd=2015-03-31
获取最新的数据条目文件 存为b.txt

对比b.txt 和a.txt 找出更新的条目
存为c.txt


大牛帮帮忙 在线等 不胜感激!!
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
不要哭让萤火虫带着你逃跑 乡间的歌谣永远的依靠

本帖最后由 apang 于 2015-4-21 21:11 编辑
  1. @set @n=0;//&cscript -nologo -e:jscript "%~0"<a.txt>c.txt & pause & exit/b
  2. url = 'http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=ZLSJ&sty=ZLCC&st=5&sr=-1&p=1&ps=888&js=var%20RoaqyFPm={pages:(pc),data:[(x)]}&stat=6&cmd=1&fd=2015-03-31';
  3. s = WScript.StdIn.ReadAll();
  4. with(new ActiveXObject('Microsoft.XMLHTTP')) {
  5.         Open('GET', url, false);
  6.         Send();
  7.         eval(responseText);
  8. }
  9. arr = RoaqyFPm.data;
  10. arrTmp = [];
  11. for(var i=0; i<arr.length; i++) {
  12.         s1 = '"' + arr[i] + '"';
  13.         if(s.indexOf(s1) < 0) arrTmp.push(s1);
  14. }
  15. WScript.StdOut.Write('var RoaqyFPm={pages:1,data:[' + arrTmp + ']}')
复制代码
1

评分人数

TOP

返回列表