PB d'aojout de ligne dans un listbox

Question

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
 :)

crenaud76 · Answer

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.

Raugues · Answer

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.................
 :)

Raugues · Answer

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.................
 :)

Raugues · Answer

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.................
 :)

Raugues · Answer

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.................
 :)

Raugues · Answer

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

Raugues · Answer

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

Raugues · Answer

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

crenaud76 · Answer

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.

Raugues · Answer

Merci pour le cout de main même le résultat attendu n'est pas bon.
cela ne fait qu'une colonne et non pas troix.

vincent
 :)

cs_wape · Answer

Essaye ceci :

Dim i As Integer
Dim tTxt() As String

Open d For Input As #1
Do While Not EOF(1)
   Line Input #1, recu$
   tTxt() = Split(recu$, ":")
   For i = 0 To UBound(tTxt)
     If i = 0 Then
        lst_result.AddItem tTxt(i)
     Else
        lst_result.List(lst_result.ListCount - 1, i) = tTxt(i)
     End If
   Next i
Loop
Close

@+

wape

crenaud76 · Answer

Vous etes en VB6 ou pas les gars !!!
parce que sur mon VB6, "st_result.List(lst_result.ListCount - 1, i)" ne passe pas !!! ".list(...)" n'accepte qu'un argument

Christophe R.

Raugues · Answer

Moi oui je suis en VB6. J'ai pas encore testé le code, ah oui pour info la listbox que j'utilise fait partis des composants de forms 2 object library.

Merci de l'aide apporté.

Vincent

 :)

Raugues · Answer

Pour info j'ai trouver pourquoi il me rajoutait des lignes..
lorsque je fait mon addnew je suis dans une boucle for qui récupaire des infos d'une ligne, comme la boucle passe trois foix c'est normale que j'ai trois lignes.
Par contre la résolution est pas simple si cela intéraisse je peut fournir le code final. Je previens tout de suite c'est tres clinne comme prog mais la j'ai plus trop le temps de réflechir j'ai un impératif de date.

Merci a ceux qui mon répondu
Vincent
 :)

PB d'aojout de ligne dans un listbox

14 réponses

Discussions similaires