dubletnavne kan forårsage problemer med indtastning af data i et program. Et typisk eksempel er, hvor brugerne er eksporteret fra en tekstfil og trådte ind i en database. Et script kan skrives i Visual Basic for at finde de dublerede poster og forhindre, at de indtastes, mere end én gang , i databasen. Dette vil spare dig redigere data og fjerne dubletter manuelt når den er blevet importeret, i det nye program. Ting du skal
Visual Basic editor
Vis Flere Instruktioner
1

Åbn en Visual Basic-editoren .
2

Opret en ny subrutine : Hej

Private Sub Button1_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button1.Click
3

Læs oplysningerne efter en tilfældig tekstfil og gemme det i en variabel :

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

Loop gennem tekstfil og se om brugernavnet allerede er fundet : Hej

Hver linje i brugernavne

tofind = line
p Hvis Array.FindIndex ( brugernavne, 0, AddressOf FindLine ) < 0 Then

MsgBox ( " Dubplicate fundet !")
p Hvis brugernavnet er en allerede er gemt i variablen " tofind ", en kopi er fundet.
5 < p> Luk løkken , der allerede er åbnet : Hej

End If

Næste

End Sub
6

Tilføj funktion til at kontrollere den enkelte line : Hej

Private Function FindLine ( ByVal linje As String ) Som Boolean
p Hvis linje = tofind Så

Return Ægte

Else
< p > Retur False

End If

End Function

Denne funktion kaldes i et tidligere trin.
7

Tryk F5 for at køre koden . Koden vil sløjfe gennem tekstfil og en besked boks vil vise , om nogen dubletter er fundet.