Cómo bucle para buscar nombres duplicados en un archivo aleatorio en VB 4/5/6

Los nombres duplicados pueden causar problemas con la introducción de datos en una aplicación. Un ejemplo típico es el que los usuarios se exportan desde un archivo de texto y se introdujeron en una base de datos. Un script puede ser escrito en Visual Basic para encontrar las entradas duplicadas y evitar que se introduzcan, más de una vez, en la base de datos. Esto le ahorrará la edición de los datos y la eliminación de los duplicados de forma manual, una vez que ha sido importado, en la nueva aplicación.

Instrucciones

1 Abra un editor de Visual Basic.

2 Crear un nuevo subprograma:

Private Sub Button1_Click (remitente de ByVal como System.Object, ByVal e As System.EventArgs) Maneja Button1.Click

3 Leer la información de un archivo de texto al azar y almacenarlo en una variable:

nombres de usuario Dim como secuencia () = IO.File.ReadAllLines ( "c: \ usernames.txt")

4 Lazo a través del archivo de texto y comprobar si el nombre de usuario ya ha sido encontrado:

Para cada línea de nombres de usuario

Tofind = línea

Si Array.FindIndex (nombres de usuario, 0, AddressOf FindLine) <0, entonces

MsgBox ( "Dubplicate encontrado!")

Si el nombre de usuario es un ya almacenado en la variable "tofind," un duplicado se ha encontrado.

5 Cierre el círculo que ya se ha abierto:

Terminara si

Siguiente

End Sub

6 Añadir función para comprobar la línea individual:

Función privada FindLine (línea ByVal As String) As Boolean

Si la línea = Entonces tofind

Volver Verdadero

Más

Falso retorno

Terminara si

End Function

Esta función se llama en un paso anterior.

7 Presione el botón F5 para ejecutar el código. El bucle de código voluntad a través del archivo de texto y un cuadro de mensaje se mostrará si se encuentra algún duplicados.