XML Datentabelle mit mehreren Knoten auslesen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    XML Datentabelle mit mehreren Knoten auslesen

    Guten Morgen,

    mit dem nachstehenden Code erzeuge ich eine Importdatei für meine Fritz Box (Telefonbuch).

    VB.NET-Quellcode

    1. Public Sub Fritzboxkontakt_Erstellung()
    3. Dim Datei As String = Pfade.System.Pfad & "FBoxKontakt.xml"
    4. If File.Exists(Datei) Then File.Delete(Datei)
    6. Dim Writer As StreamWriter = Nothing
    7. Writer = My.Computer.FileSystem.OpenTextFileWriter(Datei, True)
    9. Dim Zeile As DataRow = Nothing
    10. Dim Nameszeile As String = Nothing
    11. Dim Adresse As String = Nothing
    12. Dim Telefon1 As String = Nothing
    13. Dim Telefon2 As String = Nothing
    14. Dim Mobil1 As String = Nothing
    15. Dim Mobil2 As String = Nothing
    16. Dim SchreibeText As String = Nothing
    18. With Writer
    19. .WriteLine("<?xml version=" & """1.0""" & " encoding=" & """utf-8""" & "?>")
    20. .WriteLine("<phonebooks>")
    22. .WriteLine("<phonebook owner" & "=" & """1""" & " name" & "=" & """TB MBHome""" & ">")
    24. For I As Integer = 0 To Daten.Basis.Kontaktdaten.Rows.Count - 1
    25. Zeile = Daten.Basis.Kontaktdaten(I)
    27. Nameszeile = Nothing
    28. Adresse = Nothing
    29. Telefon1 = Nothing
    30. Telefon2 = Nothing
    31. Mobil1 = Nothing
    32. Mobil2 = Nothing
    34. Nameszeile = Zeile("Kontaktzeile").ToString
    35. Nameszeile = Nameszeile.Replace(",", "")
    36. Nameszeile = Nameszeile.Replace("&", "und")
    38. Telefon1 = Zeile("Telefon1").ToString
    39. Telefon1 = Telefon1.Replace("-", " ")
    40. Telefon2 = Zeile("Telefon2").ToString
    41. Telefon2 = Telefon2.Replace("-", " ")
    43. If Not IsDBNull(Zeile("IK")) Then
    44. If Not CBool(Zeile("IK")) Then
    45. Mobil1 = Zeile("Mobil1").ToString
    46. Mobil1 = Mobil1.Replace("-", " ")
    47. Mobil2 = Zeile("Mobil2").ToString
    48. Mobil2 = Mobil2.Replace("-", " ")
    49. End If
    50. End If
    52. SchreibeText = "<contact><category>0</category><person><realName>" & Nameszeile & "</realName></person><telephony>"
    54. If Not Telefon1 = Nothing Then
    55. SchreibeText = SchreibeText & "<number " & "type" & "=" & """home""" & " prio" & "=" & """0""" & ">" & Telefon1 & "</number>"
    56. End If
    57. If Not Telefon2 = Nothing Then
    58. SchreibeText = SchreibeText & "<number " & "type" & "=" & """home""" & " prio" & "=" & """0""" & ">" & Telefon2 & "</number>"
    59. End If
    60. If Not Mobil1 = Nothing Then
    61. SchreibeText = SchreibeText & "<number " & "type" & "=" & """mobile""" & " prio" & "=" & """0""" & ">" & Mobil1 & "</number>"
    62. End If
    63. If Not Mobil2 = Nothing Then
    64. SchreibeText = SchreibeText & "<number " & "type" & "=" & """mobile""" & " prio" & "=" & """0""" & ">" & Mobil2 & "</number>"
    65. End If
    67. SchreibeText = SchreibeText & "</telephony></contact>"
    69. .WriteLine(SchreibeText)
    71. Next I
    73. .WriteLine("</phonebook>")
    74. .WriteLine("</phonebooks>")
    75. .Close()
    77. End With
    79. MessageBox.Show("Die Kontaktliste für den Import Fritzbox wurde erstellt.", "Kontakt (Telefonie)" & Vorlagen.Copyright_Messagebox,
    80. MessageBoxButtons.OK, MessageBoxIcon.Information)
    82. End Sub

    Der Import funktioniert fehlerfrei.

    Nun möchte ich die Datei an anderer Stelle auslesen und an ein DGV übergeben.

    VB.NET-Quellcode

    1. Dim DateiPfad As String = Pfade.System.Pfad & "FBoxKontakt.xml"
    2. Dim Datenset As New DataSet
    3. Datenset.ReadXml(DateiPfad)
    4. MsgBox(Datenset.Tables.Count.ToString)
    6. Tab_Telefonbuch = New DataTable
    7. With Tab_Telefonbuch
    8. .TableName = "FBoxKontakt"
    9. .Columns.Add("Name", GetType(String))
    10. .Columns.Add("Telefon1", GetType(String))
    11. End With
    13. Dim NeueZeile As DataRow = Nothing
    14. Dim NameZeile As DataRow = Nothing
    15. Dim Tele1 As DataRow = Nothing
    17. For I = 0 To Datenset.Tables(2).Rows.Count - 1
    19. NeueZeile = Tab_Telefonbuch.NewRow
    20. NameZeile = Datenset.Tables(2).Rows(I)
    21. Tele1 = Datenset.Tables(4).Rows(I)
    23. NeueZeile("Name") = NameZeile(0)
    24. NeueZeile("Telefon1") = Tele1(0)
    26. Tab_Telefonbuch.Rows.Add(NeueZeile)
    28. Next I
    30. With DGV_Telefonbuch
    31. .DataSource = Tab_Telefonbuch
    32. End With


    Mein Ansatz die Daten auszulesen ist der falsche.
    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()