面试题：Visual Basic中解析简单JSON格式数据

Question

假设给定一个简单的JSON字符串 '{"name":"John","age":30}'，请用Visual Basic代码实现将其解析，分别获取其中的name和age值，并在控制台输出。

Answer 1

Imports System.IO
Imports System.Text.Json

Module Module1
    Sub Main()
        Dim jsonString As String = "{""name"":""John"",""age"":30}"
        Dim options As JsonSerializerOptions = New JsonSerializerOptions With {.PropertyNameCaseInsensitive = True}
        Dim jsonObject = JsonSerializer.Deserialize(Of Dictionary(Of String, Object))(jsonString, options)

        If jsonObject.ContainsKey("name") Then
            Console.WriteLine("Name: " & jsonObject("name").ToString())
        End If

        If jsonObject.ContainsKey("age") Then
            Console.WriteLine("Age: " & jsonObject("age").ToString())
        End If

        Console.ReadLine()
    End Sub
End Module