Πώς να γράψετε μια λίστα των βασικών ζευγών Αξία σε VB.NET

Είτε εφαρμοστεί ως δομή ή σε μια συλλογή , το ζεύγος κλειδιών αξία παρέχει ένα ισχυρό εργαλείο για τους προγραμματιστές Visual Basic.Net . Μια μοναδική συλλογή από τις βασικές αξίες , που συνήθως είναι ένα απλό string ή integer , οδηγεί σε ένα πιο σύνθετο τύπο δεδομένων ή τη δομή , επιτρέπει τη γρήγορη πρόσβαση στα δεδομένα . Για παράδειγμα , όταν ένας χρήστης στο διαδίκτυο παρέχει ένα όνομα χρήστη , το πλήκτρο αυτό μπορείτε να ανακτήσετε τον κωδικό πρόσβασης και τα δικαιώματα που συνδέονται με τον χρήστη . Μετά από μερικά βήματα , μπορείτε να αποθηκεύσετε και στη συνέχεια να ανακτήσει ένα σύνολο απλών βασικά ζευγάρια αξίας σε ένα αρχείο κειμένου . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio ή Visual Basic Express ( 2005 ή αργότερα )
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Visual Studio ή Visual Basic Express , στη συνέχεια, κάντε κλικ στο κουμπί " Αρχείο "και " New Project ". Όταν εμφανιστεί το νέο παράθυρο έργου , κάντε κλικ στο " Visual Basic , τα Windows " για την προβολή δέντρου , επιλέξτε το εικονίδιο εφαρμογής κονσόλας , στη συνέχεια, κάντε κλικ στο κουμπί " OK" . Μετά από μια σύντομη αναμονή , θα εμφανιστεί το παράθυρο του επεξεργαστή κειμένου 2

Προσθέστε τις ακόλουθες εισαγωγές στην κορυφή του προγράμματος : .

Εισαγωγές System.Collections.Generic

εισαγωγές System.IO

Module Module1

Sub Main ( )

οι εισαγωγές παρέχουν ορισμούς για την κατηγορία SortedList , καθώς και τα αντικείμενα και τις μεθόδους για να διαβάσει και να γράψει αρχεία κειμένου . Το υπόλοιπο κώδικα δημιουργήθηκε από το Visual Studio
εικόνων 3

Δημιουργήστε μια ταξινομημένη λίστα και θα το φορτώσει με κάποια δεδομένα: .

Dim κράτη As New SortedList ( Από String , String )

states.Add ( "CA " , "California " )

states.Add ( " NV " , " Nevada" )

states.Add ( "UT " , " Utah" )

states.Add ( "AZ " , " Αριζόνα " )

states.Add ( "CO" , " Κολοράντο " )

states.Add ( " NM " , " New Mexico " )

Console.WriteLine ( " κράτη προστεθεί στη λίστα : " & states.Count.ToString )

Η SortedList δηλώνει τώρα περιέχει μερικές συντομογραφίες κωδικό πολιτείας και κατάσταση που σχετίζεται με τα ονόματά τους
Η 4

Γράψτε την ταξινομημένη λίστα σε ένα αρχείο κειμένου : .

Δημ. fileName As String = " StateList.txt "

Dim wrtr Όπως StreamWriter = Τίποτα

Dim i As Integer

Δοκιμάστε

wrtr = File.CreateText ( fileName )

Για i = 0 Για να states.Count - 1

wrtr.WriteLine ( states.Keys ( i ) & " , " & states.Values ​​( i ) )

Επόμενο

Catch ex Όπως Εξαίρεση

Console.WriteLine ( " δεν είναι δυνατή η εγγραφή λίστα κράτος» και ex.Message )

Επιστροφή

Τέλος

wrtr.Close ( )

End Δοκιμάστε

Εδώ μπορείτε να χρησιμοποιήσετε ένα StreamWriter να γράψει τον κώδικα του κράτους και όνομα χωρίζονται από ένα κόμμα σε ένα αρχείο κειμένου που ονομάζεται stateList.txt
5

Διαβάστε το αρχείο κειμένου πίσω σε ένα δεύτερο sortedList : .

Dim newStates As New SortedList ( Από String , String )

Dim rdr Όπως StreamReader = Τίποτα

Dim txt Όπως String

Dim s As String ( )

Δοκιμάστε

rdr = File.OpenText ( fileName )

Ενώ rdr.EndOfStream = False

txt = rdr.ReadLine

s = txt.Split ( " , " )

newStates.Add ( s ( 0 ) , s ( 1 ) )

End Ενώ

Catch ex Όπως Εξαίρεση

MsgBox ( " δεν μπορώ να διαβάσω λίστα κράτος» και ex.Message )

Επιστροφή

Τέλος

rdr.Close ( )

End Δοκιμάστε

Αυτό το μπλοκ του κώδικα διαβάζει το αρχείο μία γραμμή κάθε φορά σε μια μεταβλητή συμβολοσειράς , στη συνέχεια, χρησιμοποιεί τη μέθοδο διαχωρισμού της στοιχειοσειράς να σπάσει πίσω στα βασικά και την αξία ζεύγη . Μόλις τα ζευγάρια πάρουν διάσπαση , που προστίθενται σε μια νέα ταξινομημένη λίστα που ονομάζεται newStates
Η 6

Εμφάνιση των περιεχομένων του νέου ταξινομημένη λίστα στην κονσόλα : .

Για i = 0 Για να newStates.Count - 1

Console.WriteLine ( newStates.Keys ( i ) & " - " & newStates.Values ​​( i ) )

Επόμενο

End Sub

End Module

Εδώ μπορείτε απλά περάστε μέσα από την ταξινομημένη λίστα και να εμφανίσει κάθε ζευγάρι στην κονσόλα . Δεδομένου ότι αυτό είναι μια ταξινομημένη λίστα , τα κράτη ταξινομούνται αυτόματα σε αλφαβητική σειρά κατά τιμή του κλειδιού .
Η

7 Κάντε κλικ στο κουμπί " F5 " για να εκτελέσετε το πρόγραμμα .

Η