vbscript [.net]将2-Dim数组转换为List然后转换为JSON

Posted 2021-05-22

'*** CREATE 2-DIMENSIONAL ARRAY
Dim resultsArray As String()() = New String(0)() {}
ReDim Preserve resultsArray(runCount)
resultsArray(runCount) = New String() { _
    nameId, _
    name, _
    itemsTotalYayVoteCount, _
    itemsTotalMatchupCount, _
    buzzPoint _
}

'*** CONVERT TO LIST
Dim resultsList As New List(Of Object)()
For i = 0 To resultsArray.GetUpperBound(0)
    Dim colList As New Dictionary(Of String, Object)()
    colList.Add("NameID", resultsArray(i)(0))
    colList.Add("Name", resultsArray(i)(1))
    colList.Add("TotalYayVoteCount", resultsArray(i)(2))
    colList.Add("TotalMatchupCount", resultsArray(i)(3))
    colList.Add("BuzzPoint", resultsArray(i)(4))
    resultsList.Add(colList)
Next

'*** CONVERT LIST TO JSON USING Newtonsoft.Json
JsonArray = New ArrayList()
JsonArray.Add(New With { _
    .Response = "ok" _
})
JsonArray.Add(New With { _
    .Results = resultsList _
})
Dim JsonResponse As String = JsonConvert.SerializeObject(JsonArray)