I dati nei file non è comunemente unico, quindi i programmatori hanno bisogno di sapere come rimuovere rapidamente i valori ripetuti prima di aggiungerli a un controllo ListBox . Il modo migliore per farlo è quello di leggere i dati del file in una matrice di stringhe . In VB , è possibile utilizzare il metodo " Distinto ", che restituisce una sequenza non ordinata che non contiene valori duplicati . Salvare i valori distinti di una nuova matrice di stringhe e utilizzare tale matrice come origine dati del controllo ListBox . Istruzioni
1

Fare clic sul pulsante di Windows "Start" , fare clic sulla casella di testo che dice " Cerca programmi e file ", digitare " notepad " e premere "Invio" per avviare Blocco note. Immettere "1 " e premere " Invio"; tipo " 1" e premete "Invio" ; tipo "2" e premere "Invio" ; tipo " 2 " di nuovo e premere "Invio ". Aggiungi "3" e "4" con la stessa tecnica . Salvare il file in una cartella sul vostro computer come " myValues.txt . "
2

lancio di Microsoft Visual Basic Express e fare clic su " Nuovo progetto " nel riquadro di sinistra della schermata del computer . Fare clic su " Visual Basic " Modelli di sotto installati fare clic su "Applicazione Windows Form ", quindi fare clic su " OK " per iniziare un nuovo progetto .
3

Fare doppio clic sul controllo " ListBox " sul riquadro "Casella degli strumenti " per aggiungere uno al form. Aggiungere un " pulsante " con la stessa tecnica .
4

Fare doppio clic sul pulsante per creare un evento click del pulsante . Aggiungere il seguente codice per creare le variabili :

Dim fName As String Dim

valueArray ( 10) As String Dim

uniqueArray ( 10) Per quanto
String < p > Dim xCntr As Integer
5

Definire il percorso del file di testo :

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

loop attraverso i dati nel file di testo e salvarlo in un array di stringhe :

System.IO.File.Exists ( fName ) = True Then

Dim objReader As New System.IO.StreamReader ( fName ) per

Do While objReader.Peek ( ) < > -1

valueArray ( xCntr ) = objReader.ReadLine

xCntr + = 1
< p >
loop

Else

MsgBox ( "Il file non esiste" ) per

End If
7

salvare i dati da un array di stringhe ad un altro array di stringhe con valori unici :

uniqueArray = valueArray.Distinct.ToArray
8

Utilizzare la matrice di stringhe con valori univoci come l'origine dati per il controllo ListBox :

Me.ListBox1.DataSource = uniqueArray
9

Premere " F5 " per eseguire il programma e fare clic su " Button1 ".