Lernen, wie man eine XML-Datei zu lesen, um Textfelder in Ihrem Visual Basic.NET , die oft abgekürzt als VB.NET bevölkern , kann Antrag stellen Ihre Anwendung robuster , indem nicht mit dem Benutzer die Daten manuell eingeben . XML ist ein Format anwendbar für viele verschiedene Anwendungen und können mit dem sein " XmlTextReader . " Der Leser bietet forward-only , read-only Zugriff auf einen Stream von XML-Daten. Sie können die XML-Daten direkt zuordnen zu kontrollieren, oder Sie können es in einem Array zu sammeln für eine spätere Verwendung . Things You
Microsoft Visual Studio
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Visual Studio. Klicken Sie auf " Neues Projekt " aus dem linken Bereich des Bildschirm Ihres Computers , und erweitern Sie " Visual Basic " unter " Installierte Vorlagen . " Klicken Sie "Windows " und doppelklicken Sie auf "Windows Forms Application" aus der Mitte der Dialog um ein neues Projekt zu erstellen.
2

Klicken Sie auf das Menü "Projekt" und wählen Sie " Neues Element. " Doppelklicken Sie auf " XML -Datei ", um eine neue XML-Datei in Ihr Projekt einfügen . Legen Sie eine neue " XML Schema" -Datei, mit der gleichen Technik
3

Kopieren Sie den folgenden Code innerhalb der " XMLSchema1.xsd " -Datei auf Ihrem XML Schema zu erstellen : .

< xs : schema name = " postalCode " >

Download

< xs : element name = " Street" type = " xs : string " />

Download

< xs : element name = "State" type = " xs : string " />

Download

< xs: sequence>

Download

< xs : element name = " ContactName " type = " xs : string "/>

Download

< xs : element name =" Phone " type =" xs : string "/>

< xs : element name =" ShipToAddress " type =" usAddress "
4

Klicken Sie auf " Explorer " unter " Explorer " und doppelklicken Sie auf " XMLFile1.xml ", um es zu öffnen. Kopieren Sie den folgenden Code , um das Schema in Schritt 3 erstellte verwenden und fügen Sie einige Daten darauf :

5

Doppelklicken Sie auf " Form1 ", um Ihre Form zu sehen. Doppelklicken Sie auf " TextBox " aus der " Toolbox " Fenster, um ein neues Textfeld -Steuerelement hinzufügen . In acht weiteren Textfeld-Steuerelemente in das Formular. Fügen Sie einen "Button" -Steuerelement in das Formular . Doppelklicken Sie auf " Button1 ", um eine neue Click- Ereignis für diese Schaltfläche zu erstellen.
6

Fügen Sie die folgende Codezeile in der Spitze der Code -Modul , um die " System.Xml " Namespace verwenden :

Imports System.Xml
7

Kopieren Sie den folgenden Code in das Click-Ereignis , um die XML-Datei erstellt lesen und speichern Sie den Inhalt in einem 2- D-Array :

Dim reader Wie XmlTextReader = New XmlTextReader ("C : \\ Temp \\ XMLFile1.xml " )

Dim xmlDataArray (30, 1 ) As String Dim

xCntr As Integer

Do While ( reader.Read ())

Select Case reader.NodeType

Fall XmlNodeType.Element

( reader.Name <> " Kunde " ) und ( reader.Name <>" ShipToAddress ") Then

xmlDataArray ( xCntr , 0) = reader.Name

End If

Fall XmlNodeType . Text

xmlDataArray ( xCntr , 1) = reader.Value

xCntr + = 1

End Select

Schleife
8 < p> bearbeiten Sie die XML-Datei Pfad in Schritt 7 und geben Sie den Pfad zu der XML-Datei
9

Schleife durch das Array und fügen Sie die Daten in den Textfeldern , indem Sie den folgenden Code : .

xCntr = 0 To 10

( xmlDataArray ( xCntr , 0) = " CompanyName ") Then

Me.TextBox1.Text = xmlDataArray ( xCntr , 1 )

End If

( xmlDataArray ( xCntr , 0) = " ContactName ") Then

Me.TextBox2.Text = xmlDataArray ( xCntr , 1) german

End If

( xmlDataArray ( xCntr , 0) = "E-Mail ") Then

Me.TextBox3.Text = xmlDataArray ( xCntr , 1) german

End If
Wenn

( xmlDataArray ( xCntr , 0) = "Phone ") Then

Me.TextBox4.Text = xmlDataArray ( xCntr , 1) german

End If

Wenn ( xmlDataArray ( xCntr , 0) = "Name") Dann

Me.TextBox5.Text = xmlDataArray ( xCntr , 1) german

End If

( xmlDataArray ( xCntr , 0) = " Street" ) Dann

Me.TextBox6.Text = xmlDataArray ( xCntr , 1) german

End If

( xmlDataArray ( xCntr , 0) = "City ") Then

Me.TextBox7.Text = xmlDataArray ( xCntr , 1) german

End If

( xmlDataArray ( xCntr , 0) = "State" ) Dann

Me.TextBox8.Text = xmlDataArray ( xCntr , 1) german

End If

( xmlDataArray ( xCntr , 0) = "Zip ") Then

Me.TextBox9.Text = xmlDataArray ( xCntr , 1) german

End If Next

10

Presse "F5 ", um das Programm auszuführen. Klicken Sie auf " Button1 ", um die Textfelder zu füllen.