Discussion :

[leolio69]

Bonjour,

je tente de parser cette chaîne de caractère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dn: CN=testUser,OU=DOMAIN,DC=cars-test.fr,DC=fr,DC=local
changetype: modify
replace: testServeur
unicodePost:: IgBOAGkAbgBpADEAMwAxADEvqAFYwBtAG8AaQAiAA==

mais je n'arrive pas à obtenir les éléments suivants dans quatre variable en enlevant les prefixes dn: changetype: replace: et unicodepost:

J'ai essayé de parser la première ligne mais sans grand résultats avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim modele
	Set modele=new regexp
	modele.pattern="^dn:\s*\w+\s*$" 
	modele.global=true
	set correspondances=modele.execute(x)
	If correspondances.count<>0 Then
            msgbox(correspondances(0).value)
	Else
	      ' pas de correspondance
	       wscript.echo(x&"<br>Not find")
	End If

Merci pour votre aide.

[tsuji]

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
17
18
19
Dim modele
Set modele=new regexp
'modele.pattern="^dn:\s*\w+\s*$" 
with modele
    .pattern="^(\w+)::?\s*(.*?)\s*$"
    .global=true
    .multiline=true
end with
 
set correspondances=modele.execute(x)
If correspondances.count<>0 Then
    for i=0 to correspondances.count-1
        'msgbox(correspondances(0).value)
        msgbox correspondances(i).submatches(0) & vbcrlf & correspondances(i).submatches(1)
    next
Else
    ' pas de correspondance
    wscript.echo(x&"<br>Not find")
End If