I nomi duplicati possono causare problemi con l'immissione di dati in un'applicazione. Un esempio tipico è dove 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 modifica dei dati e rimuovere i duplicati manualmente, una volta che è stato importato, nella nuova applicazione.

istruzione

1 Aprire un editor di Visual Basic.

2 Creare una nuova subroutine:

Private Sub Button1_Click (ByVal sender As System.Object, ByVal e come System.EventArgs) tratta Button1.Click

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

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

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

Per ogni riga nomi utente

Tofind = linea

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

MsgBox ( "Dubplicate Trovato!")

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

5 Chiudere il ciclo che è già stato aperto:

Finisci se

Il prossimo

End Sub

6 Aggiungere la funzione di controllare la singola linea:

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

Se la linea = tofind Poi

return true

Altro

return false

Finisci se

End Function

Questa funzione viene chiamata in un passaggio precedente.

7 Premere il tasto F5 per eseguire il codice. Il ciclo codice volontà attraverso il file di testo e una finestra di messaggio verrà visualizzato se vengono trovati tutti i duplicati.