Daten in Dateien ist häufig nicht eindeutig , so dass Programmierer müssen wissen, wie man schnell zu entfernen wiederholten Werte , bevor sie auf einem Listenfeld-Steuerelement . Der beste Weg, dies zu tun ist , um die Daten in eine Datei Array eingelesen . In VB, können Sie mit dem " Distinct "-Methode , die eine ungeordnete Sequenz, die keine doppelten Werte enthält zurückgibt. Speichern Sie die unterschiedlichen Werte zu einem neuen String-Array und verwenden Sie dieses Array als Datenquelle der Listbox Kontrolle. Anleitung
1

auf das Windows "Start "-Schaltfläche , klicken Sie auf das Textfeld, das sagt: " Programme und Dateien suchen , " type " Notizzettel" und drücken Sie "Enter " , um den Editor zu starten. Geben Sie " 1" und "Enter" drücken , "1" erneut ein und drücken Sie "Enter" , "2" und "Enter" drücken , "2" erneut ein und drücken "Enter". In "3" und "4" mit der gleichen Technik . Speichern Sie die Datei in einen Ordner auf Ihrem Computer als " myValues.txt . "
2

Starten Sie Microsoft Visual Basic Express und klicken Sie auf "Neues Projekt" auf der linken Seite Ihres Bildschirms . Klicken Sie auf " Visual Basic " unter Installierte Vorlagen auf "Windows Forms-Anwendung " und anschließend auf "OK" , um ein neues Projekt zu starten.
3

Doppelklicken Sie auf das " ListBox " -Steuerelement auf dem " Toolbox " Fenster, um eine zu Ihrem Formular hinzuzufügen. Fügen Sie einen "Button" mit der gleichen Technik .
4

Doppelklicken Sie auf die Taste, um eine Schaltfläche Click-Ereignis zu erstellen. Fügen Sie den folgenden Code auf Ihre Variablen zu erstellen :

Dim fName As String Dim

WertArray (10 ) As String Dim

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

Definieren Sie den Pfad zu Ihrem Textdatei :

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

Schleife durch die Daten in der Textdatei und speichern Sie es auf einem String-Array :

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

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

Do While objReader.Peek () < > -1

WertArray ( xCntr ) = objReader.ReadLine

xCntr + = 1
< p > Schleife

Else

MsgBox ( "Datei existiert nicht " ) End If

7

Speichern Sie die Daten aus einem String-Array zu einem anderen String-Array mit eindeutigen Werten :

uniqueArray = valueArray.Distinct.ToArray
8

Verwenden Sie die String-Array mit eindeutigen Werten als Datenquelle für das ListBox-Steuerelement :

Me.ListBox1.DataSource = uniqueArray
9

Presse "F5 ", um das Programm zu starten und klicken Sie auf " Button1. "