Split avec 2 caractères séparateurs ?

Chaine = a:1;b:7;c:4

je veux faire un split(Chaine,":",";") en VBS

c'est à dire qu'il prend en compte ":" et ";" comme élément séparateur.

Le pb c que la fonction ne marche qu'avec 1 caractère séparateur...

Comment faire ???

Sub essai()
Dim tab1
Dim tab2
chaine = "a:1;b:7;c:4"
tab1 = Split(chaine, ";")
For i = 0 To UBound(tab1)
tab2 = Split(tab1(i), ":")
MsgBox tab2(0) & " " & tab2(1)
Next
End Sub

-------------------------------
Réponse au message :
-------------------------------

> Chaine = a:1;b:7;c:4
>
> je veux faire un split(Chaine,":",";") en VBS
>
> c'est à dire qu'il prend en compte ":" et ";" comme élément séparateur.
>
> Le pb c que la fonction ne marche qu'avec 1 caractère séparateur...
>
> Comment faire ???
>
>

Ca marche mais dans l'exemple :
tab2(0) = a
tab2(1) = 1

puis tab2(0) = b
tab2(1) = 7 etc...

Or pour que le programme marche, je devrais obtenir :
tab2(0) = a
tab2(1) = 1
tab2(2) = b
tab2(3) = 7 etc...

Tu joues apres avec les tableaux.

Ou tu créer une chaine temporaire qui remplace ; par :
et tu lances ton split dessus.
La plus rapide


Il a souvent plusieurs soultion pour resoudre un probleme


-------------------------------
Réponse au message :
-------------------------------

> Ca marche mais dans l'exemple :
> tab2(0) = a
> tab2(1) = 1
>
> puis tab2(0) = b
> tab2(1) = 7 etc...
>
> Or pour que le programme marche, je devrais obtenir :
> tab2(0) = a
> tab2(1) = 1
> tab2(2) = b
> tab2(3) = 7 etc...
>
>
>
>
>
>