Imports System.XmlImports System.Xml.SerializationImports System.TextImports System.IOPublic Class Utilities Public Shared Function Serialize(ByVal Obj As Object) As String Dim serializer As New XmlSerializer(Obj.GetType) Dim sb As New StringBuilder() Dim writer As New StringWriter(sb) serializer.Serialize(writer, Obj) writer.Close() writer.Dispose() Return sb.ToString() End Function Public Shared Function Deserialize(ByVal str As String, ByVal t As Type) As Object Dim serializer As New XmlSerializer(t) Dim reader As New StringReader(str) Dim obj As Object = serializer.Deserialize(reader) reader.close() reader.Dispose() Return obj End FunctionEnd Class
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.