Public Function JSONParse(ByVal JSONPath As String, ByVal JSONString As String) As Variant
Dim JSON As Object
Set JSON = CreateObject("MSScriptControl.ScriptControl")
JSON.Language = "JScript"
JSONParse = JSON.Eval("JSON=" & JSONString & ";JSON." & JSONPath & ";")
Set JSON = Nothing
End Function
回傳結果：
?JSONParse
1.16659428734586E+18
因為介面定義的long，該欄位是19為的數字，被自動轉換了。
有沒有簡單的辦法處理下
Text3.Text = JSONParse("data.result['" & xx & "'].userId", DataS)
uj5u.com熱心網友回復：
QQ:527524938,發我試試轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/18494.html
標籤：API
上一篇：大神求幫忙！！！