VB.net Json字符串解析

VB.net Json字符串解析

{
“success”: true,
“isOnline”:true,
“points”: {
“q”: {
“value”: 0,
“time”: 1606718985087
}
}
}

简单解析Function

    Public Function JsonJX(ByVal JSONPath As String, ByVal JSONString As String) As String 
        On Error Resume Next
        Dim JS As Object
        If JSONString = "" Then Exit Function
        JS = CreateObject("MSScriptControl.ScriptControl")
        JS.Language = "JScript"
        Dim str = JS.Eval("JSON=" & JSONString & ";JSON." & JSONPath & ";")
        JS = Nothing
        Return str
    End Function

直接取值

JsonJX(“success”, JSONString)

取数组长度

JsonJX(“success.length”, JSONString)

直接数组内数值

JsonJX(“points[0].name”, JSONString)

取多级数值

JsonJX(“points.q.value”, JSONString)