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.