Imparare a leggere un file XML per popolare le caselle di testo in Visual Basic.NET , che è spesso abbreviato in VB.NET , applicazione può rendere l'applicazione più robusta da non avere l' utente inserire i dati manualmente . XML è un formato applicabile a molteplici applicazioni e può essere letto utilizzando il " XmlTextReader . " Il lettore fornisce forward -only , sola lettura a un flusso di dati XML . È possibile assegnare i dati XML direttamente da controllare, oppure è possibile raccogliere in un array per un uso successivo . Cose che ti serviranno
Microsoft Visual Studio
Mostra più istruzioni
1

lancio di Microsoft Visual Studio . Fare clic su " Nuovo Progetto" dal riquadro sinistro dello schermo del computer , e di espandere " Visual Basic " di sotto " Modelli installati . " Fare 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 " XML Schema " , con la stessa tecnica
3

Copia e incolla il seguente codice all'interno del file " XMLSchema1.xsd " per creare il vostro schema XML : .

< xs : schema name = " postalCode " >

< /xs : restrizione >

< /xs : simpleType >

< xs type="xs:string" : nome dell'elemento = tipo di " Street" = "xs : string " />

< xs : nome dell'elemento = " Stato " type = " xs: string " />

< /xs : sequence >

< /xs : complexType >

< xs : sequenza >

< xs : nome dell'elemento = tipo " NomeContatto " = " xs: string " />

< xs : nome di elemento = " " type = " Telefono xs : stringa " />

< xs : nome di elemento = " " type = " ShipToAddress usAddress "

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

< xmlns cliente = " http://tempuri.org/XMLSchema1.xsd "
5

doppio clic su " Form1 " per visualizzare il modulo. Fare doppio clic su " TextBox " dal riquadro " Casella degli strumenti " 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

Copia e incolla il seguente codice all'interno del evento click per leggere il file XML creato e salvare il contenuto in un array 2-D :

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

Dim xmlDataArray ( 30 , 1) As String Dim

xCntr As Integer

Do While ( reader.Read ( ) ) per

Select Case reader.NodeType

caso XmlNodeType.Element

( reader.Name < > " cliente ") e ( reader.Name < > " ShipToAddress " ) Poi

xmlDataArray ( xCntr , 0 ) = reader.Name

End If

caso XmlNodeType . testo

xmlDataArray ( xCntr , 1 ) = reader.Value

xCntr + = 1

End Select loop

8

Modificare il percorso del file XML in Step 7 , e digitare il percorso del file XML
9

scorrere la matrice e aggiungere i dati per le caselle di testo , aggiungendo il seguente codice : .

xCntr = 0 a 10

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

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

End > Se

( xmlDataArray ( xCntr , 0 ) = " NomeContatto " ) Poi

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

End If

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

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

End If

( xmlDataArray ( xCntr , 0 ) = " Telefono " ) Poi

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

End If

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

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

End If

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

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

End If

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

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

End If

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

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

End If

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

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

End If

Prossimo
10

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

• Come controllare per null se un nodo XML Esiste in VB 
• Come salvare tutta la lista di dialogo Elementi di un database in VB