Return 来自网络服务的单个 json object 数组

Question

我正在从 Web 服务中检索 json 并使用 $.each() 遍历层次结构。我遇到的问题是 "Titles"，可能有一个或多个标题。如何强制 "Titles" 到 return 一个 object 数组，即使 collection 中只有一个 object 所以 $.each( ) 不会爆炸。

'VB Webservice...
ds.DataSetName = "dsSurveys"
ds.Tables(0).TableName = "Surveys"
ds.Tables(1).TableName = "Titles"
ds.Tables(2).TableName = "Questions"
ds.Tables(3).TableName = "ResponseTypes"

Dim relSurveyTitles As New DataRelation("relSurveyTitles", ds.Tables("Surveys").Columns("SurveyId"), ds.Tables("Titles").Columns("SurveyId"))
Dim relTitlesQuestions As New DataRelation("relTitlesQuestions", ds.Tables("Titles").Columns("TitleId"), ds.Tables("Questions").Columns("TitleId"))
Dim relResponseTypesQuestions As New DataRelation("relResponseTypesQuestions", ds.Tables("ResponseTypes").Columns("ResponseTypeId"), ds.Tables("Questions").Columns("ResponseTypeId"))

relSurveyTitles.Nested = True
relTitlesQuestions.Nested = True
relResponseTypesQuestions.Nested = False

ds.Relations.Add(relSurveyTitles)
ds.Relations.Add(relTitlesQuestions)
ds.Relations.Add(relResponseTypesQuestions)

Dim doc As New XmlDocument()
doc.LoadXml(ds.GetXml())
Dim jsonText As String = JsonConvert.SerializeXmlNode(doc).Replace("null", """""").Replace("'", "'")
Return jsonText

//json response
{
    "dsSurveys": {
        "Surveys": {
            "SurveyId": "1",
            "SurveyName": "Survey 1",
            "Titles": {     //I would like to see this in an array (like "Questions") --> "Titles": [{
                             //regarless of object count
                "SurveyId": "1",
                "TitleId": "1",
                "TitleName": "Title 1",
                "Questions": [{
                    "SurveyId": "1",
                    "TitleId": "1",
                    "QuestionId": "1",
                    "Question": "Question 1?",
                    "isComment": "true",
                    "ResponseTypeId": "1"
                },
                {
                    "SurveyId": "1",
                    "TitleId": "1",
                    "QuestionId": "2",
                    "Question": "Question 2?",
                    "isComment": "true",
                    "ResponseTypeId": "1"
                }]
            }
        },
        "ResponseTypes": {
            "ResponseTypeId": "1",
            "ResponseType": "Yes|No|N/A"
        }
    }
}

Answer 1

查看 the documentation，您似乎可以通过添加 json:Array='true' 属性（其中json 命名空间是 http://james.newtonking.com/projects/json) 到 <Titles> 个节点。

您可以使用如下方式添加适当的属性：

Dim doc As New XmlDocument()
doc.LoadXml(ds.GetXml())

' Add the namespace declaration to the root node
Dim nsAttr = doc.CreateAttribute("xmlns", "json", "http://www.w3.org/2000/xmlns/")
nsAttr.Value = "http://james.newtonking.com/projects/json"
doc.DocumentElement.Attributes.Append(nsAttr)

' Add the json:Array attribute to each Titles element
For Each title As XmlElement In doc.SelectNodes("//Titles")
    Dim attr = doc.CreateAttribute("json:Array", "http://james.newtonking.com/projects/json")
    attr.Value = "true"
    title.Attributes.Append(attr)
Next

Dim jsonText As String = JsonConvert.SerializeXmlNode(doc).Replace("null", """""").Replace("'", "'")
Return jsonText

Return 来自网络服务的单个 json object 数组

Return array for single json object from webservice

javascript

json

vb.net

web-services