Doppelte Namen können zu Problemen mit der Eingabe von Daten in eine Anwendung . Ein typisches Beispiel ist, wenn Benutzer aus einer Textdatei exportiert werden und in eine Datenbank eingegeben . Ein Skript kann in Visual Basic geschrieben werden, um die doppelte Einträge finden und verhindern, dass sie eingetragen ist , mehr als einmal in die Datenbank. Dies erspart Ihnen die Bearbeitung der Daten und Entfernen der Duplikate manuell , wenn es importiert wurde , in der neuen Anwendung . Dinge, die Sie Visual Basic -Editor
brauchen anzeigen Weitere Anweisungen
1
Öffnen Sie eine Visual Basic -Editor.
2
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
Benutzernamen As String () = IO.File.ReadAllLines ( "c: \\ Usernames.txt " )
4
Durchlaufen der Textdatei und überprüfen Sie, ob der Benutzername ist bereits gefunden :
für jede Zeile in Benutzernamen
ZuSuchen = line
Wenn Array.FindIndex (Benutzernamen , 0, AddressOf FindLine ) < 0 Then
MsgBox (" Dubplicate gefunden !")
Wenn der Benutzername ist bereits in der Variable gespeichert " ZuSuchen , " ein Duplikat gefunden wurde.
5 < p> Schließen Sie die Schleife, die bereits geöffnet wurde :
End If Next
End Sub
6
in Funktion, um die einzelnen überprüfen line:
private Function FindLine (ByVal Zeile As String) As Boolean
Wenn line = ZuSuchen Dann
Return False
Else
< p > Zurück Falsch
End If End Function
Diese Funktion in einem vorherigen Schritt aufgerufen wird.
7
Drücken Sie die F5 -Taste, um laufen der Code . Der Code wird eine Schleife durch die Text-Datei und einer Message-Box wird zeigen, ob alle Duplikate gefunden werden .
