+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : لعمل Serialization نحو XML (/showthread.php?tid=6255)
لعمل Serialization نحو XML - RaggiTech - 17-10-12
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله و بركاتهفيبي .نت
كود :
Imports System.Xml
Imports System.Xml.Serialization
Imports System.Text
Imports System.IO
Public 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 Function
End Classكود :
using System.Xml;
using System.Xml.Serialization;
using System.Text;
using System.IO;
public class Utilities
{
public static String Serialize(Object Obj)
{
XmlSerializer serializer = new XmlSerializer(Obj.GetType());
StringBuilder sb = new StringBuilder();
StringWriter writer = new StringWriter(sb);
serializer.Serialize(writer, Obj);
writer.Close();
writer.Dispose();
return sb.ToString();
}
public static Object Deserialize(String str, Type t)
{
XmlSerializer serializer = new XmlSerializer(t);
StringReader reader = new StringReader(str);
Object obj = serializer.Deserialize(reader);
reader.Close();
reader.Dispose();
return obj;
}
}