VB.net对象与xml对象之间的转换
一: 对象序列化xml()
Dim user1 As TestUser = New TestUser() user1.name = "adsfd" user1.email = "80808080" user1.info = "sssss" Dim mySerializer As New XmlSerializer(GetType(TestUser)) Using writer As StreamWriter = New StreamWriter(Server.MapPath("myFileName.xml")) mySerializer.Serialize(writer, user1) End Using
'生成的xml对象文本如下:
<?xml version="1.0" encoding="utf-8"?> <TestUser xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <name>adsfd</name> <email>80808080</email> <info>sssss</info> </TestUser>
二:'xml序列化对象
Dim user1 As TestUser = New TestUser() Dim mySerializer As New XmlSerializer(GetType(TestUser)) Using myFileStream As FileStream = New FileStream(Server.MapPath("myFileName.xml"), FileMode.Open) user1 = mySerializer.Deserialize(myFileStream) End Using
’定义TestUser对象
Public Class TestUser Public name As String Public email As String Public info As String End Class