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:
Savais-vous comment faire pour qu'il me retourne tous les caractéres qui ce trouve entre les deux balises dans toute la variable?
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))
Merci pour vos réponse
Cordialement,
Florent
Partager