Cómo Loop encontrar 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 escribirse en Visual Basic para encontrar las entradas duplicadas y evitar que el que entra, 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 se ha importado , en la nueva aplicación. Cosas que necesitará
editor de Visual Basic
Mostrar más instrucciones
1

Abra un editor de Visual Basic .
2

Crear una nueva subrutina :

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

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

nombres de usuario Dim As String () = IO.File.ReadAllLines ("c : \\ usernames.txt ")
4

Loop a través del archivo de texto y comprobar si ya se ha encontrado el nombre de usuario :

Para cada línea de nombres de usuario

tofind = línea

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

MsgBox ( " Dubplicate encontré! " )

Si el nombre de usuario es una que ya está almacenada en la variable " tofind , " se ha encontrado un duplicado .
5 < p> Cierre el lazo que ha sido abierto :

End If

Siguiente

End Sub
6

Agregar función para comprobar el individuo line :

privado Función FindLine ( line ByVal As String ) As Boolean

Si la línea = tofind Entonces

return true

demás
< p > return false

End If End Function

Esta función se llama en un paso anterior .
7

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