Πώς να βρόχο για να βρείτε τα διπλά ονόματα σε τυχαία αρχείου σε VB 4/5/6

Διπλότυπο ονόματα μπορεί να προκαλέσει προβλήματα με την εισαγωγή δεδομένων σε μια εφαρμογή . Ένα τυπικό παράδειγμα είναι όταν οι χρήστες έχουν εξαχθεί από ένα αρχείο κειμένου και να εισέλθει σε μια βάση δεδομένων . Ένα σενάριο μπορεί να γραφτεί σε Visual Basic για να βρείτε τις διπλές καταχωρήσεις και να τους αποτρέψει από την εισαγωγή τους , περισσότερο από μία φορά , στη βάση δεδομένων . Αυτό θα σας εξοικονομήσει επεξεργασία των δεδομένων και την αφαίρεση των διπλότυπων με το χέρι , αφού έχει εισαχθεί στη νέα εφαρμογή . Τα πράγματα που θα χρειαστείτε
Visual Basic editor
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε ένα πρόγραμμα επεξεργασίας της Visual Basic . 2

Δημιουργήστε μια νέα υπορουτίνα :

Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click εικόνων
3

Διαβάστε τις πληροφορίες για μια τυχαία αρχείο κειμένου και να το αποθηκεύσετε σε μια μεταβλητή :

Dim usernames Όπως String ( ) = IO.File.ReadAllLines ( "c : \\ usernames.txt " )
Η 4

Loop μέσα από το αρχείο κειμένου και ελέγξτε αν το όνομα έχει ήδη βρεθεί :

Για κάθε γραμμή usernames

tofind = γραμμή

Εάν Array.FindIndex ( usernames , 0 , AddressOf FindLine ) <0 στη συνέχεια

MsgBox ( " Dubplicate βρέθηκε ! " )

Αν το όνομα είναι ένα ήδη αποθηκευμένο στη μεταβλητή " tofind , " ένα αντίγραφο έχει βρεθεί .
5

Κλείστε το βρόχο που έχει ήδη ανοίξει :

End If

Επόμενο

End Sub
Η 6

Προσθέστε τη λειτουργία για να ελέγξει το άτομο γραμμή:

FindLine Private Function ( ByVal γραμμή Όπως String ) Όπως Boolean

Εάν η γραμμή = tofind τότε

Επιστροφή True

Else

Επιστροφή False

End If End

λειτουργία

αυτή η λειτουργία καλείται σε προηγούμενο στάδιο .
Η

7 Πατήστε το πλήκτρο F5 για να εκτελέσετε ο κώδικας . Ο κωδικός βούληση βρόχο μέσα από το αρχείο κειμένου και ένα πλαίσιο μηνύματος θα δείξει αν υπάρχουν αντίγραφα που βρέθηκαν .
Η
εικόνων