Split sur fichier texte pour alimenter une combobox

Version imprimable

21/07/2012, 13h22
ludo40190

Split sur fichier texte pour alimenter une combobox
Bonjour à tous,

Voila j'ai un souci et je ne trouve pas sur le net.

J'ai une combobox alimentée par un fichier texte grâce à cette ligne:

Code:

Me.ComboBox1.Items.AddRange((System.IO.File.ReadAllLines("h:\test.txt", System.Text.Encoding.Default)))

Voici le contenu du fichier texte (test.txt):
Code:

1 2 3 PARIS @IP1 @IP2 @IP3 @IP4 BORDEAUX @IP1 @IP2 @IP3 @IP4 NANTES @IP1 @IP2 @IP3 @IP4
Le souci c'est que je veux voir apparaître dans ma liste déroulante que le premier mot (la ville) et non les autres valeurs.
Comment puis-je faire? un split?
21/07/2012, 14h02
hunteshiva
Bonjour,

L'idée du Split est une bonne idée:mrgreen:
quel est le séparateur de ton fichier? TAB?

voici un exemple de split
Code:

1 2 3 4 Dim Ligne as string = "Yann;Antoine;Eric" Dim Separateur as Char = ";" Dim Nom() as String Nom = Ligne.Split(Separateur)
Ce qui te donne:
- Nom(0) = Yann
- Nom(1) = Antoine
- Nom(2) = Eric
Enjoy ;)
21/07/2012, 15h18
ludo40190

Merci pour la réponse rapide.

ok je vois le fonctionnement du split je pense que c'est ce que je vais utiliser.
Le séparateur sera un simple espace.

En revanche je ne vois pas comment adapter mon split au fichier texte, ni comment l'intégrer à mon combobox.

Si vous avez des idées directrices à m'expliquer, je suis preneur...:roll:

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub GetFirstWord(ByVal path As String)
        Dim lists As New List(Of String)
        Dim parts() As String
        ComboBox1.Items.Clear()
        Try
            lists = System.IO.File.ReadAllLines(path, System.Text.Encoding.Default).ToList
            For Each items As String In lists
                parts = items.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
                ComboBox1.Items.Add(parts(0))
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 GetFirstWord("h:\test.txt")
end sub

23/07/2012, 17h59
ludo40190

Bonjour,

Merci pour la réponse.

En revanche j'ai un souci avec cette ligne:

Code:

lists = System.IO.File.ReadAllLines(path, System.Text.Encoding.Default).ToList

Cela me dit : 'Tolist' n'est pas un membre de 'System.Array'

Du coup je ne peux pas compiler...

Sinon j'ai essayé de comprendre le code j'avoue que j'ai un peu de mal à tout comprendre.Est-il possible que vous commentiez afin d'éclairer un pauvre débutant....:cry:

Bonjour,

tu a essayé de faire sans le ".ToList" ?

Code:

lists = System.IO.File.ReadAllLines(path, System.Text.Encoding.Default)

Je dirais qu'il a voulu te dire ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Private Sub GetFirstWord(ByVal path As String)
 
        ' Déclaration des variables
        Dim lists As New List(Of String) 'Liste de String qui va contenir ton fichier texte
        Dim parts() As String ' Parts = Parties des ta ligne (ou éléments), c-a-d "PARIS","@IP1","@IP2","@IP3","@IP4"
 
        ' Reset de la Combo
        ComboBox1.Items.Clear()
 
        ' Traitement
        Try    ' Try permet de gérer les exceptions (en cas d'erreurs, ça les prend en compte et ça évite de planter ton appli)
            lists = System.IO.File.ReadAllLines(path, System.Text.Encoding.Default) ' Met toutes les lignes de ton fichier texte dans une liste de string ( 1 ligne = 1 string)
            For Each items As String In lists   ' Pour chaque éléments (ou ligne contenu dansa ta liste
                parts = items.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries) ' Tu Split
                ComboBox1.Items.Add(parts(0)) ' Et tu ne garde que le première élément qui contient le nom de ta ville
            Next
        Catch ex As Exception
            ' En cas d’erreurs dans le code ci dessus, tu capture l’exception"ex" et tu l'affiche
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Voila j'ai était un peu lourd dans les commentaires,
mais je pense effectivement que ce code a besoin de commentaires, *moins détaillés* :mouarf:
a toi de mettre ce qui te parait le plus adapté ;)

23/07/2012, 19h04
ludo40190

Merci beaucoup!

En revanche avec cette ligne (sans le '.ToList') :

Code:

lists = System.IO.File.ReadAllLines(path, System.Text.Encoding.Default)

j'ai une nouvelle erreur :cry: :
Impossible de convertir une valeur de type 'Tableau à 1 dimension(s) de String' en 'System.Collections.Generic.List(Of String)'.

J'avoue que cette phrase me dépasse...
23/07/2012, 19h50
shayw

Salut

envois le code que tu as écrit
23/07/2012, 20h14
ludo40190

Ah en étudiant le message d'erreur je me suis dit qu'il voulait convertir un tableau en string, alors le plus simplement du monde j'ai fait ceci :

a la place de :

Code:

Dim lists As New List(Of String)

j'ai mis :

Code:

Dim lists As Array

et miracle, ça fonctionne...

Merci beaucoup!!!
Mais j'aurai surement d'autres questions plus tard.
Encore un grand merci!!