I dati nel file non è comunemente unico, così i programmatori hanno bisogno di sapere come rimuovere rapidamente i valori ripetuti prima di aggiungerli a un controllo casella di riepilogo. Il modo migliore per farlo è quello di leggere i dati dei 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 un nuovo array di stringhe e usare questo array come fonte dei dati del controllo ListBox.

istruzione

1 Fare clic sul pulsante di Windows "Start", fare clic sulla casella di testo che dice "Cerca programmi e file," tipo "notepad" e premere "Invio" per lanciare il blocco note. Tipo "1" e premere "Invio"; digitare "1" di nuovo e premere "Invio"; digitare "2" e premere "Invio"; tipo "2" di nuovo e premere "Invio". Aggiungere "3" e "4" utilizzando la stessa tecnica. Salvare il file in una cartella del computer come "myValues.txt."

2 Avviare Microsoft Visual Basic Express e fare clic su "New Project" nel riquadro di sinistra dello schermo del computer. Fai clic su "Visual Basic" sotto Modelli installati, fai clic su "Applicazione Windows Form", quindi fare clic su "OK" per avviare un nuovo progetto.

3 Fare doppio clic sul controllo "ListBox" nel riquadro "Toolbox" per aggiungere uno al vostro modulo. Aggiungere un "pulsante" utilizzando 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) As String

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 una matrice di stringhe:

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

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

Do While objReader.Peek () & lt;> -1

valueArray (xCntr) = objReader.ReadLine

xCntr + 1 =

Ciclo continuo

Altro

MsgBox ( "File non esiste")

Finisci se

7 Salvare i dati da un array di stringhe a un altro array di stringhe con i valori unici:

uniqueArray = valueArray.Distinct.ToArray

8 Utilizzare la matrice di stringhe con i valori unici come la fonte dei dati per il controllo casella di riepilogo:

Me.ListBox1.DataSource = uniqueArray

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