Ako čítať XML a vyplnenie textových polí

Naučiť sa čítať súbor XML naplniť textové polia v aplikácii Visual Basic.NET , ktorý je často skrátene VB.NET , aplikácia môže vaše aplikácie viac robustné tým , že nie je užívateľovi zadajte dáta ručne . XML je použiteľný formát pre mnoho rôznych aplikácií a možno čítať pomocou " XmlTextReader . " Čítačka poskytuje iba pre odovzdávanie , len pre čítanie prístup k prúdu dát XML . Môžete priradiť XML dáta priamo do riadenia , alebo si môžete vyzdvihnúť v poli pre neskoršie použitie . Veci , ktoré budete potrebovať v Microsoft Visual Studio
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Visual Studio . Kliknite na tlačidlo " Nový projekt " z ľavého panelu obrazovky počítača , a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " Kliknite na " Windows " a double - kliknite na " Windows Forms aplikácie " od stredu okna na vytvorenie nového projektu .
2

Kliknite na menu " Project " a vyberte " Nová položka . " Double - kliknite na " Súbor XML " vložiť nový XML súbor do projektu . Vložte nový súbor " schéma XML " , rovnakou technikou
3

Skopírujte a vložte nasledujúci kód do súboru " XMLSchema1.xsd " vytvoriť schému XML : .

< xs : schema name = " PostalCode " >

< /xs : Obmedzenie >

< /xs : simpleType >

element name = " Ulica " type = :

sťahovanie

< xs " xs : string " />

sťahovanie

< xs : element name = "štát" type = " xs : string " />

sťahovanie

< /xs : sekvencia >

< /xs : complexType >

< xs : sekvencie >

sťahovanie

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

sťahovanie

< xs : element name = " Telefón " type = " xs : string " />

< xs : element name = " ShipToAddress " type = " usAddress " Stránka 4

Kliknite na záložku " Solution Explorer " v " Solution Explorer " a dvakrát kliknite na " XMLFile1.xml " a otvorte ju . Skopírujte a vložte nasledujúci kód použiť schému vytvorený v kroku 3 a pridať niektoré údaje na nej :

< xmlns zákazníkov = " http://tempuri.org/XMLSchema1.xsd "
5

Double - kliknite na " Form1 " zobrazíte formulár . Double - kliknite na " textové pole " z " Toolbox " paneli pridať nový ovládací prvok textové pole . Pridať ďalších osem ovládacie prvky textové pole do formulára . Pridanie ovládacieho prvku tlačidla " " formulára . Double - kliknite na " Button1 " vytvoriť novú click - akciu pre toto tlačidlo .
6

Pridajte nasledujúci riadok kódu v samom vrchole module kódu použiť " System.Xml " namespace :

Dovoz System.Xml
7

skopírujte a vložte nasledujúci kód vnútri udalosť click čítať XML súbor vytvorený a uložiť obsah do poľa 2 - D :

Dim reader Ako XmlTextReader = new XmlTextReader ( " C : \\ Temp \\ XMLFile1.xml " )

Dim xmlDataArray ( 30 , 1 ) As String Dim

xCntr As Integer

robiť , keď ( reader.Read ( ) )

Select Case reader.NodeType

Case XmlNodeType.Element

( reader.Name < > " zákazník " ) a ( reader.Name < > " ShipToAddress " ) Potom

xmlDataArray ( xCntr , 0 ) = reader.Name

End If klipart

Case XMLNodeType . text

xmlDataArray ( xCntr , 1 ) = reader.Value

xCntr + = 1

End Select

Loop
8

Upraviť cestu k súboru XML v kroku 7 , a zadajte cestu k súboru XML
9

Loop cez pole a pridať dáta do textových polí pridaním nasledujúceho kódu : .

xCntr = 0 až 10

( xmlDataArray ( xCntr , 0 ) = " Názov spoločnosti " ) Potom

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

End If

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

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

end If

( xmlDataArray ( xCntr , 0 ) = " E - mail " ) Potom

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

end If

( xmlDataArray ( xCntr , 0 ) = " Telefón " ) Potom

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

End If

je - li ( xmlDataArray ( xCntr , 0 ) = " Meno " ) Potom

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

End If

( xmlDataArray ( xCntr , 0 ) = " ulica " ) Potom

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

End If

( xmlDataArray ( xCntr , 0 ) = " Mesto " ) Potom

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

End If

( xmlDataArray ( xCntr , 0 ) = "štát" ) potom

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

End If

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

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

End If

Ďalšie
10

Stlačte " F5 " pre spustenie programu . Kliknite na " Button1 " k naplneniu textových polí .

• Predchádzajúca strana: Ako kontrolovať hodnotu null , ak XML uzol existuje vo VB 
• Ďalšia strana: Ako ušetriť všetky položky zoznamu do databázy v VB