VB 获取json的数据，如何将其中指定字段类型从long调整为string

[JD_S]

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)

[专注VB编程开发20年]

QQ:527524938,发我试试