研究了下搞出来了。
Private Sub Command1_Click()
Dim strDlist() As String
With ScriptControl1
.Reset
.Language = "javascript"
.AddCode "var json = " & Text1.Text & "; var s='';for( var i=0;i< json.data.length;i++){ for(var item in json.data[i]){s=s + item+ '='+ json.data[i][item] + ','} }"
Debug.Print .Eval("s")
End With
End Sub
输出结果:
1466744001=0,1466736802=1,1466736801=0,1466730484=1,1466729602=1,1466729601=0,1466723247=1,1466720287=1,1466720286=0,1466715990=1,1466715204=1,1466715200=0,1466708748=1,1466708001=1,1466708000=0,1466702125=1,1466702125=0,1466701511=1,1466700501=1,1466700499=0,1466694270=1,1466693023=1,1466693023=0,1466687983=1,1466687982=0,1466687031=1,1466682707=1,
主要都是在js里实现的。结果的格式具体可以在js代码里调。
var json = "json数据内容";
var s = '';
for (var i = 0; i < json.data.length; i++) {
for (var item in json.data[i]) {
s = s + item + '=' + json.data[i][item] + ','
}
}