< xs: sekvens >
< xs: element name = " ContactName " type = " xs : string " />
< xs: element name = " Phone " type =" xs : string " />
< xs: element name = " ShipToAddress "type = " usAddress "
4
Klikk på " Solution Explorer "-kategorien under " Solution Explorer " og dobbeltklikk på " XMLFile1.xml " for å åpne den. Kopier og lim inn følgende kode for å bruke skjemaet opprettet i trinn 3 og legge til noen data til det : en
< Customer xmlns = " http://tempuri.org/XMLSchema1.xsd "
5
Dobbeltklikk på " Form1 " for å vise skjemaet. Dobbeltklikk på " TextBox " fra " Toolbox" -panelet for å legge til en ny tekstboks kontroll. Legg åtte flere tekstbokskontrollene i skjemaet. Legge til en " Button" kontroll i skjemaet. Dobbeltklikk på " Button1 " for å opprette en ny klikk -event for denne knappen.
6
Legg til følgende linje med kode i toppen av koden din modul for å bruke " System.Xml " namespace : en
Import System.Xml
7
Kopier og lim inn følgende kode i klikkhendelsen å lese XML -filen er opprettet og lagre innholdet til en 2 -D matrise:
Dim leseren Som XmlTextReader = Ny XmlTextReader ( "C : \\ Temp \\ XMLFile1.xml " )
Dim xmlDataArray ( 30 , 1 ) As String
Dim xCntr As Integer
Mens ( reader.Read ( ) )
Velg sak reader.NodeType
sak XmlNodeType.Element
p Hvis ( reader.Name < > " kunden ") og ( reader.Name < >" ShipToAddress ") Så
xmlDataArray ( xCntr , 0 ) = reader.Name
End If
sak XmlNodeType . tekst
xmlDataArray ( xCntr , 1 ) = reader.Value
xCntr + = 1
End Velg
Loop
8 < p> Rediger XML filbanen i trinn 7 , og skriver inn banen til XML-filen
9
Loop gjennom matrisen og legge dataene til tekstbokser ved å legge følgende kode: .
For xCntr = 0 til 10