XML zu XSD zu Datenklasse

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    XML zu XSD zu Datenklasse

    Guten Abend an Alle!

    Ich habe folgendes Problem und weiß nicht wirklich, wie ich es am Besten codiere. Dazu kommt noch, dass ich mit XSD keine Erfahrung habe. Ich weiß nur, dass man aus einem XML-Schema (XSD) eine Datenklasse mit XSD.exe erzeugen kann.

    Ich habe folgende Aufgabenstellung:

    1) Es sollen XML Dateien (entsprechend einem bestimmten Aufbau) mit Daten an eine Plattform übertragen werden (Übertragung ist nicht wirklich das Problem)
    2) Als Respone bekommt man ebenfalls eine XML Datei mit bestimmten Aufbau und den Übertragungsdaten (Status, Fehlermeldung etc.)
    3) Als Doku gibt es nur den Aufbau der XML mit Datenfeldtyp und Länge und/oder Pflichtfeld als Excel Datei

    Meine Idee war diese XML Dateien mit einem Editor erstellen, dann Online daraus eine XSD erzeugen und aus dieser dann die Datenklasse für meine VB.NET Anwendung. Habe ich auch soweit gemacht (siehe Anhang), nur gefällt mir die Datenklasse nicht wirklich. Sie funktioniert zwar, aber irgendwie sieht das für mich nicht richtig codiert aus.

    Was ist eure Meinung dazu? Hat jemand so etwas schon einmal gemacht?

    Im Projekt sind im Ordner XML und XSD die ensprechenden Dateien vorhanden.

    Danke für eure Hinweise.
    Dateien

    Zu obiger Aufgabenstellung habe ich jetzt meine eigenen Datenklassen codiert.

    Datenklasse SetOrder:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.ComponentModel.DataAnnotations
    3. Imports System.Xml.Serialization
    5. Namespace SetData
    7. <Serializable>
    8. Public Class SetCustomer
    10. Private customersField As Customers
    12. <XmlElement(ElementName:="Customers")>
    13. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    14. Public Property Customers() As Customers
    15. Get
    16. Return Me.customersField
    17. End Get
    18. Set
    19. Me.customersField = Value
    20. End Set
    21. End Property
    23. End Class
    25. <Serializable>
    26. Public Class Customers
    27. Private customerListe As List(Of Customer)
    29. Public Sub New()
    30. customerListe = New List(Of Customer)
    31. End Sub
    33. Public Sub Add(pCustomer As Customer)
    34. customerListe.Add(pCustomer)
    35. End Sub
    37. <XmlElement(ElementName:="Customer")>
    38. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    39. Public Property CustomersListe() As List(Of Customer)
    40. Get
    41. Return Me.customerListe
    42. End Get
    43. Set
    44. Me.customerListe = Value
    45. End Set
    46. End Property
    48. End Class
    50. <Serializable>
    51. Public Class Customer
    53. Private requestIDField As String
    54. Private identifyNumberField As String
    55. Private keyAccountGroupField As String
    56. Private nameField As String
    57. Private name2Field As String
    58. Private addressField As String
    59. Private address2Field As String
    60. Private postalCodeField As String
    61. Private cityField As String
    62. Private countryField As String
    63. Private areaCodeField As String
    64. Private phoneField As String
    65. Private faxField As String
    66. Private emailField As String
    67. Private websiteField As String
    68. Private wasteProducerNumberField As String
    69. Private currencyCodeField As String
    70. Private taxNoField As String
    71. Private vATRegistrationNoField As String
    72. Private invoiceWithNoField As String
    74. '''<remarks/>
    75. <XmlElement(ElementName:="RequestID")>
    76. <MaxLength(50)>
    77. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    78. Public Property RequestID() As String
    79. Get
    80. Return Me.requestIDField
    81. End Get
    82. Set
    83. Me.requestIDField = Value
    84. End Set
    85. End Property
    87. '''<remarks/>
    88. <XmlElement(ElementName:="IdentifyNumber")>
    89. <MaxLength(15)>
    90. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    91. Public Property IdentifyNumber() As String
    92. Get
    93. Return Me.identifyNumberField
    94. End Get
    95. Set
    96. Me.identifyNumberField = Value
    97. End Set
    98. End Property
    100. '''<remarks/>
    101. <XmlElement(ElementName:="KeyAccountGroup")>
    102. <MaxLength(10)>
    103. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    104. Public Property KeyAccountGroup() As String
    105. Get
    106. Return Me.keyAccountGroupField
    107. End Get
    108. Set
    109. Me.keyAccountGroupField = Value
    110. End Set
    111. End Property
    113. '''<remarks/>
    114. <XmlElement(ElementName:="Name")>
    115. <MaxLength(30)>
    116. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    117. Public Property Name() As String
    118. Get
    119. Return Me.nameField
    120. End Get
    121. Set
    122. Me.nameField = Value
    123. End Set
    124. End Property
    126. '''<remarks/>
    127. <XmlElement(ElementName:="Name2")>
    128. <MaxLength(30)>
    129. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    130. Public Property Name2() As String
    131. Get
    132. Return Me.name2Field
    133. End Get
    134. Set
    135. Me.name2Field = Value
    136. End Set
    137. End Property
    139. '''<remarks/>
    140. <XmlElement(ElementName:="Address")>
    141. <MaxLength(30)>
    142. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    143. Public Property Address() As String
    144. Get
    145. Return Me.addressField
    146. End Get
    147. Set
    148. Me.addressField = Value
    149. End Set
    150. End Property
    152. '''<remarks/>
    153. <XmlElement(ElementName:="Address2")>
    154. <MaxLength(30)>
    155. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    156. Public Property Address2() As String
    157. Get
    158. Return Me.address2Field
    159. End Get
    160. Set
    161. Me.address2Field = Value
    162. End Set
    163. End Property
    165. '''<remarks/>
    166. <XmlElement(ElementName:="PostalCode")>
    167. <MaxLength(20)>
    168. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    169. Public Property PostalCode() As String
    170. Get
    171. Return Me.postalCodeField
    172. End Get
    173. Set
    174. Me.postalCodeField = Value
    175. End Set
    176. End Property
    178. '''<remarks/>
    179. <XmlElement(ElementName:="City")>
    180. <MaxLength(30)>
    181. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    182. Public Property City() As String
    183. Get
    184. Return Me.cityField
    185. End Get
    186. Set
    187. Me.cityField = Value
    188. End Set
    189. End Property
    191. '''<remarks/>
    192. <XmlElement(ElementName:="Country")>
    193. <MaxLength(10)>
    194. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    195. Public Property Country() As String
    196. Get
    197. Return Me.countryField
    198. End Get
    199. Set
    200. Me.countryField = Value
    201. End Set
    202. End Property
    204. '''<remarks/>
    205. <XmlElement(ElementName:="AreaCode")>
    206. <MaxLength(10)>
    207. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    208. Public Property AreaCode() As String
    209. Get
    210. Return Me.areaCodeField
    211. End Get
    212. Set
    213. Me.areaCodeField = Value
    214. End Set
    215. End Property
    217. '''<remarks/>
    218. <XmlElement(ElementName:="Phone")>
    219. <MaxLength(30)>
    220. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    221. Public Property Phone() As String
    222. Get
    223. Return Me.phoneField
    224. End Get
    225. Set
    226. Me.phoneField = Value
    227. End Set
    228. End Property
    230. '''<remarks/>
    231. <XmlElement(ElementName:="Fax")>
    232. <MaxLength(30)>
    233. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    234. Public Property Fax() As String
    235. Get
    236. Return Me.faxField
    237. End Get
    238. Set
    239. Me.faxField = Value
    240. End Set
    241. End Property
    243. '''<remarks/>
    244. <XmlElement(ElementName:="Email")>
    245. <MaxLength(80)>
    246. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    247. Public Property Email() As String
    248. Get
    249. Return Me.emailField
    250. End Get
    251. Set
    252. Me.emailField = Value
    253. End Set
    254. End Property
    256. '''<remarks/>
    257. <XmlElement(ElementName:="Website")>
    258. <MaxLength(80)>
    259. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    260. Public Property Website() As String
    261. Get
    262. Return Me.websiteField
    263. End Get
    264. Set
    265. Me.websiteField = Value
    266. End Set
    267. End Property
    269. '''<remarks/>
    270. <XmlElement(ElementName:="WasteProducerNumber")>
    271. <MaxLength(10)>
    272. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    273. Public Property WasteProducerNumber() As String
    274. Get
    275. Return Me.wasteProducerNumberField
    276. End Get
    277. Set
    278. Me.wasteProducerNumberField = Value
    279. End Set
    280. End Property
    282. '''<remarks/>
    283. <XmlElement(ElementName:="CurrencyCode")>
    284. <MaxLength(10)>
    285. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    286. Public Property CurrencyCode() As String
    287. Get
    288. Return Me.currencyCodeField
    289. End Get
    290. Set
    291. Me.currencyCodeField = Value
    292. End Set
    293. End Property
    295. '''<remarks/>
    296. <XmlElement(ElementName:="TaxNo")>
    297. <MaxLength(20)>
    298. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    299. Public Property TaxNo() As String
    300. Get
    301. Return Me.taxNoField
    302. End Get
    303. Set
    304. Me.taxNoField = Value
    305. End Set
    306. End Property
    308. '''<remarks/>
    309. <XmlElement(ElementName:="VATRegistrationNo")>
    310. <MaxLength(20)>
    311. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    312. Public Property VATRegistrationNo() As String
    313. Get
    314. Return Me.vATRegistrationNoField
    315. End Get
    316. Set
    317. Me.vATRegistrationNoField = Value
    318. End Set
    319. End Property
    321. '''<remarks/>
    322. <XmlElement(ElementName:="InvoiceWithNo")>
    323. <MaxLength(20)>
    324. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    325. Public Property InvoiceWithNo() As String
    326. Get
    327. Return Me.invoiceWithNoField
    328. End Get
    329. Set
    330. Me.invoiceWithNoField = Value
    331. End Set
    332. End Property
    333. End Class
    335. End Namespace



    und im Programmcode verwende ich diese Datenklasse so

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim mSetCustomer As New SetData.SetCustomer
    2. Dim mCustomers As New SetData.Customers
    3. Dim mCustomer As New SetData.Customer
    4. ' 1.Eintrag
    5. With mCustomer
    6. .Name = "Wenzl Gerhard"
    7. .Address = "Nr. 115"
    8. .AreaCode = "2"
    9. .City = "Hannersdorf"
    10. .PostalCode = "7477"
    11. .CurrencyCode = "EUR"
    12. .Email = "gerhard@wenzl.co.at"
    13. .Phone = "+43 660 3368902"
    14. .Website = "www.wenzl.co.at"
    15. End With
    16. mCustomers.Add(mCustomer)
    17. ' 2.Eintrag
    18. mCustomer = New SetData.Customer
    19. With mCustomer
    20. .Name = "MIS Software GmbH"
    21. .Address = "Siezenheimerstraße 23"
    22. .AreaCode = "2"
    23. .City = "Salzburg"
    24. .PostalCode = "8020"
    25. .CurrencyCode = "EUR"
    26. .Email = "office@mis-software.de"
    27. .Phone = "+49 677 3377902"
    28. .Website = "www.mis-software.de"
    29. End With
    30. mCustomers.Add(mCustomer)
    32. mSetCustomer.Customers = mCustomers
    34. Dim serializer As New XmlSerializer(GetType(SetData.SetCustomer))
    35. Dim writer As New StreamWriter(Application.StartupPath + "\Export\SetCustomer.xml")
    36. serializer.Serialize(writer, mSetCustomer)
    37. writer.Close()



    das Ergebnis sieht dann so aus, wie ich es brauche

    Spoiler anzeigen

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8"?>
    2. <SetCustomer xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    3. <Customers>
    4. <Customer>
    5. <Name>Wenzl Gerhard</Name>
    6. <Address>Nr. 115</Address>
    7. <PostalCode>7477</PostalCode>
    8. <City>Hannersdorf</City>
    9. <AreaCode>2</AreaCode>
    10. <Phone>+43 660 3368902</Phone>
    11. <Email>[email=gerhard@wenzl.co.at]gerhard@wenzl.co.at[/email]</Email>
    12. <Website>[url]www.wenzl.co.at[/url]</Website>
    13. <CurrencyCode>EUR</CurrencyCode>
    14. </Customer>
    15. <Customer>
    16. <Name>MIS Software GmbH</Name>
    17. <Address>Siezenheimerstraße 23</Address>
    18. <PostalCode>8020</PostalCode>
    19. <City>Salzburg</City>
    20. <AreaCode>2</AreaCode>
    21. <Phone>+43 660 3368902</Phone>
    22. <Email>[email=office@mis-software.de]office@mis-software.de[/email]</Email>
    23. <Website>[url]www.mis-software.de[/url]</Website>
    24. <CurrencyCode>EUR</CurrencyCode>
    25. </Customer>
    26. </Customers>
    27. </SetCustomer>



    Vielleicht interessiert es jemanden oder es braucht jemand eine Idee...

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „GerhardW“ ()

    Leider funktionieren meine Datenmodelle doch noch nicht ganz sauber.
    Als XML Response erhalte ich folgende Struktur

    Spoiler anzeigen

    XML-Quellcode

    1. <?xml version="1.0" encoding="utf-8"?>
    2. <SetResponse>
    3. <Responses>
    4. <Response>
    5. <RequestID>1234534</RequestID>
    6. <TicketID>0994343</TicketID>
    7. <StatusID>45</StatusID>
    8. <StatusDescription>Da ist ein Fehler aufgetreten</StatusDescription>
    9. <ErrorInfo>Testerror</ErrorInfo>
    10. <EnwisID>xxxx</EnwisID>
    11. </Response>
    12. <Response>
    13. <RequestID>23243</RequestID>
    14. <TicketID>000003</TicketID>
    15. <StatusID>45</StatusID>
    16. <ErrorInfo>Testerror</ErrorInfo>
    17. <EnwisID>yyyyy</EnwisID>
    18. <ConfirmationID>ABCDEF1234</ConfirmationID>
    19. </Response>
    20. <Response>
    21. <RequestID>223232323</RequestID>
    22. <StatusID>45</StatusID>
    23. <StatusDescription>Testfehler</StatusDescription>
    24. <ErrorInfo>Testerror</ErrorInfo>
    25. <EnwisID>zzzzzz</EnwisID>
    26. <ConfirmationID>ID0045455</ConfirmationID>
    27. </Response>
    28. </Responses>
    29. </SetResponse>



    Welche ich in mein DatenModell einlese (was ja auch funktioniert):

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.ComponentModel.DataAnnotations
    3. Imports System.Xml.Serialization
    5. Namespace ResponseData
    7. <Serializable>
    8. Public Class SetResponse
    10. Private responseField As Responses
    12. <XmlElement(ElementName:="Responses")>
    13. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    14. Public Property Responses() As Responses
    15. Get
    16. Return Me.responseField
    17. End Get
    18. Set
    19. Me.responseField = Value
    20. End Set
    21. End Property
    23. End Class
    25. <Serializable>
    26. Public Class Responses
    27. Private responseListe As List(Of Response)
    29. Public Sub New()
    30. responseListe = New List(Of Response)
    31. End Sub
    33. Public Sub Add(pResponse As Response)
    34. responseListe.Add(pResponse)
    35. End Sub
    37. <XmlElement(ElementName:="Response")>
    38. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    39. Public Property ResponsesListe() As List(Of Response)
    40. Get
    41. Return Me.responseListe
    42. End Get
    43. Set
    44. Me.responseListe = Value
    45. End Set
    46. End Property
    47. End Class
    49. <Serializable>
    50. Public Class Response
    52. Private requestIDField As String
    53. Private ticketIDField As String
    54. Private statusIDField As Integer
    55. Private statusDescriptionField As String
    56. Private errorInfoField As String
    57. Private enwisIDField As String
    58. Private confirmationIDField As String
    60. Public Sub New()
    61. requestIDField = ""
    62. ticketIDField = ""
    63. statusIDField = 0
    64. statusDescriptionField = ""
    65. errorInfoField = ""
    66. enwisIDField = ""
    67. confirmationIDField = ""
    68. End Sub
    70. '''<remarks/>
    71. <XmlElement(ElementName:="RequestID")>
    72. <MaxLength(50)>
    73. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    74. Public Property RequestID() As String
    75. Get
    76. Return Me.requestIDField
    77. End Get
    78. Set
    79. Me.requestIDField = Value
    80. End Set
    81. End Property
    83. '''<remarks/>
    84. <XmlElement(ElementName:="TicketID")>
    85. <MaxLength(20)>
    86. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    87. Public Property TicketID() As String
    88. Get
    89. Return Me.ticketIDField
    90. End Get
    91. Set
    92. Me.ticketIDField = Value
    93. End Set
    94. End Property
    96. '''<remarks/>
    97. <XmlElement(ElementName:="StatusID")>
    98. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    99. Public Property StatusID() As Integer
    100. Get
    101. Return Me.statusIDField
    102. End Get
    103. Set
    104. Me.statusIDField = Value
    105. End Set
    106. End Property
    108. '''<remarks/>
    109. <XmlElement(ElementName:="StatusDescription")>
    110. <MaxLength(200)>
    111. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    112. Public Property StatusDescription() As String
    113. Get
    114. Return Me.statusDescriptionField
    115. End Get
    116. Set
    117. Me.statusDescriptionField = Value
    118. End Set
    119. End Property
    121. '''<remarks/>
    122. <XmlElement(ElementName:="ErrorInfo")>
    123. <MaxLength(1024)>
    124. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    125. Public Property ErrorInfo() As String
    126. Get
    127. Return Me.errorInfoField
    128. End Get
    129. Set
    130. Me.errorInfoField = Value
    131. End Set
    132. End Property
    134. '''<remarks/>
    135. <XmlElement(ElementName:="EnwisID")>
    136. <MaxLength(20)>
    137. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    138. Public Property EnwisID() As String
    139. Get
    140. Return Me.enwisIDField
    141. End Get
    142. Set
    143. Me.enwisIDField = Value
    144. End Set
    145. End Property
    147. '''<remarks/>
    148. <XmlElement(ElementName:="ConfirmationID")>
    149. <MaxLength(5)>
    150. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    151. Public Property ConfirmationID() As String
    152. Get
    153. Return Me.confirmationIDField
    154. End Get
    155. Set
    156. Me.confirmationIDField = Value
    157. End Set
    158. End Property
    160. End Class
    162. End Namespace



    es gibt nur einen kleinen Schönheitsfehler und der ist im Anhang ersichtlich.

    Mein DataModel hat folgende Struktur: Responses - ResponsesListe - Response

    Ich möchte aber: Responses - Response (Auflistung so wie in der Resonse XML Datei)

    Kann mir da bitte jemand weiterhelfen? Ich weiß nicht wie ich das codieren soll bzw. komme ich nicht zu meinem gewünschtem Ergebnis.
    Bilder

    • DataModel.png

      127,75 kB, 1.515×357, 132 mal angesehen

    Schmeiss die Klasse Responses weg.
    Die hat nichts, was eine List(Of Response) nicht auch schon hätte.
    SetResponse verändert sich dadurch zu:

    VB.NET-Quellcode

    1. <Serializable>
    2. Public Class SetResponse
    4. Private responseField As New List(Of Response) 'New ist wichtig!
    6. <XmlElement(ElementName:="Responses")>
    7. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    8. Public Property Responses() As Responses
    9. Get
    10. Return Me.responseField
    11. End Get
    12. Set
    13. Me.responseField = Value
    14. End Set
    15. End Property
    17. End Class

    noch besser wäre:

    VB.NET-Quellcode

    1. <Serializable>
    2. Public Class SetResponse
    4. Private responseField As New List(Of Response) 'New ist wichtig!
    6. <XmlElement(ElementName:="Responses")>
    7. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    8. Public Readonly Property Responses() As Responses
    9. Get
    10. Return Me.responseField
    11. End Get
    12. End Property
    14. End Class

    @ErfinderDesRades

    habe es jetzt geändert, die Struktur passt aber es werden keine Daten eingelesen (siehe Anhang). Ich denke das habe ich schon einmal versucht. Irgendwie hab ich da einen Knopf im Kopf ;)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.ComponentModel.DataAnnotations
    3. Imports System.Xml.Serialization
    5. Namespace ResponseData
    7. <Serializable>
    8. Public Class SetResponse
    10. Private responseField As New List(Of Response)
    12. <XmlElement(ElementName:="Responses")>
    13. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    14. Public ReadOnly Property Responses() As List(Of Response)
    15. Get
    16. Return Me.responseField
    17. End Get
    18. End Property
    20. End Class
    22. '<Serializable>
    23. 'Public Class Responses
    24. ' Private responseListe As List(Of Response)
    26. ' Public Sub New()
    27. ' responseListe = New List(Of Response)
    28. ' End Sub
    30. ' Public Sub Add(pResponse As Response)
    31. ' responseListe.Add(pResponse)
    32. ' End Sub
    34. ' <XmlElement(ElementName:="Response")>
    35. ' <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    36. ' Public Property ResponsesListe() As List(Of Response)
    37. ' Get
    38. ' Return Me.responseListe
    39. ' End Get
    40. ' Set
    41. ' Me.responseListe = Value
    42. ' End Set
    43. ' End Property
    44. 'End Class
    46. <Serializable>
    47. Public Class Response
    49. Private requestIDField As String
    50. Private ticketIDField As String
    51. Private statusIDField As Integer
    52. Private statusDescriptionField As String
    53. Private errorInfoField As String
    54. Private enwisIDField As String
    55. Private confirmationIDField As String
    57. Public Sub New()
    58. requestIDField = ""
    59. ticketIDField = ""
    60. statusIDField = 0
    61. statusDescriptionField = ""
    62. errorInfoField = ""
    63. enwisIDField = ""
    64. confirmationIDField = ""
    65. End Sub
    67. '''<remarks/>
    68. <XmlElement(ElementName:="RequestID")>
    69. <MaxLength(50)>
    70. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    71. Public Property RequestID() As String
    72. Get
    73. Return Me.requestIDField
    74. End Get
    75. Set
    76. Me.requestIDField = Value
    77. End Set
    78. End Property
    80. '''<remarks/>
    81. <XmlElement(ElementName:="TicketID")>
    82. <MaxLength(20)>
    83. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    84. Public Property TicketID() As String
    85. Get
    86. Return Me.ticketIDField
    87. End Get
    88. Set
    89. Me.ticketIDField = Value
    90. End Set
    91. End Property
    93. '''<remarks/>
    94. <XmlElement(ElementName:="StatusID")>
    95. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    96. Public Property StatusID() As Integer
    97. Get
    98. Return Me.statusIDField
    99. End Get
    100. Set
    101. Me.statusIDField = Value
    102. End Set
    103. End Property
    105. '''<remarks/>
    106. <XmlElement(ElementName:="StatusDescription")>
    107. <MaxLength(200)>
    108. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    109. Public Property StatusDescription() As String
    110. Get
    111. Return Me.statusDescriptionField
    112. End Get
    113. Set
    114. Me.statusDescriptionField = Value
    115. End Set
    116. End Property
    118. '''<remarks/>
    119. <XmlElement(ElementName:="ErrorInfo")>
    120. <MaxLength(1024)>
    121. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    122. Public Property ErrorInfo() As String
    123. Get
    124. Return Me.errorInfoField
    125. End Get
    126. Set
    127. Me.errorInfoField = Value
    128. End Set
    129. End Property
    131. '''<remarks/>
    132. <XmlElement(ElementName:="EnwisID")>
    133. <MaxLength(20)>
    134. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    135. Public Property EnwisID() As String
    136. Get
    137. Return Me.enwisIDField
    138. End Get
    139. Set
    140. Me.enwisIDField = Value
    141. End Set
    142. End Property
    144. '''<remarks/>
    145. <XmlElement(ElementName:="ConfirmationID")>
    146. <MaxLength(5)>
    147. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)>
    148. Public Property ConfirmationID() As String
    149. Get
    150. Return Me.confirmationIDField
    151. End Get
    152. Set
    153. Me.confirmationIDField = Value
    154. End Set
    155. End Property
    157. End Class
    159. End Namespace


    Einlesen tue ich so...

    VB.NET-Quellcode

    1. Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
    2. Dim mSetResponse As ResponseData.SetResponse = New ResponseData.SetResponse
    3. Dim serializer As New XmlSerializer(GetType(ResponseData.SetResponse ))
    4. Dim reader As New IO.StreamReader(Application.StartupPath + "\Export\SetResponse.xml")
    5. mSetResponse = CType(serializer.Deserialize(reader), ResponseData.SetResponse)
    6. reader.Close()
    7. reader.Dispose()
    8. End Sub


    Edit: Im Anhang auch mein Testprojekt mit XML Dateien
    Edit 2: Ich habe deinen Code bei

    VB.NET-Quellcode

    1. Public ReadOnly Property Responses() As Responses

    auf

    VB.NET-Quellcode

    1. Public ReadOnly Property Responses() As List(Of Response)

    geändert. Weil da stimmt doch der Typ nicht?
    Bilder

    • DataModel-Neu01.png

      172,98 kB, 1.535×515, 133 mal angesehen
    Dateien

    • RLG-Test.zip

      (734,26 kB, 133 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „GerhardW“ ()

    @ErfinderDesRades

    Ich habe es lösen können.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.ComponentModel.DataAnnotations
    3. Imports System.Xml.Serialization
    5. Namespace ResponseData
    7. <Serializable>
    8. Partial Public Class SetResponse
    10. Private responseField As List(Of Response)
    12. <XmlArrayItem("Response", IsNullable:=False)>
    13. Public Property Responses() As List(Of Response)
    14. Get
    15. Return Me.responseField
    16. End Get
    17. Set
    18. Me.responseField = Value
    19. End Set
    20. End Property
    22. End Class
    24. <Serializable>
    25. Partial Public Class Response
    27. Private requestIDField As String
    28. Private ticketIDField As String
    29. Private statusIDField As Integer
    30. usw.


    Hier muss auch ein

    Quellcode

    1. Set
    rein und das Property muss als

    Quellcode

    1. <XmlArrayItem("Response", IsNullable:=False)>
    gekennzeichnet sein

    VB.NET-Quellcode

    1. <XmlArrayItem("Response", IsNullable:=False)>
    2. Public Property Responses() As List(Of Response)
    3. Get
    4. Return Me.responseField
    5. End Get
    6. Set
    7. Me.responseField = Value
    8. End Set
    9. End Property


    Danke nochmals für die BasisKlasse...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „GerhardW“ ()