Discussion :

[dmbsys]

Bonjour, je suis nouveau içi et vraiment novice avec l'ASP ; jusqu'à présent, j'ai toujours utilisé PHP.

Cela fait maintenant 4 jours que je 'sèche' sur ce problème ... preuve que je suis vraiment novice. Donc, j'ai besoin d'aide !!!

Voici ma portion de 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
15
16
17
18
19
20
 
<%
Dim TempOrigine, t, TestVar
Dim regEx
 
Set TempOrigine = rstemp("Original")
 
For t = 1 to nbOpt
 
    Set regEx = New RegExp
    regEx.Global = True
    regEx.IgnoreCase = True
    regEx.Pattern = myID(t)
    Set TestVar = regEx.test(TempOrigine)
    ' A faire ...
 
    Set TempOrigine = Nothing
    Set regEx = Nothing
Next
%>

Une fois que cela fonctionnera, je voudrais, dans la partie 'A faire' mettre un If TestVar = True ... etc

Mais pour l'instant, invariablement et magré tous mes essais, j'ai le message d'erreur suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP 
Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur d'exécution Microsoft VBScript error '800a01a8' 
Objet requis: 'Faux'
/new/inc/detail.asp, line 99

Bref, je crois que je suis vraiment nul en ASP !

Merci d'avance pour toute aide !

dmbsys

[Immobilis]

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
20
<%
Dim TempOrigine, t, TestVar
Dim regEx
Si c'est une variable il faut simplement mettre
TempOrigine = rstemp("Original")
Set TempOrigine = rstemp("Original")

For t = 1 to nbOpt
    Ca marche sans ce bloc?
    Set regEx = New RegExp
    regEx.Global = True
    regEx.IgnoreCase = True
    regEx.Pattern = myID(t)
    Set TestVar = regEx.test(TempOrigine)
    ' A faire ...
    
    Set TempOrigine = Nothing
    Set regEx = Nothing
Next
%>

[dmbsys]

Ben, en fait, sans cette ligne :

Code :

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

Set TestVar = regEx.test(TempOrigine)

Cela fonctionne... pas de message d'erreur !

Mais j'aurai besoin d'un tel test.

Pour ce qui est de cette ligne :

Code :

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

TempOrigine = rstemp("Original")

J'ai donc modifié car c'est bien une variable mais le problème reste

Merci

dmbsys

[Immobilis]

Et TestVar c'est un booléen, non? Si c'est pas un objet, il ne faut pas mettre "SET".

[dmbsys]

Effectivement, TestVar est un booléen mais sans le Set, l'erreur devient :

Code :

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

1
2
3
4
5
6
7
8
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim  strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur d'exécution Microsoft VBScript error '800a000d'
Type incompatible: 'test'

Donc, autre problème.

dmbsys

[dmbsys]

J'ai trouvé !!!

C'est le :

Code :

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

Set TempOrigine = Nothing

qui posait problème.

Tout fonctionne maintenant.

Merci pour votre aide.

dmbsys

[Immobilis]

Effectivement, le "Set TestVar = regEx.test(TempOrigine)" n'etait pas dans la boucle, ou il fallait en sortir le "Set TempOrigine = Nothing".
Pas vu.
A+