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
CodeTags gesetzt und ins richtige Forum verschoben ~VaporiZed
Das ist der Code den ich schon habe
VB.NET-Quellcode
- Imports System.IO
- Imports System.Xml
- Public Class Form1
- Public objXML As Xml.XmlDocument
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim ds1 As New DataSet("FIX_LENGHT_INTERFACE")
- Dim dt As New DataTable("Tabellenname")
- dt.Columns.Add("Name", GetType(String))
- dt.Columns.Add("Art", GetType(String))
- dt.Columns.Add("Laenge", GetType(Integer))
- dt.Columns.Add("dez.", GetType(String))
- dt.Columns.Add("zahl", GetType(Integer))
- dt.Columns.Add("zahl", GetType(Integer))
- dt.Columns.Add("Kommentar", GetType(String))
- ds1.Tables.Add(dt)
- dt.Rows.Add({"", "muss", 3, "", 1, 3, ""})
- dt.Rows.Add({"", "muss", 3, "0", 4, 6, ""})
- dt.Rows.Add({"", "muss", 3, "", 7, 9, ""})
- dt.Rows.Add({"", "muss", 35, "", 10, 44, ""})
- dt.Rows.Add({"", "muss", 35, "", 45, 79, ""})
- dt.Rows.Add({"", "muss", 3, "", 80, 82, ""})
- dt.Rows.Add({"", "muss", 9, "", 83, 91, ""})
- dt.Rows.Add({"", "muss", 35, "", 92, 126, ""})
- dt.Rows.Add({"", "kann", 35, "", 127, 161, ""})
- dt.Rows.Add({"", "kann", 35, "", 162, 196, ""})
- dt.Rows.Add({"", "kann", 35, "", 197, 231, ""})
- dt.Rows.Add({"", "kann", 3, "", 232, 266, ""})
- dt.Rows.Add({"", "kann", 3, "", 267, 301, ""})
- 'ds1.WriteXmlSchema("XMLFile3.xml")
- ds1.WriteXml("XMLFile4.xml")
- Dim opf As New OpenFileDialog()
- opf.Filter = "XML File | *.xml"
- opf.FileName = ""
- If opf.ShowDialog() = DialogResult.OK Then
- Dim ds As New DataSet
- ds.ReadXml(opf.FileName, XmlReadMode.Auto)
- DataGridView1.DataSource = ds.Tables("Tabellenname")
- End If
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Const DATEINAME As String = "C:\Users\miguel\OneDrive\Desktop\VBProbeText\VB.txt"
- ' --- Datei öffnen
- Dim fs As FileStream = New FileStream(
- DATEINAME, FileMode.OpenOrCreate,
- FileAccess.ReadWrite)
- ' --- Stream öffnen
- Dim r As StreamReader = New StreamReader(fs)
- ' --- Zeiger auf den Anfang
- r.BaseStream.Seek(0, SeekOrigin.Begin)
- Dim zeile As String
- ' --- Alle Zeilen lesen und an Console ausgeben
- While r.Peek() > -1
- zeile = r.ReadLine()
- TextBox1.Text &= zeile & vbCrLf
- End While
- ' --- Reader und Stream schließen
- r.Close()
- fs.Close()
- End Sub
- End Class
CodeTags gesetzt und ins richtige Forum verschoben ~VaporiZed
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „art“ ()