PB d'aojout de ligne dans un listbox

Hello
Voici mon code

Open d For Input As #1 Do While Not EOF(1) ' Vérifie si la fin du fichier est atteinte. c = 0 Line Input #1, recu$ ' Lit les lignes de données. 'Boucle de récupération des bases sur la ligne list For b = 1 To Len(recu$) 'recherche du séparateur "'" pos% = InStr(b, recu$, ":") 'si le séparateur a été trouvé If pos% <> 0 Then lst_result.AddItem lst_result.List(l, c) = Mid(recu$, b, pos% - b) 'Récupérer les caratères entre le pointeur b et la position pos% 'f = Mid(recu$, b, pos% - b) 'point de test b = pos% c = c + 1 Else 'si le pointeur est à zéro c'est qu'il a fait la lecture complète de la ligne lst_result.AddItem lst_result.List(l, c) = Mid(recu$, b, Len(recu$) - b + 1) ' Récuperation des caractère en fin de ligne 'f = Mid(recu$, b, Len(recu$) - b) 'point de test b = Len(recu$) End If Next Loop l = l + 1 Close ----------------------------------------------------------------------

Pourquoi une foix qu'il a fini pour une ligne j'ai deux autres lignes vierges qui sont insérées en fin de list box... Je sèche je comprend pas.
Le mode débuug ne me donne rien de bien intéréssant. il passe bien qu'une seul foix par info sélectionnées dans la ligne...

Je voix rien, appart que ca fait peut être trop longtemps que je suis dessus

Merci

Vincent

Je vois pas bien ton pb mais ton code me semble bien compliqué !! Est-ce que tu pourrais nous dire ce que tu as dans les lignes de ton fichier, et ce que tu veux mettre dans ta listbox, on pourra peut-être te pondre un code plus simple !!

Christophe R.

Mon fichier est composer de lignes, sur ces lignes des infos sont séparées de":". Ce que j'aimerrais c'est que les infos se trouvant entre ":" soit stockées dans une colonne du liste box et ce par ligne.

soit exemple
fichier
ESSAI:Z:TEST
ESSAI2:A:TEST2

Liste box
col1 col2 col3
ESSAI Z TEST
ESSAI2 A TEST2

merci
vincent
PS si tu trouve moins compliquer pour la lecture d'un fichier moi je suis prenneur.................

Mon fichier est composer de lignes, sur ces lignes des infos sont séparées de":". Ce que j'aimerrais c'est que les infos se trouvant entre ":" soit stockées dans une colonne du liste box et ce par ligne.

soit exemple
fichier
ESSAI:Z:TEST
ESSAI2:A:TEST2

Liste box
col1 col2 col3
ESSAI Z TEST
ESSAI2 A TEST2

merci
vincent
PS si tu trouve moins compliquer pour la lecture d'un fichier moi je suis prenneur.................

Mon fichier est composer de lignes, sur ces lignes des infos sont séparées de":". Ce que j'aimerrais c'est que les infos se trouvant entre ":" soit stockées dans une colonne du liste box et ce par ligne.

soit exemple
fichier
ESSAI:Z:TEST
ESSAI2:A:TEST2

Liste box
col1 col2 col3
ESSAI Z TEST
ESSAI2 A TEST2

merci
vincent
PS si tu trouve moins compliquer pour la lecture d'un fichier moi je suis prenneur.................

Mon fichier est composer de lignes, sur ces lignes des infos sont séparées de":". Ce que j'aimerrais c'est que les infos se trouvant entre ":" soit stockées dans une colonne du liste box et ce par ligne.

soit exemple
fichier
ESSAI:Z:TEST
ESSAI2:A:TEST2

Liste box
col1 col2 col3
ESSAI Z TEST
ESSAI2 A TEST2

merci
vincent
PS si tu trouve moins compliquer pour la lecture d'un fichier moi je suis prenneur.................

BOn alors désolé pour les message successif mais j'ai pas arreter d'avoir des erreur ASP NET serveur

BOn alors désolé pour les message successif mais j'ai pas arreter d'avoir des erreur ASP NET serveur

BOn alors désolé pour les message successif mais j'ai pas arreter d'avoir des erreur ASP NET serveur

Bah !! Comme le lsitbox ne peux organiser les données en colonne, pour faire ce que tu veux, tu ne peux que remplacer tes ':' par des espace par exemple alors ca fera cela :

Open Fic for input as #1 While Not EOF51) Line Input #1, Ligne Ligne = Trim$(Ligne) If Ligne <> "" Then List1.Additem Replace$(Ligne,":"," ") Wend Close #1

C'est tout de même bcp plus court !

Christophe R.