Wie Schleife, doppelte Namen in eine zufällige Datei in VB 4/5/6 zu finden.

Doppelte Namen können mit der Eingabe von Daten in einer Anwendung zu Problemen führen. Ein typisches Beispiel ist wo Benutzer aus einer Textdatei exportiert und in eine Datenbank eingegeben werden. Ein Skript kann in Visual Basic, um die doppelten Einträge zu finden und verhindern, dass sie eingegeben werden, mehr als einmal in die Datenbank geschrieben werden. Dadurch sparen Sie die Daten bearbeiten und manuell, Duplikate entfernen, sobald es, in die neue Anwendung importiert wurde.

Anweisungen

1 Öffnen Sie einen Visual Basic-Editor.

2 Erstellen Sie ein neues Unterprogramm:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

3 Lesen Sie die Informationen für eine zufällige Textdatei und speichern Sie es in einer Variablen:

Dim Usernames As String() = IO. File.ReadAllLines("c:\usernames.txt")

4 Durchlaufen Sie die Textdatei, und überprüfen Sie, ob der Benutzername bereits gefunden wurde:

Für jede Zeile im Benutzernamen

Kundenanlage = Zeile

Wenn Array.FindIndex (Benutzernamen, 0, AddressOf FindLine) < 0 Then

MsgBox ("Dubplicate gefunden!")

Falls der Benutzername eines bereits gespeicherten in der Variablen "Kundenanlage" ist, ist ein Duplikat gefunden worden.

5 Schließen Sie die Schleife, die bereits geöffnet wurde:

EndIf

Nächste

EndSub

6 Fügen Sie die Funktion um die einzelne Zeile überprüfen:

Private Function FindLine(ByVal line As String) As Boolean

Wenn Zeile = ToFind Then

Die Rückgabe von True

Sonst

False zurück

EndIf

EndFunction

Diese Funktion wird in einem vorherigen Schritt aufgerufen.

7 Drücken Sie die F5-Taste, um den Code auszuführen. Der Code wird die Textdatei durchlaufen und ein Meldungsfeld wird angezeigt, wenn Duplikate gefunden werden.