dupliserte navn kan føre til problemer med å legge inn data i et program. Et typisk eksempel er der brukerne er eksportert fra en tekstfil og inn i en database . Et skript kan være skrevet i Visual Basic for å finne de doble oppføringer og hindre dem som blir skrevet , mer enn en gang , inn i databasen . Dette vil spare deg redigere dataene og fjerne duplikater manuelt , når det har blitt importert , inn i det nye programmet. Du trenger
Visual Basic-redigering
Vis flere instruksjoner
en

Åpne et Visual Basic-redigering .
2

Opprett en ny subrutine : en

Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.Click
3

Les informasjonen etter en tilfeldig tekstfil og lagre det i en variabel :

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

Loop gjennom tekstfil og sjekke om brukernavnet er allerede funnet : en

Hver linje i brukernavn

tofind = linjen
p Hvis Array.FindIndex ( brukernavn, 0 , AddressOf FindLine ) < 0 Da

MsgBox ( " Dubplicate funnet!" )
p Hvis brukernavnet er en som allerede er lagret i variabelen " tofind ", en duplikat er funnet.
5 < p > Steng løkken som allerede er åpnet : en

End If

Neste

End Sub
6

Legg funksjonen for å kontrollere den enkelte linje:

Private Function FindLine ( ByVal linjen As String ) As Boolean
p Hvis linje = tofind Deretter

return true

Else
< p > Tilbake False

End If

End Function

Denne funksjonen kalles i et tidligere trinn.
7

Trykk F5 for å kjøre koden. Koden vil sløyfe gjennom tekstfil og en meldingsboks vil vise om noen duplikater er funnet.