zoukankan      html  css  js  c++  java
  • VBA 解析 json

    Sub Macro1()
    
    Debug.Print "999"
    Dim FilePath, strData
    FilePath = "C:GitTestJenProjects.json"
    Open FilePath For Input As #1
    Do While Not EOF(1)
        Line Input #1, strData
    Loop
    
    Close #1
    
    Debug.Print strData
    'MsgBox strData
    
    strData = "[{""yyy"":""/t.\8\88""},{""yyy"":""9\99""}]"
    'age = "" & scobj.Eval("query[0].yyy") & scobj.Eval("query[1].yyy")
    testJson (strData)
       
        
    End Sub
    
    Sub testJson(jsstr As String)
    Dim scobj
    
     Set scobj = CreateObject("msscriptcontrol.scriptcontrol")
     ok = scobj Is Nothing
     
      Debug.Print TypeName(scobj) ' ScriptControl
                  
    'MsgBox ("77")
    
    'Dim scobj As New MSScriptControl.ScriptControl
    Dim age As String
    
    scobj.Language = "JavaScript"
    
    
    scobj.AddCode "var query = " & jsstr
    
    
    age = "" & scobj.Eval("query[0].yyy")
    
    Debug.Print "---" & age & ""
    
    
    End Sub
    

      

    fffffffffffffffff
    test red font.
  • 相关阅读:
    前端学习
    python 镜像
    os模块常用操作
    pandas 缺失值与空值处理
    pandas 根据列的值选取所有行
    pandas模块
    编码与解码
    正则表达式
    pthon之字典的遍历
    python作用域
  • 原文地址:https://www.cnblogs.com/wgscd/p/14469515.html
Copyright © 2011-2022 走看看