Wollte mal fragen ob es eine Möglichkeit gibt, ein Objekt wie das hier:
Public Class ChatEntity
Private mString As String
Public Sub New(Byval xString As String) mString = xString End Sub
End Class
In eine Datei MIT DEN MOMENTANEN WERTEN zu speichern. Das heißt ich würde das Objekt später aus der Datei wieder lesen wollen und auf den Inhalt des String zugreifen wollen.
Public Sub XMLSerialize(Of T)(ByVal Obj As Object, ByVal FileName As String) Dim XML As New XmlSerializer(GetType(T)) Dim FS As New FileStream(FileName, FileMode.Create) XML.Serialize(FS, Obj) FS.Close() End Sub
Public Function XMLDeSerialize(Of T)(ByVal FileName As String) As Object Dim XML As New XmlSerializer(GetType(T)) Dim FS As New FileStream(FileName, FileMode.Open) Dim RetObj As Object = XML.Deserialize(FS) FS.Close() Return RetObj End Function