dubbletter kan orsaka problem med inmatning av data i en applikation . Ett typiskt exempel är när användarna exporteras från en textfil och in i en databas . Ett skript kan skrivas i Visual Basic för att hitta dubbletter och förhindra att de tas upp , mer än en gång , i databasen . Detta kommer att spara dig redigera data och ta bort dubbletter manuellt , när det väl har importerats till den nya ansökan . Saker du behöver Review, Visual Basic Editor
Visa fler instruktioner
1
Öppna en Visual Basic Editor .
2
Skapa en ny subrutin :
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
3
Läs informationen för en slumpmässig textfil och förvara den i en variabel :
Dim användarnamn As String ( ) = IO.File.ReadAllLines ( " c : \\ usernames.txt " )
4
Loop genom textfil och kontrollera om användarnamnet redan har hittat :
för varje rad i användarnamn
tofind = linje
p Om Array.FindIndex ( användarnamn , 0 , AddressOf FindLine ) < 0 Sedan
MsgBox ( " Dubplicate Found ! " ) katalog p Om användarnamnet är en redan lagrad i variabeln " tofind , " har en dubblett funnit .
5
Stäng slingan som redan har öppnats :
End If
Nästa
End Sub
6
Lägg funktion för att kontrollera den individuella line :
Private Function FindLine ( ByVal linje As String ) As Boolean
p Om linjen = tofind Sedan
return true
Else
Return False
End If
End Function
Denna funktion kallas i ett tidigare steg .
7
Tryck på F5 för att köra koden. Koden kommer loopa igenom textfilen och en meddelanderuta kommer att visa om några dubbletter hittas .
