Sujet : erreur '800a139a' C'est quoi?

bonjour
j'ai un message d'erreur:
Microsoft VBScript runtime error '800a139a'
Unexpected quantifier
/member/common/i_utils.asp, line 381

aprés recherches sur le web , le code serait d'un version ancienne ????

if not isNull(str_html) then

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|\n)+?>"
381---> str_output = objRegExp.Replace(str_html, "")
objRegExp.Pattern = "\&(.|\n)+?;"
str_output = objRegExp.Replace(str_output, "")
str_output = Replace(str_output, "<", "&lt;")
str_output = Replace(str_output, ">", "&gt;")
strip_html = str_output

end if

merci :(

:tagcode:
tu n'as peut-être pas la possibilité de remplacé les occurences par une chaine vide.as-tu essayé avec :

Code:

---

str_output = objRegExp.Replace(str_html, "*")

---

par exemple
de plus tu fais le test de savoir si ta chaine est Null mais elle est peut-être vide

Code:

---

if Not isNull(str_html) And str_html!="" then

---

ok , avec les changements que tu m'as donné :

if Not isNull(str_html) And str_html!="" then

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|\n)+?>"
381---> str_output = objRegExp.Replace(str_html, "*")
objRegExp.Pattern = "\&(.|\n)+?;"
str_output = objRegExp.Replace(str_output, "")
str_output = Replace(str_output, "<", "&lt;")
str_output = Replace(str_output, ">", "&gt;")
strip_html = str_output

end if

j'ai l'erreur :
'Then' attendu

/member/common/i_utils.asp, line 376

if Not isNull(str_html) And str_html!="" then
------------------------------------^

testes :

Code:

---

if (Not isNull(str_html)) && (str_html!="") then

---

toujours une erreur :

/member/common/i_utils.asp, line 376

if (Not isNull(str_html)) && (str_html!="") then
---------------------------^

Citation:

---

Envoyé par nickg

toujours une erreur :

/member/common/i_utils.asp, line 376

if (Not isNull(str_html)) && (str_html!="") then
---------------------------^

---

Code:

---

if (Not isNull(str_html)) AND (str_html!="") then

---

est bon ca ne vient pas de la!!
Salutations

:marteau: :marteau:

mais qu'est ce que c'est ce truc !!!!!!!!!!!!!

je me demande si le problème ne vient pas de l'expression réguliere :?:
Je ne suis pas un connaisseur des expressions régulières

j'ai trouvé ça dans une doc peut-être que ça pourra t'aider :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function RegExpTest(patrn, strng) Dim regEx, Match, Matches ' Crée la variable. Set regEx = New RegExp ' Crée une expression régulière. regEx.Pattern = patrn ' Définit les critères. regEx.IgnoreCase = True ' Ignore la casse. regEx.Global = True ' Définit le champ d'application. Set Matches = regEx.Execute(strng) ' Lance la recherche. For Each Match in Matches 'Itère la collection Matches. RetStr = RetStr & "Correspondance trouvée à la position " RetStr = RetStr & Match.FirstIndex & ". La valeur de la correspondance est '" RetStr = RetStr & Match.Value & "'." & vbCRLF Next RegExpTest = RetStr End Function   MsgBox(RegExpTest("est.", "IS1 is2 IS3 is4"))

---

merci pour l'info
Suite à des recherches sur google un lien n'avait renvoyé sur microsoft, me donnant des infos similaires..... mais je suis loin d'être un débutant éclairé.

Je viens d'installer mon applik chez un autre hébergeur asp (mais qui n'est pas le mien) et là pas de problème tout fonctionne.
D'ou mon interrogation : probléme de composants ???????

peut être que c'est du a une différence de version de IIS mais ça me paraît bizarre quoi pas impossible...l'essentiel c'est que ça marche :wink:

oui ca marche mais pas chez "mon" hébergeur asp et c'est la le probléme !!!!! J'aide une petite asso, en leur mettant en ligne une petite applik de gestion de membre ,sympa et ils payent déjà l'hébergeur asp. Donc il faudrait que ça marche.

Par contre ça marche en local sur mon ordi avec xp
je n'y comprends rien. :?:

