如何在VB.NET中判断JSON数据是否含指定键？Newtonsoft库用法

嘿，这个问题我太熟悉了！在VB.NET里检查JSON里有没有某个指定的键，分两种常见场景：用原生的.NET类库，或者用大家都爱用的Newtonsoft.Json（也就是Json.NET）。我给你拆解清楚，重点说Newtonsoft的正确用法。

一、用原生System.Text.Json（适合.NET Core/.NET 5+） #

如果你的项目用的是较新的.NET版本，不用第三方库也能搞定。核心是用JsonDocument来解析JSON，然后用TryGetProperty方法——这是最安全的方式，不会因为键不存在就抛出异常。

给你个VB.NET的代码示例：

Imports System.Text.Json

' 示例JSON字符串
Dim jsonString As String = "{""name"":""John"",""age"":30}"

' 注意用Using包裹JsonDocument，避免内存泄漏
Using doc As JsonDocument = JsonDocument.Parse(jsonString)
    Dim rootElement As JsonElement = doc.RootElement
    
    ' 检查顶级键"name"是否存在
    Dim hasNameKey As Boolean = rootElement.TryGetProperty("name", Nothing)
    ' 检查不存在的键"email"
    Dim hasEmailKey As Boolean = rootElement.TryGetProperty("email", Nothing)
    
    Console.WriteLine($"name键存在吗？{hasNameKey}") ' 输出True
    Console.WriteLine($"email键存在吗？{hasEmailKey}") ' 输出False
End Using

要是你需要获取键对应的值，把Nothing换成一个JsonElement变量就行，方法会自动把值赋值过去。

二、用Newtonsoft.Json（Json.NET）的正确姿势 #

这是.NET生态里使用率超高的JSON库，判断键存在的方式有几种，我给你推荐最实用的：

1. 直接用JObject.ContainsKey（适合顶级键） #

如果你的JSON是对象结构（不是数组），先把字符串解析成JObject，然后直接调用ContainsKey就能快速判断，简单粗暴：

Imports Newtonsoft.Json.Linq

Dim jsonString As String = "{""name"":""John"",""age"":30}"
Dim jsonObj As JObject = JObject.Parse(jsonString)

If jsonObj.ContainsKey("name") Then
    Console.WriteLine("找到了name键！")
Else
    Console.WriteLine("name键不存在哦")
End If

2. 用TryGetValue（兼顾判断和取值） #

要是你不仅要判断键是否存在，还要拿到对应的值，用TryGetValue就很方便——它返回布尔值表示是否存在，同时把值输出到你指定的变量里：

Imports Newtonsoft.Json.Linq

Dim jsonString As String = "{""name"":""John"",""age"":30}"
Dim jsonObj As JObject = JObject.Parse(jsonString)
Dim targetValue As JToken = Nothing

If jsonObj.TryGetValue("age", targetValue) Then
    Console.WriteLine($"age键存在，值是：{targetValue.ToString()}")
Else
    Console.WriteLine("没找到age键")
End If

3. 处理嵌套键的情况 #

如果要检查的键在嵌套层级里，比如JSON是{"user":{"profile":{"city":"Beijing"}}}，用SelectToken就很省心，它支持类似路径的写法，返回非空就说明键存在：

Imports Newtonsoft.Json.Linq

Dim nestedJson As String = "{""user"":{""profile"":{""city"":""Beijing""}}}"
Dim jsonObj As JObject = JObject.Parse(nestedJson)

' 检查user.profile.city是否存在
If jsonObj.SelectToken("user.profile.city") IsNot Nothing Then
    Console.WriteLine("嵌套键user.profile.city存在！")
End If

小提醒 #

要是你的JSON是数组结构（比如[{"name":"John"},{"name":"Jane"}]），得先解析成JArray，然后遍历每个数组元素，再检查每个对象里的键哦。

内容的提问来源于stack exchange，提问作者Niuq