Data i filer är vanligen inte unikt , så programmerare behöver veta hur snabbt att ta bort upprepade värden innan du lägger dem i en listbox kontroll . Det bästa sättet att göra detta är att läsa filen data i en sträng array . I VB , kan du använda " Tydlig " metod som returnerar en oordnad sekvens som inte innehåller några dubblerade värden . Spara distinkta värden till en ny sträng array och använda array som datakälla i listrutan kontroll . Instruktioner
1
Klicka på Windows "Start " -knappen , klicka på textrutan där det står "Sök program och filer , " typ " notepad " och tryck på " Enter " för att starta Anteckningar . Skriv " 1 " och tryck på " Enter " , typ " 1 " igen och tryck " Enter " , typ " 2 " och tryck på " Enter " , typ " 2 " igen och tryck " Enter ". Lägg till " 3 " och " 4 " med samma teknik . Spara filen till en mapp på datorn som " myValues.txt . "
2
Launch Microsoft Visual Basic Express och klicka på " Nytt projekt " i den vänstra rutan på din datorskärm . Klicka på " Visual Basic " nedan Installerade mallar , klicka på " Windows Forms Application ", klicka sedan på " OK " för att starta ett nytt projekt .
3
Dubbelklicka på " ListBox " kontroll på " Verktygslåda " rutan för att lägga till en till formuläret . Lägg en " knapp " med hjälp av samma teknik .
4
Dubbelklicka på knappen för att skapa en händelse knapptryckning . Lägg till följande kod för att skapa dina variabler :
Dim fname As String
Dim valueArray ( 10 ) As String
Dim uniqueArray ( 10 ) As String
Dim xCntr As Integer
5
Definiera sökvägen till textfilen :
fname = " C : \\ myValues.txt "
6
Loop igenom data i textfilen och spara den till en sträng array :
p Om System.IO.File.Exists ( fname ) = sant då
Dim objReader som New System.IO.StreamReader ( fname ) katalog
Do While objReader.Peek ( ) < > -1
valueArray ( xCntr ) = objReader.ReadLine
xCntr + = 1
Loop
Else
MsgBox ( " filen finns inte " ) katalog
End If
7
Rädda data från en sträng array till en annan sträng array med unika värden :
uniqueArray = valueArray.Distinct.ToArray
8
Använd strängmatris med unika värden som datakälla för listrutan kontroll :
Me.ListBox1.DataSource = uniqueArray
9
Tryck " F5 " för att köra programmet och klicka på " Button1 . " Addera
