Discussion :

[soron59]

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

[tsuji]

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 :

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