|
données dans des fichiers est communément pas unique , de sorte que les programmeurs ont besoin de savoir comment faire pour supprimer rapidement des valeurs répétées avant de les ajouter à un contrôle ListBox . La meilleure façon de le faire est de lire les données du fichier dans un tableau de chaînes . En VB, vous pouvez utiliser la méthode «distinct» qui renvoie une séquence désordonnée qui ne contient pas de doublons . Enregistrer les valeurs distinctes à un nouveau tableau de chaînes et d'utiliser cette matrice comme la source de données du contrôle ListBox . Instructions
1 Cliquez sur le bouton "Démarrer " , cliquez sur la zone de texte qui dit que «les programmes de recherche et de fichiers ," type " bloc-notes " et appuyez sur "Entrée " pour lancer le Bloc-notes . Tapez " 1" et appuyez sur "Entrée " , le type "1" et appuyez sur "Entrée " , le type "2" et appuyez sur "Entrée " , le type "2" à nouveau et appuyez sur " Entrée". Ajouter "3" et "4 " en utilisant la même technique. Enregistrez le fichier dans un dossier sur votre ordinateur en tant que " myValues.txt . "
2 Lancement de Microsoft Visual Basic Express et cliquez sur "Nouveau projet" dans le volet gauche de l'écran de votre ordinateur. Cliquez Templates " Visual Basic " ci-dessous installé, cliquez sur "Application Windows Forms ", puis cliquez sur "OK " pour démarrer un nouveau projet.
3 Double- cliquez sur le contrôle " ListBox " sur l' volet «boîte à outils » pour ajouter un à votre formulaire. Ajouter un "Button" en utilisant la même technique.
4 Double -cliquez sur le bouton pour créer un événement de clic de bouton. Ajoutez le code suivant pour créer vos variables :
fName Dim As String
Dim valueArray (10) As String
Dim uniqueArray (10) As String
xCntr As Integer
5 Définir le chemin de votre fichier texte:
fName = " C: \\ myValues.txt "
6 boucle les données dans le fichier texte et l'enregistrer dans un tableau de chaînes :
Si System.IO.File.Exists ( fName ) = True Then
objReader As New System.IO.StreamReader ( fName )
Do While objReader.Peek () < > -1
valueArray ( xCntr ) = objReader.ReadLine
xCntr + = 1
Boucle
Else
MsgBox ( "Le fichier n'existe pas " )
End If
7 sauvegarder les données d'un tableau de chaînes à un autre tableau de chaînes avec des valeurs uniques :
uniqueArray = valueArray.Distinct.ToArray
8 Utilisez le tableau de chaînes avec des valeurs uniques comme source de données pour le contrôle listbox :
Me.ListBox1.DataSource = uniqueArray
9 Appuyez sur " F5" pour exécuter le programme et cliquez sur " Button1 ".
|
