Πλήρωση Visual Basic πλαίσιο λίστας με μοναδικά αντικείμενα από ένα αρχείο κειμένου

δεδομένων σε αρχεία δεν είναι συνήθως το μοναδικό , έτσι ώστε οι προγραμματιστές πρέπει να ξέρετε πώς να αφαιρέσει γρήγορα επαναλαμβανόμενες τιμές , πριν την προσθήκη τους σε ένα στοιχείο ελέγχου πλαισίου λίστας . Ο καλύτερος τρόπος να γίνει αυτό είναι να διαβάσει τα δεδομένα του αρχείου σε έναν πίνακα χορδών . Στη VB , μπορείτε να χρησιμοποιήσετε το " Ξεχωριστά " μέθοδο που επιστρέφει μια μη διατεταγμένη ακολουθία που δεν περιέχει διπλές τιμές . Αποθηκεύστε τις διακριτές τιμές σε μια νέα σειρά εγχόρδων και χρησιμοποιεί το εν λόγω πίνακα ως προέλευση δεδομένων του ελέγχου πλαισίου λίστας . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί των Windows " Start" , κάντε κλικ στο πλαίσιο κειμένου που λέει " Αναζήτηση προγραμμάτων και αρχείων , " τύπος " notepad " και πατήστε το πλήκτρο " Enter" για να ξεκινήσει το Σημειωματάριο. Πληκτρολογήστε " 1 " και πατήστε "Enter " ? Τύπου " 1 " ξανά και πατήστε το πλήκτρο "Enter" ? Τύπου " 2 " και πατήστε "Enter " ? " . Enter" τύπου " 2 " ξανά και πατήστε Προσθήκη " 3 " και " 4 " χρησιμοποιώντας την ίδια τεχνική . Αποθηκεύστε το αρχείο σε ένα φάκελο στον υπολογιστή σας, όπως " myValues.txt . " 2

την εφαρμογή Microsoft Visual Basic Express και κάντε κλικ στο " New Project" στο αριστερό τμήμα της οθόνης του υπολογιστή σας . Κάντε κλικ στο " Visual Basic" κάτω από Εγκατεστημένα πρότυπα , κάντε κλικ στο " Windows Forms Application " και στη συνέχεια κάντε κλικ στο " OK " για να ξεκινήσει ένα νέο έργο .
Εικόνων 3

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

4 Κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα συμβάν κλικ το κουμπί . Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε μεταβλητές σας :

Dim ΟΝΟΜΑ Όπως String Dim

valueArray ( 10 ) Όπως String Dim

uniqueArray ( 10 ) Όπως String

Dim xCntr As Integer

5

Ορίστε τη διαδρομή για το αρχείο κειμένου σας :

ΟΝΟΜΑ = " C : \\ myValues.txt "
Η 6

Loop μέσα από τα δεδομένα στο αρχείο κειμένου και να το αποθηκεύσετε σε μια σειρά σειρά :

Αν System.IO.File.Exists ( ΟΝΟΜΑ ) = True τότε

Dim objReader As New System.IO.StreamReader ( ΟΝΟΜΑ )

Do While objReader.Peek ( ) <> -1

valueArray ( xCntr ) = objReader.ReadLine

xCntr + = 1

Loop

Else

MsgBox ( " το αρχείο δεν υπάρχει " )

End If
Η 7

Αποθηκεύστε τα δεδομένα από έναν πίνακα χορδών σε ένα άλλο string array με μοναδικές τιμές :

uniqueArray = valueArray.Distinct.ToArray
8

Χρησιμοποιήστε τον πίνακα συμβολοσειράς με μοναδικές τιμές ως πηγή δεδομένων για τον έλεγχο πλαίσιο λίστας :

Me.ListBox1.DataSource = uniqueArray
Η

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