Discussion :

[Miistik]

Bonjour le Forum,


Je cherche à utiliser la méthode Test des expressions régulières et j'ai une erreur d'objet requis.
Je n'arrive pas à débugger (avec Execute c'est ok).

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set FileConfig = fso.OpenTextFile("P:\Detection Ajustement Stock\FichierConfiguration.txt",1,True)
FileConfig_data = FileConfig.ReadAll
FileConfig.Close 
arrLines = Split(FileConfig_data,vbCrLf)
Set regEx = New RegExp
regEx.Pattern = "qte_" & matiere
regEx.IgnoreCase = True 
regEx.Global = False 'Renvoyer seulement la première occurrence
For Each strLine in arrLines
	'MsgBox(strLine) => OK
	'Set occurrence = regEx.Execute(FileConfig_Data) => OK
	Set occurrence = regEx.Test(strLine) '=> Problème
Next

PS : le pattern est correct.

Merci de votre aide.


Miistik

[omen999]

bonjour,
lire la doc
la méthode Test renvoie une valeur booléenne pas un objet collection...
donc :

Code :

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

bIsoccurrence = regEx.Test(strLine)

[Miistik]

Je sais cela.
Test renvoit True ou False.

Je veux juste mettre cette valeur dans une variable.

C'est bon sans le Set c'est ok.

Merci quand même