Hi,
ich hab mit der XSD.exe von Microsoft mir ne vb Klasse erstellen lassen um XML zu serialisieren/deseralisieren.
Leider fehlen dort die Attribute.
Und ich bekomme es nicht hin die einzufügen in die Klasse.
Wenn ich bei den Private Variablen das <XmlAttribute("xxxx")> setzte funktionierts nicht
ich hab mit der XSD.exe von Microsoft mir ne vb Klasse erstellen lassen um XML zu serialisieren/deseralisieren.
Leider fehlen dort die Attribute.
Und ich bekomme es nicht hin die einzufügen in die Klasse.
PHP Code:
Imports System.Xml.Serialization
<Serializable()>
<XmlRoot("nachricht")>
Public Class nachricht
Private quittungField As New nachrichtQuittung
Public Property quittung() As nachrichtQuittung
Get
Return Me.quittungField
End Get
Set(ByVal value As nachrichtQuittung)
Me.quittungField = value
End Set
End Property
End Class
<Serializable()>
<XmlRoot("quittung")>
Public Class nachrichtQuittung
Private nachrichtField As New nachrichtQuittungNachricht
'''
Public Property nachricht() As nachrichtQuittungNachricht
Get
Return Me.nachrichtField
End Get
Set(ByVal value As nachrichtQuittungNachricht)
Me.nachrichtField = value
End Set
End Property
End Class
<Serializable()>
<XmlRoot("nachricht")>
Public Class nachrichtQuittungNachricht
Private nrField As New nachrichtQuittungNachrichtNR
Private statusField As New nachrichtQuittungNachrichtStatus
Private empfaengerField As String
Private senderField As String
Private uhrzeitField As String
Private datumField As String
Private typField As String
Private stringiField As String
'''
Public Property nr() As nachrichtQuittungNachrichtNR
Get
Return Me.nrField
End Get
Set(ByVal value As nachrichtQuittungNachrichtNR)
Me.nrField = value
End Set
End Property
'''
Public Property status() As nachrichtQuittungNachrichtStatus
Get
Return Me.statusField
End Get
Set(ByVal value As nachrichtQuittungNachrichtStatus)
Me.statusField = value
End Set
End Property
'''
_
Public Property empfaenger() As String
Get
Return Me.empfaengerField
End Get
Set(ByVal value As String)
Me.empfaengerField = value
End Set
End Property
'''
_
Public Property sender() As String
Get
Return Me.senderField
End Get
Set(ByVal value As String)
Me.senderField = value
End Set
End Property
'''
_
Public Property uhrzeit() As String
Get
Return Me.uhrzeitField
End Get
Set(ByVal value As String)
Me.uhrzeitField = value
End Set
End Property
Public Property datum() As String
Get
Return Me.datumField
End Get
Set(ByVal value As String)
Me.datumField = value
End Set
End Property
Public Property typ() As String
Get
Return Me.typField
End Get
Set(ByVal value As String)
Me.typField = value
End Set
End Property
'''
_
Public Property stringi() As String
Get
Return Me.stringiField
End Get
Set(ByVal value As String)
Me.stringiField = value
End Set
End Property
End Class
'''
_
Public Class nachrichtQuittungNachrichtNR
Private packRefField As String
'''
Public Property PackRef() As String
Get
Return Me.packRefField
End Get
Set(ByVal value As String)
Me.packRefField = value
End Set
End Property
End Class
'''
_
Public Class nachrichtQuittungNachrichtStatus
Private codeField As String
Private bezeichnungField As String
Private uhrzeitField As String
'''
Public Property code() As String
Get
Return Me.codeField
End Get
Set(ByVal value As String)
Me.codeField = value
End Set
End Property
'''
Public Property bezeichnung() As String
Get
Return Me.bezeichnungField
End Get
Set(ByVal value As String)
Me.bezeichnungField = value
End Set
End Property
'''
_
Public Property uhrzeit() As String
Get
Return Me.uhrzeitField
End Get
Set(ByVal value As String)
Me.uhrzeitField = value
End Set
End Property
End Class
Wenn ich bei den Private Variablen das <XmlAttribute("xxxx")> setzte funktionierts nicht