Discussion :

[Psychoze]

Bonjour à tous !

Voilà donc mon problème, je souhaiterais avoir une Combobox qui utilise chaque ligne d'un fichier texte pour remplir chaque item jusqu'à ce qu'il n'y ait plus de ligne.

Je n'ai pas trouvé comment faire cela en VB6.

J'espère avoir été assez clair.

Merci d'avance.

A bientot.

[ucfoutu]

Bonjour,

Pour répondre avec précision à ta question, ol nous faut connaître avec précision la nature exacte et la structure de ton fichier texte...

S'agit-il d'un fichier plat ou s'agit-il d'un fichier structuré ?

Le mode de lecture de ce qu'il contient diffère dans un cas et dans l'autre ...

Le mieux est peut_être que tu nous fasses voir un bout de ce fichier...

[Psychoze]

Voilà un exemple de fichier texte.
La liste peut être longue et mise à jour assez souvent, d'où mon choix pour un fichier texte.

Merci.

[ucfoutu]

Bien,

Il s'agit là d'un fichier plat écrit avec Print.

Rien de plus simple, alors :

Il faut l'ouvrir (Open For Input) à l'aide de Open (une floppée d'exemples sur ce forum)
Puis lire ligne par ligne avec Line Input
jusqu'à la fin (EOF) du fichier

A chaque ligne lue par le Line Input : ajout dans la combobox (additem)

Voilà ...pars vite à la recherche des nombreux exemples que tu trouveras sur ce site.
Reviens si tu as une difficulté à ce propos ...

[Psychoze]

Merci bcp, j'ai utilisé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim selectedfile As String
selectedfile = "arborescence du fichier"
Open selectedfile For Input As #1
  While Not EOF(1)
     Line Input #1, ligneenr
ProjetList.AddItem ligneenr
  Wend
Close #1

Ca a l'air de fonctionner.

Merci de ton aide.

[ucfoutu]

Merci à toi d'avoir cherché (c'est bien)... trouvé (c'est mieux) et compris (c'est parfait)

[Vld44]