Como criar um laço para encontrar nomes duplicados em arquivos randômicos VB 4/5/6

Escrito por declan maher | Traduzido por marco aurelio zancan
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como criar um laço para encontrar nomes duplicados em arquivos randômicos VB 4/5/6
Remova entradas duplicadas no Visual Basic (Data image by Oleksiy Ilyashenko from Fotolia.com)

Nomes duplicados podem causar problemas na entrada de dados em uma aplicação. Um exemplo típico ocorre quando um usuário é exportado de um arquivo de texto e inserido em uma base dados. Um script pode ser criado no Visual Basic para encontrar a entrada duplicada e evitar que ela entre mais de uma vez na base de dados. Isso fará com que você não precise editar os dados e remover manualmente o que está duplicado, uma vez que isso já foi importado dentro da aplicação.

Nível de dificuldade:
Moderadamente desafiante

Outras pessoas estão lendo

O que você precisa?

  • Editor Visual Basic

Lista completaMinimizar

Instruções

  1. 1

    Abra o editor Visual Basic.

  2. 2

    Crie uma nova sub-rotina:

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

  3. 3

    Leia a informação para um arquivo de texto randômico e grave-o em uma variável: Dim nomesdeusuarios As String() = IO.File.ReadAllLines("c:\nomesdeusuarios.txt")

  4. 4

    Faça um laço pelo arquivo de texto e verifique se o nome de usuário já foi encontrado:

    For Each line In nomesdeusuarios ToFind = line If Array.FindIndex(nomesdeusuarios, 0, AddressOf FindLine) < 0 Then MsgBox ("Nome duplicado encontrado!")

    Caso o nome de usuário já esteja armazenado na variável "ToFind" (Encontrar), um registro duplicado foi encontrado.

  5. 5

    Feche o laço que já foi aberto:

    End If Next End Sub

  6. 6

    Adicione uma função para verificar a linha individual:

    Private Function FindLine(ByVal line As String) As Boolean If line = ToFind Then Return True Else Return False End If End Function

    Essa função é chamada em uma etapa anterior.

  7. 7

    Pressione o botão F5 para executar o código. O código fará um laço através do arquivo de texto e uma caixa de mensagem será exibida caso registros duplicados sejam encontrados.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível