serialiser

Voila une classe dotnet bien pratique qui permet de sérialiser des objets en json.

Imports System.IO
Imports System.Text
Imports System.Runtime.Serialization

Public Class JSONSerializer
    Public Shared Function Serialize(ByVal BaseType As Object) As String
        Dim ExactName As String = BaseType.GetType.ToString
        Dim Ser As String = p_Serialize(BaseType)
        Dim oList As New List(Of String)
        oList.Add(ExactName)
        oList.Add(Ser)
        Return p_Serialize(oList)
    End Function
    Public Shared Function Deserialize(ByVal s As String) As Object
        Dim oList As New List(Of String)
        oList = DirectCast(p_Deserialize(s, oList), List(Of String))
        Dim Instance As Object = Nothing
        Instance = Activator.CreateInstance(Type.GetType(oList.Item(0)))
        Return p_Deserialize(oList.Item(1),