vbscript 解析JSON-8-18

Posted 2021-05-21

Sub find_abbr_1(ByVal control As IRibbonControl)
Dim f, nr
Dim jsstr As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\haha.json")
nr = f.readall
On Error GoTo kr
    Dim a, b As Integer
    a = 1: b = 2
    If a > b Then
kr:
      MsgBox "can't find this abbr"
    End If

Dim scobj As New MSScriptControl.ScriptControl
Dim age As String


scobj.Language = "JavaScript"


scobj.AddCode ("var query = " + nr)

age = scobj.Eval("query[0]." + Selection.Range.Text)
If age = "n.a." Then
MsgBox "this word no abb"
Else
Selection.Text = FunctionGroup.convertUpper(age)
End If