[文本处理] 批处理BAT如何使用VBS(或者纯vbs)解析还原JSON

/*&cls
@echo off
title 代码可用,扫码头像,感谢赞助;有什么问题,可加QQ956535081及时沟通
cd /d "%~dp0"
cscript -nologo -e:jscript "%~f0" 30
pause&exit /b
*/

var fso=new ActiveXObject('Scripting.FileSystemObject');
var http=new ActiveXObject('MSXML2.XMLHTTP');
var today=new Date();
var result='', n=WSH.Arguments(0);

for(var i=0;i<Number(n);i++){
    var day=new Date(today-86400000*i);
    var tmpday=day.getFullYear()+"-"+(day.getMonth()+1)+"-"+day.getDate();
    var daily=getinfo(gettext(tmpday));
    result+=daily+'\r\n\r\n';
}

//WSH.echo(result);
var f=fso.CreateTextFile('dailysentence.txt', 2, true);
f.Write(result);
f.Close();
WSH.Quit();


function gettext(d){
    var url='http://open.iciba.com/dsapi/?date='+d;
    var text='';
    http.open('Get', url, false)
    http.send();
    text=http.responseText;
    return text;
}

function getinfo(s){
    var json=eval('('+s+')');
    var content=json['content'];
    var note=json['note'];
    var translation=json['translation'];
    var dateline=json['dateline'];
    return content+'\r\n'+note+'\r\n'+translation;
}
复制代码

rem On Error Resume Next

Dim http, html, strOut, i, dt, ymd, url
Set http = CreateObject("Msxml2.XMLHTTP")
Set html = CreateObject("htmlfile")
strOut = ""

For i = 0 To 9
    dt  = DateAdd("d", -i, date)
    ymd = Year(dt) & "-" & Right(Month(dt) + 100, 2) & "-" & Right(Day(dt) + 100, 2)
    url = "http://open.iciba.com/dsapi/?date=" & ymd
    http.open "GET", url, False
    http.send
    strOut = GetJSON(http.responseText) & vbCrLf & vbCrLf & strOut
Next

Function GetJSON(txt)
    Dim window, json
    Set window = html.parentWindow
    window.execScript "var json = " & txt, "JScript"
    Set json = window.json
    GetJSON = json.content & vbCrLf & json.note & vbCrLf
    GetJSON = GetJSON & json.translation & vbCrLf & json.dateline
End Function

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile("ciba.Log", 2, True).Write(strOut)

MsgBox "Done"
复制代码

-9..0 | ForEach{$url = 'http://open.iciba.com/dsapi/?date=' + (get-Date).AddDays($_).ToString('yyyy-MM-dd'); (Invoke-WebRequest $url).Content | ConvertFrom-Json | ForEach{$_.content; $_.note; $_.translation; $_.dateline}}
复制代码

@if(0)==(0) echo off
for /f "delims=" %%i in ('cscript //nologo //e:jscript "%~f0" 30') do set "_%%i"
set /p www=输入u打开网址
if /i "%www%" == "u" start "" "%_b%"
pause & exit /b
@end

var num = WSH.Arguments(0);
var url_list = 'www.bathome.net';
var list = 'MyList';
WSH.Echo('a=' + num + '\nb=' + url_list + '\nc=' + list);
复制代码