在Visual Basic (VB) 中，操作XML和JSON数据是常见的任务，特别是在处理Web服务、配置文件或数据交换时。VB.NET 提供了多种方式来处理这两种格式的数据。

操作XML数据

VB.NET 提供了几种操作XML数据的方法，包括使用 System.Xml 命名空间中的类（如 XmlDocument 和 XmlNode）以及使用LINQ to XML（在 System.Xml.Linq 命名空间中）。

使用 XmlDocument

vb复制代码

	Imports System.Xml
	Module Module1
	Sub Main()
	Dim xmlDoc As New XmlDocument()
	xmlDoc.Load("example.xml") ' 加载XML文件
	' 访问XML元素
	Dim root As XmlNode = xmlDoc.DocumentElement
	Dim title As String = root.SelectSingleNode("title").InnerText
	Console.WriteLine(title)
	' 修改XML元素
	root.SelectSingleNode("title").InnerText = "New Title"
	' 保存修改
	xmlDoc.Save("example_modified.xml")
	End Sub
	End Module

使用 LINQ to XML

LINQ to XML 提供了一种更简洁、更强大的方式来查询和修改XML文档。

vb复制代码

	Imports System.Xml.Linq
	Module Module1
	Sub Main()
	Dim xml As XDocument = XDocument.Load("example.xml")
	' 访问XML元素
	Dim title As String = xml.<root>.<title>.Value
	Console.WriteLine(title)
	' 修改XML元素
	xml.<root>.<title>.Value = "New Title"
	' 保存修改
	xml.Save("example_modified.xml")
	End Sub
	End Module

操作JSON数据

VB.NET 原生并不直接支持JSON，但你可以使用第三方库，如 Newtonsoft.Json（也称为Json.NET），这是一个非常流行的.NET JSON框架。

使用 Json.NET

首先，你需要在项目中安装Json.NET。这可以通过NuGet包管理器来完成。

vb复制代码

	Imports Newtonsoft.Json
	Module Module1
	Sub Main()
	' JSON字符串
	Dim jsonString As String = "{ 'Name': 'John Doe', 'Age': 30 }"
	' 反序列化JSON字符串到对象
	Dim person As Person = JsonConvert.DeserializeObject(Of Person)(jsonString)
	Console.WriteLine($"Name: {person.Name}, Age: {person.Age}")
	' 序列化对象到JSON字符串
	Dim jsonOutput As String = JsonConvert.SerializeObject(person)
	Console.WriteLine(jsonOutput)
	End Sub
	Public Class Person
	Public Property Name As String
	Public Property Age As Integer
	End Class
	End Module

在这个例子中，Person 类被用来表示JSON数据中的对象。JsonConvert.DeserializeObject 方法用于将JSON字符串反序列化为 Person 对象，而 JsonConvert.SerializeObject 方法则用于将 Person 对象序列化为JSON字符串。

总结

VB.NET 通过 System.Xml 和 System.Xml.Linq 命名空间提供了强大的XML处理能力，而对于JSON，则可以通过第三方库如Json.NET来实现。选择哪种方法取决于你的具体需求以及你对性能的考虑。