Imparare a leggere un file XML per popolare le caselle di testo in Visual Basic.NET, che viene spesso abbreviato in VB.NET, applicazione può rendere l'applicazione più robusto da non avere l'utente immettere manualmente i dati. XML è un formato applicabile per diverse applicazioni e può essere letto utilizzando il "XmlTextReader." Il lettore fornisce forward-only, sola lettura l'accesso a un flusso di dati XML. È possibile assegnare i dati XML direttamente al controllo, o è possibile raccogliere in una matrice per un uso successivo.

istruzione

1 Avviare Microsoft Visual Studio. Fai clic su "New Project" dal riquadro di sinistra dello schermo del computer, ed espandere "Visual Basic" sotto "Modelli installati." Fai clic su "Windows" e fare doppio clic su "Applicazione Windows Form" dal centro della finestra di dialogo per creare un nuovo progetto.

2 Fare clic sul menu "Progetto" e selezionare "Nuovo elemento". Fare doppio clic su "File XML" per inserire un nuovo file XML al progetto. Inserire un nuovo file "schema XML", utilizzando la stessa tecnica.

3 Copiare e incollare il seguente codice all'interno del file "XMLSchema1.xsd" per creare il vostro schema XML:

<Xs: schema id = "XMLSchema1"

targetNamespace="http://tempuri.org/XMLSchema1.xsd"

elementFormDefault = "qualificato"

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">

& Lt; valore xs: schema = "\ d {5}" />

& lt; / xs: restrizione>

</ Xs: simpleType>

<Xs: complexType name = "usAddress">

<xs:sequence>

& Lt; xs: element name = tipo "Nome" = "xs: string" />

& Lt; xs: element name = tipo "Street" = "xs: string" />

& Lt; xs: element name = "City" type = "xs: string" />

& Lt; xs: element name = tipo "Stato" = "xs: string" />

& Lt; xs: element name = tipo "Zip" = "postalCode" />

& lt; / xs: sequence>

</ Xs: complexType>

<Xs: element name = "Customer">

<xs:complexType>

& lt; xs: sequence>

& Lt; xs: element name = tipo "CompanyName" = "xs: string" />

& Lt; xs: element name = tipo "ContactName" = "xs: string" />

& Lt; xs: element name = "Email" type = "xs: string" />

& Lt; xs: element name = "Telefono" type = "xs: string" />

& Lt; xs: element name = tipo "ShipToAddress" = "usAddress" />

& lt; / xs: sequence>

& lt; / xs: complexType>

</ Xs: element>

</ Xs: schema>

4 Fare clic sulla scheda "Solution Explorer" sotto "Solution Explorer" e fare doppio clic su "XMLFile1.xml" per aprirlo. Copiare e incollare il seguente codice per utilizzare lo schema creato nel passaggio 3 e aggiungere alcuni dati su di esso:

<Xmlns = clienti "http://tempuri.org/XMLSchema1.xsd">

<NomeSocietà> NSN </ NomeSocietà>

<ContactName> John </ ContactName>

<Mail> [email protected] </ Email>

<Telefono> 3245345 </ Telefono>

<ShipToAddress>

<Name>John</Name>

& Lt; Via> Yampa & lt; / Via>

& Lt; Città> Keller & lt; / City>

& Lt; Stato> TX & lt; / Stato>

& Lt; Zip> 76180 & lt; / Zip>

</ ShipToAddress>

</ Customer>

5 Fare doppio clic su "Form1" per visualizzare il modulo. Fare doppio clic su "TextBox" dal riquadro "Toolbox" per aggiungere un nuovo controllo casella di testo. Aggiungere altri otto controlli casella di testo al form. Aggiungere un controllo "Button" al form. Fare doppio clic su "Button1" per creare un nuovo click-evento per questo pulsante.

6 Aggiungere la seguente riga di codice nella parte superiore del modulo di codice per utilizzare lo spazio dei nomi "System.Xml":

Imports System.Xml

7 Copiare e incollare il seguente codice all'interno l'evento click per leggere il file XML creato e salvare il contenuto in un array 2-D:

lettore fioco come 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

caso XmlNodeType.Element

Se (reader.Name & lt;> "Cliente") e (reader.Name & lt;> "ShipToAddress") Poi

xmlDataArray (xCntr, 0) = reader.Name

Finisci se

caso XmlNodeType.Text

xmlDataArray (xCntr, 1) = reader.Value

xCntr + 1 =

End Select

Ciclo continuo

8 Modificare il percorso del file XML al punto 7, e digitare il percorso del file XML.

9 Loop attraverso l'array e aggiungere i dati alle caselle di testo aggiungendo il seguente codice:

Per xCntr = 0 to 10

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

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

Finisci se

Se (xmlDataArray (xCntr, 0) = "ContactName") Poi

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

Finisci se

Se (xmlDataArray (xCntr, 0) = "Email") Poi

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

Finisci se

Se (xmlDataArray (xCntr, 0) = "telefono") Poi

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

Finisci se

Se (xmlDataArray (xCntr, 0) = "Nome") Poi

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

Finisci se

Se (xmlDataArray (xCntr, 0) = "Street") Poi

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

Finisci se

Se (xmlDataArray (xCntr, 0) = "City") Poi

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

Finisci se

Se (xmlDataArray (xCntr, 0) = "Stato") Poi

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

Finisci se

Se (xmlDataArray (xCntr, 0) = "Zip") Poi

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

Finisci se

Il prossimo

10 Premere il tasto "F5" per eseguire il programma. Fai clic su "Button1" per popolare le caselle di testo.