Parcourir et extraire une chaine dans Items de ListBoxRésolu

Question

Bonjour à tous,

Une petite question toute bête ^^...J'ai une chaine de(s) carractère(s) dans une ListBox comme suit :

1=100 ; 2=4 ; 3=100 ; 4=8 ; 5=100 ; 6=12 ; 7=100 ;
2=1001 ; 3=1010 ; 4=99 ;
4=11 ;

J'aurais voulu savoir (une piste ^^), comment faire pour parcourir toute la ligne et extraire ce que j'ai avant les "=" et extraire ce que j'ai après les "=" jusqu'au ";" .....?? Sachant comme vous pouvez le constater, la longueur de l'item varie ainsi ce qui suit le "="........

Merci d'avance pour l'aide que vous pourrez me donner....

A+
Exploreur

 Linux a un noyau, Windows un pépin 
    ** http://exploreur1.labrute.fr **

Renfield · Accepted Answer

Dim xsParts() As String
Dim i as Long
Dim nPos As Long
Dim sBuffer as string
Dim nID as long
Dim nValue as Long
    xsParts = Split(sLigne, ";")
    For i=0 To Ubound(xsParts)
        sBuffer = Trim$(xsParts(i))
        nPos = Instr(sBuffer, "=")
        If nPos then
            nId = Left$(sBuffer, nPos-1)
            nValue = Mid$(sBuffer, nPos+1)
            ...
        End If
    Next i

lillith212 · Answer

Salut,

Perso j'utiliserai un recordset dynamique et ensuite je m'interresserais à la fonction instr()
Voila pour la piste... :)
Si tu en veux plus demande.

S.L.B.
<hr />

cs_Exploreur · Answer

Salut,

Recordset dynamique......Euh oui..mais encore ^^ 

Cette liste n'est pas issue d'un BD, ce sont juste des données insérées par l'user aprés selection de quelques valeurs dans une Frm ^^...
A+
Exploreur

 Linux a un noyau, Windows un pépin 
    ** http://exploreur1.labrute.fr **

cs_Exploreur · Answer

Salut,

Ben...vu comme çà Renfield......c'est parfait.....disont que je n'aurais pas trouver ! ....Je partais encore sur des trucs farfellus ^^

Merci encore et merci à tous 

A+
Exploreur

 Linux a un noyau, Windows un pépin 
    ** http://exploreur1.labrute.fr **

lillith212 · Answer

re,


Un recordset dynamique permet d'enregistrer les données de manière moi personnellement plus claire qu'un tableau, et plus je n'ai pas à définir sa taille.


    Set rsDyna = New ADODB.Recordset
    
    rsDyna.CursorLocation = adUseClient
    rsDyna.CursorType = adOpenDynamic
    
    '-- Creation de 2 champs au sein du recordset
    rsDyna.Fields.Append "Partie1", adDouble, 20
    rsDyna.Fields.Append "Partie2", adDouble, 20
    rsDyna.Open

De plus perso ca permet une relecture plus simple... Mais ca c'est mon avis perso...





S.L.B.
<hr />

lillith212 · Answer

Mais il est vrai que la solution de renfield est mieux... Moi aussi j'étais partie sur plus compliquée...

S.L.B.
<hr />

Parcourir et extraire une chaine dans Items de ListBox

6 réponses

Votre réponse