請教如何偵測JSON數組的元素總數

phsu

我寫了以下代碼，可將JSON數組的內容寫入單元格，但不知如何偵測該數組總共有5個元素，亦即我想將For循環的4用變量取代，如何讓該變量擷取4這個數字？請高手惠予指導。謝謝。

Sub 將JSON數組寫入單元格()
    Dim JsStr As String
    Dim Js As String
    Dim i As Integer
   
    JsStr = "{""data3"":[""1"",""2"",""3"",""4"",""5""]}"
    '撰寫JAVA函數
    Js = "function j(s,i){return eval('(' + s + ').data3[' + i + ']');}"
    With CreateObject("MSScriptControl.ScriptControl")
        .Language = "JScript"
        .AddCode Js
        For i = 0 To 4
            Cells(i + 1, 1) = .Run("j", JsStr, i)
        Next i
    End With
End Sub

sqrall900

for i = 0 to ubound(split(JsStr,","))

phsu

謝謝sqrall900的回覆，但若是二維數組或是比較複雜的JSON字符，這個方法恐怕行不通，是吧？

sqrall900

phsu 发表于 2017-8-26 09:20
謝謝sqrall900的回覆，但若是二維數組或是比較複雜的JSON字符，這個方法恐怕行不通，是吧？

看你的JsStr的写法，我不太懂java的表达方式，但是有规律的字符串肯定有其方法可以得到需要的值

phsu

謝謝sqrall900的回覆，請試試看如何偵測下列代碼的兩個For循環的4及1。謝謝。
Sub 將二維JSON數組寫入單元格()
    Dim JsStr As String
    Dim Js As String
    Dim i As Integer
    Dim j As Integer
   
    JsStr = "{""data3"":[[""1"",""A""],[""2"",""B""],[""3"",""C""],[""4"",""D""],[""5"",""E""]]}"
    '撰寫JAVA函數
    Js = "function j(s,i,j){return eval('(' + s + ').data3[' + i + '][' + j + ']');}"
    With CreateObject("MSScriptControl.ScriptControl")
        .Language = "JScript"
        .AddCode Js
        For i = 0 To 4
            For j = 0 To 1
                Cells(i + 1, j + 1) = .Run("j", JsStr, i, j)
            Next j
        Next i
    End With
End Sub

Kaohsing

Sub kaohsing()
    Set oDom = CreateObject("HTMLFILE")
    Set oWindow = oDom.parentWindow
    oWindow.execScript "var ghb =  {""data3"":[""1"",""2"",""3"",""4"",""5""]};"

    MsgBox oWindow.eval("ghb.data3.length")
End Sub

Kaohsing

phsu 发表于 2017-8-26 09:45
謝謝sqrall900的回覆，請試試看如何偵測下列代碼的兩個For循環的4及1。謝謝。
Sub 將二維JSON數組寫入單元 ...

试试这样

1. 
   
2. Sub jArr1()
   
3.     Set oDom = CreateObject("HTMLFILE")
   
4.     Set oWindow = oDom.parentWindow
   
5.     oWindow.execScript "var ghb =  {""data3"":[""1"",""2"",""3"",""4"",""5""]};"
   
6.   
   
7.     MsgBox oWindow.eval("ghb.data3.length")
   
8. End Sub
   

复制代码

浮华、缠绕指尖

1. Sub test()
   
2.     Dim JsStr As String
   
3.     Dim i As Integer
   
4.     JsStr = "var a={""data3"":[""1"",""2"",""3"",""4"",""5""]}"
   
5.     With CreateObject("MSScriptControl.ScriptControl")
   
6.         .Language = "JScript"
   
7.         .AddCode JsStr
   
8.         For i = 0 To .eval("a.data3.length-1")
   
9.             Cells(i + 1, 1) = .eval("a.data3[" & i & "]")
   
10.         Next i
    
11.     End With
    
12. End Sub

复制代码

have a try