[VB]
Public Function XmlSerializeObject(ByVal obj As Object) As String Dim xmlStr As String = String.Empty Dim settings As New XmlWriterSettings() settings.Indent = False settings.OmitXmlDeclaration = True settings.NewLineChars = String.Empty settings.NewLineHandling = NewLineHandling.None Using stringWriter As New StringWriter() Using xmlWriter__1 As XmlWriter = XmlWriter.Create(stringWriter, settings) Dim serializer As New XmlSerializer(obj.[GetType]()) serializer.Serialize(xmlWriter__1, obj) xmlStr = stringWriter.ToString() xmlWriter__1.Close() End Using stringWriter.Close() End Using Return xmlStr.ToStringEnd FunctionPublic Function XmlDeserializeObject(ByVal data As [String], ByVal objType As Type) As Object Dim xmlSer As New System.Xml.Serialization.XmlSerializer(objType) Dim reader As TextReader = New StringReader(data) Dim obj As New Object obj = DirectCast(xmlSer.Deserialize(reader), Object) Return objEnd Function
[C#]
public string XmlSerializeObject(object obj){ string xmlStr = String.Empty; XmlWriterSettings settings = new XmlWriterSettings(); settings.Indent = false; settings.OmitXmlDeclaration = true; settings.NewLineChars = String.Empty; settings.NewLineHandling = NewLineHandling.None; using (StringWriter stringWriter = new StringWriter()) { using (XmlWriter xmlWriter = XmlWriter.Create(stringWriter, settings)) { XmlSerializer serializer = new XmlSerializer( obj.GetType()); serializer.Serialize(xmlWriter, obj); xmlStr = stringWriter.ToString(); xmlWriter.Close(); } } return xmlStr.ToString(); }public object XmlDeserializeObject(string data, Type objType){ XmlSerializer xmlSer = new XmlSerializer(objType); StringReader reader = new StringReader(data); object obj = new object(); obj = (object)(xmlSer.Deserialize(reader)); return obj;}