nomes duplicados podem causar problemas com a entrada de dados em um aplicativo. Um exemplo típico é o lugar onde os usuários são exportados a partir de um arquivo de texto e entrou em um banco de dados . Um script pode ser escrito em Visual Basic para encontrar as entradas duplicadas e evitar que eles sejam inseridos, mais de uma vez , no banco de dados . Isto vai poupar editar os dados e removendo as duplicatas manualmente , uma vez que foi importado, para a nova aplicação. Coisas que você precisa 
 Visual Basic editor 
 Show Mais instruções 
 1 
 Abra um editor de Visual Basic. 
 2 
 Crie uma nova sub-rotina : 
 
 Private Sub Button1_Click (sender System.Object , ByVal e As System.EventArgs ) Handles Button1.Click 
 3 
 Leia as informações para um arquivo de texto aleatório e armazená-lo em uma variável : 
 
 Dim nomes as String () = IO.File.ReadAllLines ( "c: \\ usernames.txt " ) 
 4 
 loop através do arquivo de texto e verifique se o nome de usuário já foi encontrado : 
 
 para cada linha no usernames 
 
 tofind = linha 
 
 Se Array.findIndex ( usernames, 0, AddressOf FindLine ) < 0 Then 
 
 MsgBox (" Dubplicate encontrado !") 
 
 Se o nome de usuário é um já armazenado na variável " a encontra ", uma duplicata foi encontrado . 
 5 
 Feche o loop que já foi aberto : 
 
 End If 
 
 Próxima 
 
 End Sub 
 6 
 Adicionar função para verificar o indivíduo linha: 
 
 FindLine Private Function ( linha ByVal As String) As Boolean 
 
 Se linha = tofind Então 
 
 return true 
 
 Else 
 
 Voltar Falso 
 
 End If End Function 
 
 
 
 Esta função é chamada em uma etapa anterior . 
 7 
 Pressione o botão F5 para executar o código . O loop de código através do arquivo de texto e uma caixa de mensagem irá mostrar se todas as duplicatas são encontrados.