Extration chaine de caractère dans une variable

Bonjour,

Je souhaite extraire la chaine de caractére qui ce trouve entre les caratére "CN=" et "," dans la variable ci-dessous:

CN=nridon_g,,DC=alm
CN=Utilisateurs,CN=zx0090000_g,OU=Groupes Imprimantes,OU=Support,DC=services,DC=alm
CN=kimoce_g,OU=Groupes Partages GG,CN=citrix_systeme_g

Le probléme c'est qui ne me retourne que nridon_g et pas le reste avec ce petit de code la:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim DebutOu , FinOu Dim BaliseDebut, BaliseFin Dim RechercherDans, textRecupe     RechercherDans = strList BaliseDebut = "CN=" BaliseFin = ","   DebutOu = 1 DebutOu = InStr(DebutOu, RechercherDans, BaliseDebut) DebutOu = DebutOu + Len(BaliseDebut) FinOu = DebutOu FinOu = InStr(FinOu, RechercherDans, BaliseFin) 'MsgBox Mid(RechercherDans, DebutOu, FinOu - DebutOu) f.write (Mid(RechercherDans, DebutOu, FinOu - DebutOu))

---

Savais-vous comment faire pour qu'il me retourne tous les caractéres qui ce trouve entre les deux balises dans toute la variable?

Merci pour vos réponse

Cordialement,

Florent

Je vois vous référez une poste ancienne comme point de départ. Ce n'est pas exactement le même problème et en plus ce n'est pas à mon sens le meilleur pour ce cas.

Ceci est plus pertinent et plus au point: si vos noms distingués sont épargnés des caractères abérrants (qui sont possible main beaucoup plus rare), vous pouvez le faire comme ça.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

set rx=new regexp with rx .global=true .pattern="(CN|OU|DC)\s*=\s*(.*?)(,|$)" end with   s="CN=nridon_g,,DC=alm" s="CN=Utilisateurs,CN=zx0090000_g,OU=Groupes Imprimantes,OU=Support,DC=services,DC=alm" 's="CN=kimoce_g,OU=Groupes Partages GG,CN=citrix_systeme_g"   set cm=rx.execute(s) for each m in cm class=m.submatches(0) 'pas mentioné mais info tout de même besoins à retenir value=m.submatches(1) 'ce que vous cherchez wscript.echo class & "=" & value next

---