XML Schema mit XML Datei mit Visual Basic erstellen

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

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    XML Schema mit XML Datei mit Visual Basic erstellen

    Hallo ich habe folgendes Problem ich habe mit Visual Basic in Winform eine XML Datei erstellt und möchte nun dazu noch ein XML Schema programmieren komme da aber nicht weiter kann mir da jemand helfen ?
    Das ist der Code den ich schon habe

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Xml
    4. Public Class Form1
    5. Public objXML As Xml.XmlDocument
    7. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    9. Dim ds1 As New DataSet("FIX_LENGHT_INTERFACE")
    10. Dim dt As New DataTable("Tabellenname")
    11. dt.Columns.Add("Name", GetType(String))
    12. dt.Columns.Add("Art", GetType(String))
    13. dt.Columns.Add("Laenge", GetType(Integer))
    14. dt.Columns.Add("dez.", GetType(String))
    15. dt.Columns.Add("zahl", GetType(Integer))
    16. dt.Columns.Add("zahl", GetType(Integer))
    17. dt.Columns.Add("Kommentar", GetType(String))
    18. ds1.Tables.Add(dt)
    20. dt.Rows.Add({"", "muss", 3, "", 1, 3, ""})
    21. dt.Rows.Add({"", "muss", 3, "0", 4, 6, ""})
    22. dt.Rows.Add({"", "muss", 3, "", 7, 9, ""})
    23. dt.Rows.Add({"", "muss", 35, "", 10, 44, ""})
    24. dt.Rows.Add({"", "muss", 35, "", 45, 79, ""})
    25. dt.Rows.Add({"", "muss", 3, "", 80, 82, ""})
    26. dt.Rows.Add({"", "muss", 9, "", 83, 91, ""})
    27. dt.Rows.Add({"", "muss", 35, "", 92, 126, ""})
    28. dt.Rows.Add({"", "kann", 35, "", 127, 161, ""})
    29. dt.Rows.Add({"", "kann", 35, "", 162, 196, ""})
    30. dt.Rows.Add({"", "kann", 35, "", 197, 231, ""})
    31. dt.Rows.Add({"", "kann", 3, "", 232, 266, ""})
    32. dt.Rows.Add({"", "kann", 3, "", 267, 301, ""})
    34. 'ds1.WriteXmlSchema("XMLFile3.xml")
    35. ds1.WriteXml("XMLFile4.xml")
    37. Dim opf As New OpenFileDialog()
    38. opf.Filter = "XML File | *.xml"
    39. opf.FileName = ""
    41. If opf.ShowDialog() = DialogResult.OK Then
    42. Dim ds As New DataSet
    43. ds.ReadXml(opf.FileName, XmlReadMode.Auto)
    44. DataGridView1.DataSource = ds.Tables("Tabellenname")
    46. End If
    48. End Sub
    50. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    51. Const DATEINAME As String = "C:\Users\miguel\OneDrive\Desktop\VBProbeText\VB.txt"
    52. ' --- Datei öffnen
    53. Dim fs As FileStream = New FileStream(
    54. DATEINAME, FileMode.OpenOrCreate,
    55. FileAccess.ReadWrite)
    56. ' --- Stream öffnen
    57. Dim r As StreamReader = New StreamReader(fs)
    58. ' --- Zeiger auf den Anfang
    59. r.BaseStream.Seek(0, SeekOrigin.Begin)
    61. Dim zeile As String
    62. ' --- Alle Zeilen lesen und an Console ausgeben
    63. While r.Peek() > -1
    64. zeile = r.ReadLine()
    65. TextBox1.Text &= zeile & vbCrLf
    66. End While
    67. ' --- Reader und Stream schließen
    68. r.Close()
    69. fs.Close()
    70. End Sub
    72. End Class



    CodeTags gesetzt und ins richtige Forum verschoben ~VaporiZed

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „art“ ()

    art schrieb:

    Hallo ich habe folgendes Problem ich habe mit Visual Basic in Winform eine XML Datei erstellt und möchte nun dazu noch ein XML Schema programmieren komme da aber nicht weiter kann mir da jemand helfen ?
    Das ist der Code den ich schon habe
    Da fehlt eine Methode, wo es stattfinden soll das "Programmieren des Schemas".

    Grundsätzlich ist das zum Schreien einfach: Dataset hat eine Methode .WriteSchema().
    Aber wenns keine Methode gibt, wo dieser Aufruf eingebaut werden kann - tja...

Facebook
Telefonspende