Πώς να διαβάσετε XML & Συμπλήρωση τα πλαίσια κειμένου

Μαθαίνοντας πώς να διαβάσει ένα αρχείο XML για να συμπληρώσετε πλαίσια κειμένου σε Visual Basic.NET σας, η οποία είναι συχνά συντομογραφία VB.NET , η εφαρμογή μπορεί να κάνετε την αίτησή σας πιο ισχυρή με το να μην έχει ο χρήστης εισάγετε τα δεδομένα χειροκίνητα . Η XML είναι μια μορφή που ισχύει για πολλές διαφορετικές εφαρμογές και μπορούν να διαβαστούν χρησιμοποιώντας το " XmlTextReader . " Ο αναγνώστης παρέχει προς τα εμπρός μόνο , πρόσβαση μόνο για ανάγνωση σε μια ροή δεδομένων XML . Μπορείτε να ορίσετε τα δεδομένα XML άμεσα με τον έλεγχο , ή μπορείτε να το παραλάβετε σε μια σειρά για μελλοντική χρήση . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio . Κάντε κλικ στο " New Project" από το αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας , και να επεκτείνουν " Visual Basic " κάτω " Εγκατεστημένα πρότυπα . " Κάντε κλικ στο "Windows" και κάντε διπλό κλικ στο " Windows Forms Application " από το κέντρο του παραθύρου διαλόγου για να δημιουργήσετε ένα νέο έργο . 2

Κάντε κλικ στο μενού "Έργο" και επιλέξτε " Δημιουργία στοιχείου ". Κάντε διπλό κλικ στο "Αρχείο XML " για να εισάγετε ένα νέο αρχείο XML στο έργο σας . Τοποθετήστε ένα νέο αρχείο " XML Schema ", χρησιμοποιώντας την ίδια τεχνική
εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μέσα στο αρχείο " XMLSchema1.xsd " για να δημιουργήσετε σχήματος XML σας : .

< xs : σχήμα name = " Ταχυδρομικός Κώδικας" >

< /xs : περιορισμός >

< /xs : simpleType >

< xs : element name = Τύπος " Οδός " = " xs : string " />

< xs : όνομα του στοιχείου = " κράτος " type = " xs : string " />

< /xs : ακολουθία >

< /xs : complexType >

< xs : ακολουθία >

< xs : element name = Τύπος " ΌνομαΕπαφής " = " xs : string " />

< xs : element name = " " type = " Τηλέφωνο xs : string " />

< xs : element name = " ShipToAddress " type = " usAddress " Φτηνές 4

Κάντε κλικ στην καρτέλα " Εξερεύνηση λύση " υπό τον τίτλο " Λύση Explorer " και κάντε διπλό κλικ στο " XMLFile1.xml " για να το ανοίξετε . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να χρησιμοποιήσουν το σχήμα που δημιουργήσατε στο βήμα 3 και να προσθέσετε κάποια στοιχεία σε αυτό :

< xmlns πελάτη = " http://tempuri.org/XMLSchema1.xsd " Φτηνές 5

διπλό κλικ στο " Form1 " για να δείτε τη φόρμα σας . Κάντε διπλό κλικ στο " πλαίσιο κειμένου " από την " Toolbox" παράθυρο για να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου κειμένου . Προσθέστε οκτώ περισσότερα στοιχεία ελέγχου πλαισίου κειμένου στη φόρμα σας . Προσθέστε ένα " κουμπί" ελέγχου στη φόρμα σας . Κάντε διπλό κλικ στο " Button1 " για να δημιουργήσετε μια νέα click - event για αυτό το κουμπί .
Η 6

Προσθέστε την ακόλουθη γραμμή κώδικα στην κορυφή της ενότητας κωδικό σας για να χρησιμοποιήσετε το " System.Xml " namespace :

Εισαγωγές System.Xml
Σελίδα 7

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μέσα στο συμβάν κλικ για να διαβάσετε το αρχείο XML που δημιουργείται και να αποθηκεύσετε τα περιεχόμενα σε μια σειρά 2 - D : < br >

Dim αναγνώστη Όπως XmlTextReader = Νέα XmlTextReader ( " C : \\ Temp \\ XMLFile1.xml " )

Dim xmlDataArray ( 30 , 1 ) Όπως String Dim

xCntr As Integer < br >

Do While ( reader.Read ( ) )

Select Case reader.NodeType

υπόθεση XmlNodeType.Element

Αν ( reader.Name < > " πελάτης ") και ( reader.Name < > " ShipToAddress ") Στη συνέχεια

xmlDataArray ( xCntr , 0 ) = reader.Name

End If

υπόθεση XmlNodeType . κείμενο

xmlDataArray ( xCntr , 1 ) = reader.Value

xCntr + = 1

End Select

Loop
8 < p> Επεξεργασία τη διαδρομή του αρχείου XML στο Βήμα 7 και πληκτρολογήστε τη διαδρομή προς το αρχείο XML σας
Η 9

Loop μέσω της συστοιχίας και να προσθέσετε τα δεδομένα σε πλαίσια κειμένου με την προσθήκη του παρακάτω κώδικα : . < br >

Για xCntr = 0 Σε 10

Αν ( xmlDataArray ( xCntr , 0 ) = " CompanyName ") Στη συνέχεια

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

End If

Αν ( xmlDataArray ( xCntr , 0 ) = " ΌνομαΕπαφής ") Στη συνέχεια

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

End If

Αν ( xmlDataArray ( xCntr , 0 ) = " Αποστολή" ) Στη συνέχεια,

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

End If < br > Αν

( xmlDataArray ( xCntr , 0 ) = " Τηλέφωνο ") Στη συνέχεια

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

End If

Αν ( xmlDataArray ( xCntr , 0 ) = " Όνομα ") Στη συνέχεια

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

End If

Αν ( xmlDataArray ( xCntr , 0 ) = " Οδός ") Στη συνέχεια

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

End If

Αν ( xmlDataArray ( xCntr , 0 ) = "City ") Στη συνέχεια

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

End If

Αν ( xmlDataArray ( xCntr , 0 ) = " κράτος " ) Στη συνέχεια

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

End If

Αν ( xmlDataArray ( xCntr , 0 ) = "Zip ") Στη συνέχεια < br >

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

End If

Επόμενο
Η 10

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα . Κάντε κλικ στο " Button1 " για να συμπληρώσετε τα πλαίσια κειμένου .
Η
εικόνων