Come Loop per trovare i nomi duplicati in un file a caso in VB 4/5/6

nomi duplicati possono causare problemi con l'inserimento dei dati in un'applicazione. Un esempio tipico è quello in cui gli utenti sono esportati da un file di testo e inseriti in un database . Uno script può essere scritto in Visual Basic per trovare le voci duplicate e impedire loro di essere inseriti , più di una volta , nel database. Questo vi farà risparmiare la modifica dei dati e rimuovendo i duplicati manualmente , una volta che è stato importato , nella nuova applicazione . Cose che ti serviranno
Visual Basic Editor
Show More Istruzioni
1

Aprire un editor di Visual Basic .
2

Creare un nuovo sottoprogramma :

private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
3

leggere le informazioni di un file di testo casuale e memorizzarlo in una variabile :

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

loop attraverso il file di testo e verificare se il nome utente è già stato trovato :

per ogni linea nel nomi utente

tofind = linea

Array.FindIndex ( nomi utente , 0 , AddressOf FindLine ) < 0 Then

MsgBox (" Dubplicate trovato ! " ) per

Se il nome utente è già memorizzato nella variabile " tofind , " un duplicato è stato trovato .
5

Chiudere il ciclo che è già stato aperto :

End If

Avanti

End Sub
6

Aggiungi funzione per controllare l'individuo linea :

private Function FindLine ( linea di ByVal come stringa) come booleano

linea = tofind Poi

Restituisce True

Else

return false

End If End Function

Questa funzione viene chiamata in un passaggio precedente .
7

Premere il tasto F5 per eseguire il codice . Il codice ciclo attraverso il file di testo e una finestra di messaggio verrà visualizzato se si riscontrano i duplicati .

• Come scrivere un controllo ActiveX 
• Diverse proprietà dell'immagine e Picture Strumento in Visual Basic