本帖最后由 kaze 于 2019-4-29 12:52 编辑
想要弄一个BAT如何使用VBS(或者纯vbs)解析JSON,因为JAVASCRIPT解析非常方便
var obj = JSON.parse(ds);
弄了一段代码,但是不知道为什么就是不成功,
要求不要已经发布的纯BAT代码,非常复杂,看不懂,基本不能通用。有没有人能够帮忙修改一下代码- <!-- :
- @echo off
- echo 取金山词霸每日一句数据
- pause
- set www=
- set /p www=输入 "天数"
- echo %www%
- echo;%www%|mshta "%~f0"
- exit /b
- -->
-
- <script>
- var fso = new ActiveXObject("Scripting.FileSystemObject");
- var StdIn = fso.GetStandardStream(0);
- var StdOut = fso.GetStandardStream(1);
- var url=StdIn.ReadLine();
-
- function Get(N) {var X = new ActiveXObject("Msxml2.XMLHTTP");
- X.open("GET", N, false);
- X.send("");
- return X.responseText;
- }
-
- var s1='1';
- var d={};
- for (var i = 0; i < 10; i++) {
- date = new Date();
- yd = +date - 86400000*i;
- d = new Date(yd);
- var yd= d.getFullYear()+"-"+(d.getMonth()+1)+"-"+d.getDate();
- url = "http://open.iciba.com/dsapi/?date="+yd;
- ds = Get(url);
- if (ds){
- //var obj = JSON.parse(ds);
- //var MottoEN=obj.content;
-
-
- var d[i]=ds;
- var data=d[i]+"\n";
- }
- }
-
- fso.CreateTextFile('X:\ciba.txt',2,true).Write(data);
- close();
- </script>
复制代码
|