Remove From My Forums

TimeSpan zu XML serialisieren

Frage
0

Anmelden
Hallo,

Ich habe eine Klasse Namen Situation die eine Eigenschaft "Boardingtime as Timespan" besitzt.

Nun möchte ich die Werte der Klasse per:

Using sw As New IO.StreamWriter(Situationspfad) Dim xser As New Xml.Serialization.XmlSerializer(GetType(List(Of Situation))) xser.Serialize(sw, Liste_Situationen) End Using

Als XML abspeichern.

er Speichert alles Auch richtig ab nur der Wert BoardingTime bleibt leer.

Mache ich was falsch ?

Gruß Daniel
Samstag, 4. September 2010 11:34

Antworten

|

Zitieren

Antworten

Anmelden

Hallo Daniel,

TimeStamp hat man weggelassen, weil es kein identisches Äquivalent in Xml gibt.
Eine Lösung dafür zeigt (in C#) XmlSerializer Doesn't Serialize TimeSpan to XML Duration Type

Auf Visual Basic angepasst und ein kleinig aufgehübscht könnte das wie folgt aussehen:

Imports System.ComponentModel
Imports System.Xml
Imports System.Xml.Serialization

Public Class Situation
  Public Property Name As String

  <XmlIgnore()> _
  Public Property Boardingtime As TimeSpan

  <XmlElement("Boardingtime", DataType:="duration")> _
  <System.ComponentModel.DefaultValue("PT10M")> _
  <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
  Public Property XmlBoardingtime As String
    Get
      Return XmlConvert.ToString(Me.Boardingtime)
    End Get
    Set(ByVal value As String)
      If Not String.IsNullOrEmpty(value) Then
        Me.Boardingtime = XmlConvert.ToTimeSpan(value)
      Else
        Me.Boardingtime = TimeSpan.Zero
      End If
    End Set
  End Property

  Public Shared Sub Serialize()
    Dim list As New List(Of Situation)

    list.Add(New Situation() With {.Name = "Wichtig", .Boardingtime = New TimeSpan(1, 2, 3)})
    list.Add(New Situation() With {.Name = "Ohne Zeit"})
    Using sw As New IO.StreamWriter("C:\TEMP\Situation.xml")
      Dim xser As New Xml.Serialization.XmlSerializer(GetType(List(Of Situation)))
      xser.Serialize(sw, list)
    End Using

    Dim newList As List(Of Situation)
    Using sw As New IO.StreamReader("C:\TEMP\Situation.xml")
      Dim xser As New Xml.Serialization.XmlSerializer(GetType(List(Of Situation)))
      newList = DirectCast(xser.Deserialize(sw), List(Of Situation))
    End Using
    For Each item In newList
      Console.WriteLine("{0} {1}", item.Name, item.Boardingtime)
    Next
  End Sub
End Class

Gruß Elmar

Bearbeitet Elmar Boye Samstag, 4. September 2010 14:06 Format
Als Antwort markiert B00NE Samstag, 4. September 2010 22:26
Tag als Antwort aufgehoben B00NE Samstag, 4. September 2010 22:29
Als Antwort markiert B00NE Samstag, 4. September 2010 22:29
Tag als Antwort aufgehoben B00NE Samstag, 4. September 2010 22:53
Als Antwort markiert B00NE Sonntag, 5. September 2010 17:17

Samstag, 4. September 2010 14:04

0

Anmelden
Hallo Daniel,

dass meine Methode oben direkt in der Klasse definiert ist, macht keinen Unterschied.

Solltest Du allerdings "D uration" anstatt "d uration" verwendet haben,
wie ich nach dem Ausnahmetext vermute:

Message=Der Wert 'Duration' kann nicht für die Eigenschaft 'XmlElementAttribute.DataType' verwendet werden.
Der Datentyp 'http://www.w3.org/2001/XMLSchema:Duration' ist nicht vorhanden.

so spielt das durchaus eine Rolle, denn die Angabe ist muß exakt so geschrieben werden,
siehe XmlElementAttribute. DataType (aber auch alle anderen Xml...DataTypes).
Die Xml-Spezifikation ist nunmal von Java-Liebhabern geschrieben worden ;-)

Gruß Elmar
- Als Antwort markiert B00NE Sonntag, 5. September 2010 17:17
Sonntag, 5. September 2010 08:15

Antworten

|

Zitieren

Alle Antworten