从具有不一致值的 JArray 项获取值

Question

我正在阅读来自外部合作伙伴的 JSON 文件，该文件并不完全一致（他们不会很快更改它）。

我想检查字段 bathroom 的值并将其存储在一个整数中。所以这里有一个潜在值的映射以及我想要得到的值：

"" = 0
 = 0 (here no value is present)
2 = 2
"2" = 2

但无论我尝试什么（见下文），我都会收到错误消息：

Input string was not in a correct format.

    Dim json as string = "[{""bathrooms"": """"}, {""bathrooms"": }, {""bathrooms"": 2},{""bathrooms"": ""1""}]"
    Dim iBathrooms As Integer 
    Dim jsonArray As Newtonsoft.Json.Linq.JArray = JArray.Parse(json)

    For Each item In jsonArray
        iBathrooms= If(item.Value(Of Integer?)("bathrooms"), 0)
        iBathrooms = If(CType(item("bathrooms"), Integer?), 0)
        Int32.TryParse(item("bathrooms").Value(Of Integer).ToString, iBathrooms)        
    Next

我已经检查过这里：Get value from JToken that may not exist (best practices)

Answer 1

如果 JSON 的问题始终是缺少值，您可以插入一个空字符串：

Dim json As String = "[{""bathrooms"": """"}, {""bathrooms"": }, {""bathrooms"": 2},{""bathrooms"": ""1""}]"
Dim re = New Text.RegularExpressions.Regex(":\s*}")
Dim json2 = re.Replace(json, ": """"}")

Console.WriteLine(json2)

输出：

[{"bathrooms": ""}, {"bathrooms": ""}, {"bathrooms": 2},{"bathrooms": "1"}]

有效 JSON.

然后您可以检查该值是否可以解析为整数：

Dim json As String = "[{""bathrooms"": """"}, {""bathrooms"": """"}, {""bathrooms"": 2},{""bathrooms"": ""1""}]"

Dim re = New Text.RegularExpressions.Regex(":\s*}")
json = re.Replace(json, ": """"}")

Dim nBathrooms As Integer
Dim jsonArray As Newtonsoft.Json.Linq.JArray = JArray.Parse(json)

For Each item In jsonArray
    Dim q = item("bathrooms")
    If q IsNot Nothing AndAlso Integer.TryParse(q.Value(Of Object).ToString(), nBathrooms) Then
        Console.WriteLine(nBathrooms)
    Else
        Console.WriteLine("Not specified.")
    End If

Next

从具有不一致值的 JArray 项获取值

Get value from JArray item with has inconsistent values

vb.net

asp.net

json

json.net