Dubbele namen kunnen problemen met het invoeren van gegevens in een applicatie veroorzaken . Een typisch voorbeeld is waar gebruikers worden uitgevoerd uit een tekstbestand en ingevoerd in een database. Een script kan in Visual Basic geschreven worden aan de dubbele vermeldingen te vinden en te voorkomen dat ze worden ingevoerd , meer dan eens , in de database . Dit bespaart u het bewerken van de gegevens en het handmatig verwijderen van de duplicaten , als het eenmaal is ingevoerd , in de nieuwe applicatie . Wat je nodig hebt
Visual Basic editor
Toon Meer Aanwijzingen
1 Open een Visual Basic -editor . Kopen van 2 Maak een nieuwe subroutine : Private Sub Button1_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) op Twitter Handles Button1.Click
3 Lees de informatie voor een willekeurig tekstbestand en opslaan in een variabele : Dim gebruikersnamen
As String ( ) = IO.File.ReadAllLines ( " c: \\ usernames.txt " ) op Twitter Loop 4 door het tekstbestand en controleer of de gebruikersnaam is al gevonden :
Elke lijn in gebruikersnamen
tofind = lijn
Als Array.FindIndex ( gebruikersnamen , 0 , AddressOf FindLine ) < 0 MsgBox dan
( " Dubplicate gevonden ! " ) op Twitter Als de gebruikersnaam is een reeds in de variabele opgeslagen " tofind , " een duplicaat is gevonden .
5 Sluit de lus die al is geopend : End
Als Volgende End Sub
6
In functie van de individuele controleren lijn : Private Function FindLine ( ByVal lijn als Koord ) op Twitter Zoals Boolean
Als lijn = tofind Return True
Else
Terug Valse End
Als End Function
Deze functie heet in een vorige stap .
7 Druk op de F5 toets om te draaien de code . De code zal zal lus door het tekstbestand en een message box zien als er duplicaten worden gevonden .
|
