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 : Sélectionner tout - Visualiser dans une fenêtre à part
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