Ako Loop nájsť duplicitné názvy v náhodnom súbore vo VB 4/5/6

Duplicitné názvy môžu spôsobiť problémy s zadávanie dát do aplikácie . Typickým príkladom je miesto , kde sú užívatelia exportované z textového súboru a uložené do databázy . Skript môže byť napísaný v jazyku Visual Basic nájsť duplicitné položky a zabrániť im bol zadaný viac ako raz , do databázy . To vám ušetrí editáciu dát a odstránenie duplicít ručne , potom, čo bol dovezený do novej aplikácie . Veci , ktoré budete potrebovať
editore jazyka Visual Basic
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte aplikáciu Visual Basic Editor .
2

Vytvoriť nový podprogram :

Private Sub Button1_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button1.Click
3

Prečítajte si informácie o náhodné textového súboru a uložiť ho do premennej :

Dim používateľské mená As String ( ) = IO.File.ReadAllLines ( " c : \\ usernames.txt " )
4

Loop through textového súboru a skontrolujte , či už bolo konštatované užívateľské meno : klipart

Každý riadok v používateľských mien

tofind = riadku

Ak Array.FindIndex ( užívateľské mená, 0 , AddressOf FindLine ) < 0 Then

MsgBox ( " Dubplicate nájdený ! " )

Ak bude používateľské meno je už uložený v premennej " tofind , " duplicitné bol nájdený .
5

Zatvorte slučky , ktorý bol už otvorený :

End If

Ďalšie

End Sub
6

Pridať funkcie pre kontrolu jednotlivca linka :

Private Function FindLine ( byVal linka As String ) As Boolean

Ak riadok = tofind Potom

return true klipart

Else klipart

return false

End If

End Function

Táto funkcia je volaná v predchádzajúcom kroku .
7

Stlačte tlačidlo F5 na spustenie kód . Kód bude prechádzať textového súboru a okne s hlásením sa zobrazí, ak sú nájdené žiadne duplikáty .

• Predchádzajúca strana: Ako napísať prvku ActiveX 
• Ďalšia strana: Rôzne vlastnosti Image & Picture nástroj v jazyku Visual Basic