En ASP plutôt que:

Code:

---

1 2	if Not isNull(str_html) And str_html!="" then ------------------------------------^

---

j'aurais mis:

Citation:

---

if Not isNull(str_html) And str_html<>"" then

---

Avec le "&&" tout cela ressemble à du javascript.
Non?
Et au fait, ça sert à quoi la manip de ton replace?

Immobilis> c'est ma faute :oops: j'ai pensé qu'il utilisait du jscript donc j'ai proposé cette syntaxe mais ne l'utilisant pas et sachant que la syntaxe est proche du javascript... je me suis trompé, je plaide coupable

Youpi!!! MAIS...!
Ca marche avec
if Not isNull(str_html) And str_html<>"" then
Ce serait le bon code.
ma home page s'affiche enfin!
.

Mais si je clic sur un lien de ma homepage, jai la même erreur sur une autre ligne au dessous (rouge).

if Not isNull(str_html) And str_html<>"" then

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|\n)+?>"
str_output = objRegExp.Replace(str_html, "")
objRegExp.Pattern = "\&(.|\n)+?;"
str_output = objRegExp.Replace(str_output, "")
str_output = Replace(str_output, "<", "&lt;")
str_output = Replace(str_output, ">", "&gt;")
strip_html = str_output

end if

D'une part

Code:

---

if Not isNull(str_html) And str_html<>"" then

---

me semble equivalent à

Citation:

---

if str_html<>"" then

---

D'autre part, quelle est le message d'erreur que tu reçois?
Que te donne un response.write(str_html)?
Et encore, à quoi sert ton replace?
Enfin :tagcode:
A+

Immobilis> être NULL et être vide n'est pas la même chose !!
nickg> quand je comprends pas je repars du début donc : que cherches-tu a faire exactement ?

Microsoft VBScript runtime error '800a139a'
Unexpected quantifier
/member/common/i_utils.asp, line 381


line 381 >>>>str_output = objRegExp.Replace(str_html, "")

je ne suis pas a l'origine du code . C'est une applik en open source asp . (j'ai posé la question sur leur forum en anglais mais aucune réponse depuis de nombreux jours......)
Et le replace : c'est un peu du chinois pour moi Désolé.

Pour nickg : fais un response.write de ton str_html en plusieurs endroits pour voir l'evolution du contenu.
Pour Pymm: oui et non. Tout depend comment est defini str_html.
en faisant le test suivant:

Code:

---

1 2 3 4 5 6

dim t if isnull(t) then response.Write("null<br>") else response.Write("pas null<br>") end if if t = "" then response.Write("vide<br>") else response.Write("pas vide<br>") end if t = "" if isnull(t) then response.Write("null<br>") else response.Write("pas null<br>") end if if t = "" then response.Write("vide<br>") else response.Write("pas vide<br>") end if

---

La variable t est toujours vide.
Par contre, considérant un recordset dans lequel il n'y a rien, alors oui. mais str_html n'est pas un recordset.
Non?

testes comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

if Not isNull(str_html) And str_html!="" then str_output = Replace(str_html, "<","&lt;") str_output = Replace(str_output, ">", "&gt;") str_output = Replace(str_output, "(","") str_output = Replace(str_output, ".","") str_output = Replace(str_output, "|","") str_output = Replace(str_output, "\n","") str_output = Replace(str_output, ")","") str_output = Replace(str_output, "+","") str_output = Replace(str_output, "?","") strip_html = str_output end if

---

sans garanties

Ca ne peut pas marcher. Les expression regulieres cherche des caracteres en se basant sur un "motif".
Si tu fais un replace(str_html,"(","") tu recherches spécifiquement une parenthese ouverte. Alors que pour l'expression reguliere cela a une toute autre signification.
Il faut consulter le site suivant: http://msdn.microsoft.com/library/fr...gExpSyntax.asp
A mon avis ce code sert à eliminer les balise code d'un texte. Un "server.htmlencode" devrait suffir. Mais il faudrait qu'oon en sache un peu plus sur l'origine de str_html et la destinée de str_output.

nickg peux-tu nous en dire plus?

Merci