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