Data i filer er almindeligt ikke enestående , så programmører brug for at vide , hvordan man hurtigt at fjerne gentagne værdier , før du tilføjer dem til en listbox kontrol. Den bedste måde at gøre dette på er at læse filens data i en streng array. I VB, kan du bruge " særlig" metode, der returnerer en uordnet følge , der ikke indeholder dublerede værdier. Gem distinkte værdier til en ny streng array og bruge det array som datakilde for listbox kontrol. Instruktioner
1
Klik på Windows "Start " knappen , klik på tekstfeltet , der siger "Søg programmer og filer ," type " notepad " og tryk "Enter " for at starte Notesblok. Type " 1" og tryk på "Enter " type " 1" igen og tryk " Enter " type " 2" og tryk "Enter " type " 2" og tryk " Enter". Tilføj "3" og "4 " ved hjælp af samme teknik . Gem filen i en mappe på din computer, som " myValues.txt ".
2
Launch Microsoft Visual Basic Express og klik på " Nyt projekt " i den venstre rude på din computerskærm . Klik på " Visual Basic " nedenfor Installerede skabeloner , klik på " Windows Forms Application " og derefter klikke på "OK " for at starte et nyt projekt.
3
Dobbeltklik på " ListBox " kontrol på "Toolbox " ruden for at tilføje en til din formular . Tilføj en " knap" ved hjælp af samme teknik.
4
Dobbeltklik på knappen for at oprette en knap klik begivenheden . Føj følgende kode til at oprette dine variabler : Hej
Dim fname As String
Dim valueArray (10) As String
Dim uniqueArray (10) As String
< p > Dim xCntr As Integer
5
Definer stien til din tekstfil : Hej
fname = " C: \\ myValues.txt "
6
Loop gennem data i tekstfil og gemme den til en streng vifte : Hej p Hvis System.IO.File.Exists ( fname ) = Ægte Så
Dim objReader Som New System.IO.StreamReader ( fname )
Do While objReader.Peek () < > -1
valueArray ( xCntr ) = objReader.ReadLine
xCntr + = 1
< p> Loop
Else
MsgBox ( "File findes ikke" )
End If
7
Gem dataene fra én strengtabel til en anden streng array med unikke værdier : Hej
uniqueArray = valueArray.Distinct.ToArray
8
Brug strengen array med unikke værdier som datakilde for listbox kontrol : Hej
Me.ListBox1.DataSource = uniqueArray
9
Tryk på " F5 " for at køre programmet, og klik på " Button1 . "