Nomi duplicati possono causare problemi con immissione di dati in un'applicazione. Un esempio tipico è dove gli utenti vengono 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, più di una volta, essere inseriti nel database. Questo vi farà risparmiare editare i dati e rimuovendo i duplicati manualmente, una volta che è stato importato, nella nuova applicazione.

Istruzioni

1

Aprire un editor di Visual Basic.

2

Creare una nuova subroutine:

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

3

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

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

4

Scorrere il file di testo e verifica se il nome utente è già stato trovato:

Per ogni riga di nomi utente

ToFind = linea

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

MsgBox ("Dubplicate trovato!")

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

5

Chiudere il ciclo che è già stato aperto:

End If

Successivo

End Sub

6

Aggiungere la funzione di controllare la singola riga:

Private Function FindLine(ByVal line As String) As Boolean

Se linea = ToFind Then

Restituire True

Altro

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 eseguirà un ciclo attraverso il file di testo e una casella di messaggio mostrerà se eventuali duplicati vengono trovati.