gegevens in bestanden is vaak niet uniek , dus programmeurs moeten weten hoe je snel herhaalde waarden te verwijderen alvorens ze toe te voegen aan een listbox controle . De beste manier om dit te doen is om het bestand data in een string -array lezen . In VB , kunt u de " Distinct " methode die een ongeordende volgorde die geen dubbele waarden bevat retourneert . Sla de verschillende waarden aan een nieuwe array van strings en gebruik dat array als de gegevensbron van de listbox controle. Instructies
1 Klik op de knop Windows "Start " , klik op het tekstvak met de tekst " search programma's en bestanden , " type " notepad " en druk op " Enter " om Notepad te lanceren . Type " 1 " in en druk op " Enter " ; type " 1 " nogmaals in en druk op " Enter " ; type " 2 " in en druk op " Enter " ; type " 2 " nogmaals in en druk op ' Enter '. Voeg " 3 " en " 4" met dezelfde techniek . Sla het bestand op in een map op uw computer als " myValues.txt . " Kopen van 2 Lancering Microsoft Visual Basic Express en klik op " New Project" aan de linkerkant van uw computerscherm . Klik op " Visual Basic " hieronder Geïnstalleerd Sjablonen op " Windows Forms Application ", klik op "OK " om een nieuw project te starten .
3 Dubbelklik op het " ListBox " controle op de " Toolbox " deelvenster om een toe te voegen aan uw formulier . Voeg een " knop " gebruikmaking van dezelfde techniek .
4 Dubbelklik op de knop om een knop klikken gebeurtenis te maken . Voeg de volgende code toe aan de variabelen maken : Dim fname
als Koord
Dim valueArray ( 10 ) als Koord
Dim uniqueArray ( 10 ) As String
Dim xCntr als Geheel
5 Definieer het pad naar uw tekstbestand : fname
= " C : \\ myValues.txt "
Loop 6 door de gegevens in het tekstbestand en sla het op in een string -array :
Als System.IO.File.Exists ( fname ) = True Dim objReader dan
Als Nieuw System.IO.StreamReader ( fname ) op doen terwijl objReader.Peek ( ) < > -1 valueArray
( xCntr ) = objReader.ReadLine xCntr
+ = 1
Loop
Else MsgBox
( " Bestand bestaat niet " ) Eind
Als
7 Sla de gegevens van een array van strings naar andere string array met unieke waarden : uniqueArray = valueArray.Distinct.ToArray
8
Gebruik de string array met unieke waarden als de gegevensbron voor de listbox controle :
Me.ListBox1.DataSource = uniqueArray
Druk op " F5 " 9 om het programma uit te voeren en klik op " Button1 . "
|
