Lernen, wie man eine XML-Datei lesen zu bevölkernTextfelder in Ihrem Visual Basic.NET, die oft abgekürzt als VB.NET, kann Antrag stellen Ihre Anwendung robuster durch nicht mit der 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.
POPULATE
Was Sie benötigen
Microsoft Visual Studio
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.
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.
Kopieren Sie den folgenden Code innerhalb der "XMLSchema1.xsd"-Datei auf Ihrem XML Schema zu erstellen:
xs: schema id = "XMLSchema1"
targetNamespace = "http://tempuri.org/XMLSchema1.xsd"
elementFormDefault = "qualified"
xmlns = "http://tempuri.org/XMLSchema1.xsd"
xmlns: mstns = "http://tempuri.org/XMLSchema1.xsd"
xmlns: xs = "http://www.w3.org/2001/XMLSchema"
xs: simpleType name = "postalCode"
xs: restriction base = "xs: positiveInteger"
xs: pattern value = "\ d {5}" /
/ Xs: restriction
/ Xs: simpleType
xs: complexType name = "usAddress"
xs: sequence
xs: element name = "Name" type = "xs: string" /
xs: element name = "Street" type = "xs: string" /
xs: element name = "City" type = "xs: string" /
xs: element name = "State" type = "xs: string" /
xs: element name = "Zip" type = "postalCode" /
/ Xs: sequence
/ Xs: complexType
xs: element name = "Kunde"
xs: complexType
xs: sequence
xs: element name = "CompanyName" type = "xs: string" /
xs: element name = "ContactName" type = "xs: string" /
xs: element name = "E-Mail" type = "xs: string" /
xs: element name = "Phone" type = "xs: string" /
xs: element name = "ShipToAddress" type = "usAddress" /
/ Xs: sequence
/ Xs: complexType
/ Xs: element
/ Xs: schema
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 einige Daten dazu:
Kunden xmlns = "http://tempuri.org/XMLSchema1.xsd"
CompanyNameNSN / CompanyName
ContactNameJohn / ContactName
Emailjohn@gmail.com / Email
Phone3245345/Phone
ShipToAddress
NameJohn Name /
StreetYampa / Straße
CityKeller / Ort
StateTX / Staat
Zip76180/Zip
/ ShipToAddress
/ Customer
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.
Fügen Sie die folgende Codezeile in der Spitze der Code-Modul, um die "System.Xml" Namespace verwenden:
Imports System.Xml
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 As Integer xCntr
Do While (reader.Read ())
Select Case reader.NodeType
Fall XmlNodeType.Element
Wenn (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
Bearbeiten Sie die XML-Datei Pfad in Schritt 7 und geben Sie den Pfad zu der XML-Datei.
Schleife durch das Array und fügen Sie die Daten in den Textfeldern, indem Sie den folgenden Code:
Für xCntr = 0 bis 10
Wenn (xmlDataArray (xCntr, 0) = "CompanyName") Then
Me.TextBox1.Text = xmlDataArray (xCntr, 1)
End If
Wenn (xmlDataArray (xCntr, 0) = "ContactName") Then
Me.TextBox2.Text = xmlDataArray (xCntr, 1)
End If
Wenn (xmlDataArray (xCntr, 0) = "E-Mail") Then
Me.TextBox3.Text = xmlDataArray (xCntr, 1)
End If
Wenn (xmlDataArray (xCntr, 0) = "Phone") Then
Me.TextBox4.Text = xmlDataArray (xCntr, 1)
End If
Wenn (xmlDataArray (xCntr, 0) = "Name") Then
Me.TextBox5.Text = xmlDataArray (xCntr, 1)
End If
Wenn (xmlDataArray (xCntr, 0) = "Street") Then
Me.TextBox6.Text = xmlDataArray (xCntr, 1)
End If
Wenn (xmlDataArray (xCntr, 0) = "City") Then
Me.TextBox7.Text = xmlDataArray (xCntr, 1)
End If
Wenn (xmlDataArray (xCntr, 0) = "State") Then
Me.TextBox8.Text = xmlDataArray (xCntr, 1)
End If
Wenn (xmlDataArray (xCntr, 0) = "Zip") Then
Me.TextBox9.Text = xmlDataArray (xCntr, 1)
End If
Weiter
Drücken Sie auf "F5", um das Programm auszuführen. Klicken Sie auf "Button1" zu bevölkern die Textfelder.
No hay comentarios:
Publicar un comentario