dados em arquivos não é comumente original, assim que os programadores precisam saber como remover rapidamente valores repetidos antes de adicioná-los a um controle de caixa de listagem. A melhor maneira de fazer isso é ler os dados do arquivo em uma matriz de cadeia . Em VB , você pode usar o método de " Distinto ", que retorna uma seqüência desordenada que não contém valores duplicados. Salve os valores distintos para uma nova matriz de cadeia e usar essa matriz como a fonte do controle de caixa de listagem de dados. Instruções
1

Clique no Windows botão " Iniciar" , clique na caixa de texto que diz " Pesquisar programas e arquivos ", digite " notepad" e pressione " Enter" para iniciar o Bloco de Notas . Digite " 1" e pressione "Enter "; tipo "1" novamente e pressione "Enter "; tipo "2" e pressione "Enter "; " . Enter" tipo "2" novamente e pressione Adicionar "3" e "4 " usando a mesma técnica . Salve o arquivo em uma pasta no seu computador como " myValues.txt ".
2

Abra o Microsoft Visual Basic Express e clique em " New Project" no painel esquerdo da tela do computador . Clique em " Visual Basic" abaixo Modelos instalados , clique em " Windows Forms Application " e clique em "OK" para iniciar um novo projeto.
3

Clique duas vezes no controle " ListBox " no painel "Toolbox " para adicionar um a sua forma . Adicionar um "Button" usando a mesma técnica .
4

Dê um duplo clique no botão para criar um evento de clique de botão. Adicione o seguinte código para criar as suas variáveis ​​:

Dim fName As String Dim

valorArray (10) As String Dim

uniqueArray (10) As String

Dim xCntr as Integer
5

Defina o caminho para o arquivo de texto :

fName = " C: \\ myValues.txt "
6

loop através dos dados no arquivo de texto e salvá-lo em uma matriz de string:

Se System.IO.File.Exists ( fNAME ) = True Then

Dim objReader as New System.IO.StreamReader ( fName )

Do While objReader.Peek () < > -1

valorArray ( xCntr ) = objReader.ReadLine

xCntr + = 1

Circuito

Else

MsgBox ( "Arquivo não existe" ) End If

7

Salve os dados a partir de uma matriz de cadeia para outra matriz de cadeia com valores exclusivos :

uniqueArray = valueArray.Distinct.ToArray
8

Use a matriz de cadeia com valores únicos como a fonte de dados para o controle de caixa de listagem :

Me.ListBox1.DataSource = uniqueArray
9

Pressione " F5" para executar o programa e clique em " Button1 ".