| Hjem | Hardware | Netværk | Programmering | software | Fejlfinding | systemer | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringssprog
  • Delphi programmering
  • Java programmering
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl programmering
  • Python Programming
  • Ruby Programming
  • Visual Basics Programmering
  •  
    Computer Viden >> Programmering >> Visual Basics Programmering >> Content
    Sådan Læs XML & befolker tekstfelter
    At lære at læse en XML-fil til at udfylde tekstbokse i din Visual Basic.NET , som ofte er forkortet som VB.NET kan anvendelsen gøre din ansøgning mere robust ved ikke at have brugeren indtaste data manuelt. XML er en gældende format for mange forskellige applikationer og kan læses ved hjælp af " XmlTextReader ". Læseren giver fremadrettede kun læseadgang til en strøm af XML-data . Du kan tildele XML-data direkte til at styre , eller du kan hente den i et array til senere brug. Ting du skal
    Microsoft Visual Studio
    Vis Flere Instruktioner
    1

    Launch Microsoft Visual Studio . Klik på " Nyt projekt " fra venstre rude på din computerskærm , og udvide " Visual Basic " under " Installerede skabeloner ". Klik på " Windows" og dobbeltklik på "Windows Forms Application " fra midten af dialogvinduet for at oprette et nyt projekt.
    2

    Klik på " Project" menuen og vælge " Nyt element . " Dobbeltklik på " XML File" for at indsætte en ny XML-fil til dit projekt. Indsæt en ny "XML Schema " fil , ved hjælp af samme teknik
    3

    Kopier og indsæt følgende kode inde i " XMLSchema1.xsd " fil til at oprette din XML-skema : .

    < xs: schema name = " postalCode " >








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


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


    < /xs: sekvens >




    < xs: sekvens >


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


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

    < xs: element name =" ShipToAddress "type =" usAddress "
    4

    Klik på " Solution Explorer " under " Solution Explorer ", og dobbeltklik på " XMLFile1.xml " for at åbne det. Kopier og indsæt følgende kode til at bruge det skema oprettede i trin 3 , og tilføje nogle data til den : Hej

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

    Dobbeltklik på " Form1 " for at se din formular . Dobbeltklik på " TextBox " fra " Toolbox" ruden for at tilføje en ny tekstboks . Tilføj otte mere tekst box kontrolelementer til formularen . Tilføj en " Button " kontrol til formularen . Dobbeltklik på " Button1 " for at oprette et nyt click -event for denne knap.
    6

    Tilføj følgende linje kode i selve toppen af din kode modul til at bruge " System.Xml " namespace : Hej

    Import System.Xml
    7

    Kopier og indsæt følgende kode inde klik begivenheden til at læse XML oprettede fil og gemme indholdet til en 2 -D matrix: < br >

    Dim reader Som XmlTextReader = Ny XmlTextReader ( "C: \\ Temp \\ XMLFile1.xml " )

    Dim xmlDataArray (30, 1 ) As String

    Dim xCntr As Integer < br >

    Do While ( reader.Read () )

    Vælg Case reader.NodeType

    Case XmlNodeType.Element
    p Hvis ( reader.Name < > " kunden " ) og ( reader.Name < >" ShipToAddress " ) Så

    xmlDataArray ( xCntr , 0) = reader.Name

    End If

    Case XmlNodeType . Tekst

    xmlDataArray ( xCntr , 1) = reader.Value

    xCntr + = 1

    End Vælg

    Loop
    8 < p> Rediger XML-fil sti i trin 7 , og skriv stien til din XML-fil
    9

    Loop gennem array og tilføje data til tekstbokse ved at tilføje følgende kode : . < br >

    xCntr = 0 Til 10
    p Hvis ( xmlDataArray ( xCntr , 0) = " Firmanavn " ) Så

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

    End If
    p Hvis ( xmlDataArray ( xCntr , 0) = " ContactName " ) Så

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

    End If
    p Hvis ( xmlDataArray ( xCntr , 0) = " e-mail" ) Så

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

    End If < br >

    Hvis ( xmlDataArray ( xCntr , 0) = " telefon" ) Så

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

    End If

    Hvis ( xmlDataArray ( xCntr , 0) = "Navn" ) Så

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

    End If
    p Hvis ( xmlDataArray ( xCntr , 0) = " Street " ) Så

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

    End If
    p Hvis ( xmlDataArray ( xCntr , 0) = "By" ) Så

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

    End If
    p Hvis ( xmlDataArray ( xCntr , 0) = " stat" ) Så

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

    End If
    p Hvis ( xmlDataArray ( xCntr , 0) = " Zip " ) Så < br >

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

    End If

    Næste
    10

    Tryk på " F5 " for at køre programmet. Klik på " Button1 " for at befolke tekstbokse.

    Forrige :

    næste :
      Relaterede artikler
    ·Sådan bruges VB Logic Genbestil en liste 
    ·Struktur i VB.NET 
    ·Fordele ved Sekventiel Access filer 
    ·Visual Basic Gmail Kunne ikke få forbindelse til serve…
    ·Sådan Læg varer i en Dropdown /ComboBox i VB.net 
    ·Sådan køres Access Forespørgsler på Visual Basic 
    ·Sådan overføres data fra én tabel til en anden igenn…
    ·Hvordan man skriver en Array til en fil i Visual Basic 
    ·Sådan Konverter kildekoden fra CSharp til vb.Net og Ba…
    ·Sådan Konverter en exe-fil APP på FoxPro 
      Anbefalede Artikler
    ·Sådan Place Redirect Code på PHP 
    ·Hvordan man kompilerer Java Programmering kode 
    ·Hvordan er UML forskellig fra andre Modeling 
    ·Sådan oprettes et træ menu med PHP & MySQL 
    ·JavaScript Tutorial for Time Validation Function 
    ·Sådan vises en retvinklet trekant af numre i C Program…
    ·Hvordan man laver et enkelt bogstav Lavere Case i Java 
    ·Sådan opdaterer flere kolonner 
    ·Sådan Konverter String til Long i PHP 
    ·Sådan Track instans af en klasse Ved hjælp af en sond…
    Copyright © Computer Viden http://www.computerdk.com