Expressions régulières en vbscript

Expressions régulières en vbscript - ASP - Programmation

Marsh Posté le 27-08-2009 à 11:32:25    

Bonjour je cherche à utiliser des expressions régulières en vbscript mais je n'arrive pas à faire fonctionner le code suivant (trouvé sur le net)
 
<%
dim regEx
dim temp
 
' crée un objet RegExp
Set regEx = New RegExp
' Casse ignorée
regEx.IgnoreCase = True
' Recherche sur toute la chaîne
regEx.Global = True
' Chars cherchés entre [ et ]
regEx.Pattern = "[àâ]"
' Remplace ces chars par un a
temp = regEx.REPLACE(temp,"a" )
' autre masque
regEx.Pattern = "[éèêë]"
temp = regEx.REPLACE(temp,"e" )
' etc pour les autres lettres...
response.write("<br> " & temp)
%>
 
J'obtiens le message d'erreur suivant :  
Type d'erreur :
(0x8002801D)
Bibliothèque non inscrite.  
 
La ligne en erreur correspond à la ligne "Set regEx = New RegExp" ?!?
Quelqu'un a t'il déjà rencontré ce problème
 
Merci d'avance
 

Reply

Marsh Posté le 27-08-2009 à 11:32:25   

Reply

Marsh Posté le 08-10-2009 à 11:17:31    

Bonjour,  
 
Ton regexp sera t'il utilisé pour un site ASP ? si oui, utilise plutôt un regularexpressionvalidator, c'est un objet spécialement fait pour gérer les expressions régulières.
 
Sinon quand tu déclare tes variable essaye :  

Code :
  1. dim regex as Regexp


 
Je ne suis pas sur mais peut-être que cela résoudra ton problème.
 


Message édité par namex le 08-10-2009 à 11:18:20
Reply

Marsh Posté le 18-10-2009 à 09:24:32    

Voila la bonne façon de faire :
 

Code :
  1. <%
  2. function remplace(txt)
  3. Dim temp, regEx
  4. temp = txt
  6. Set regEx = New RegExp
  7. regEx.IgnoreCase = False
  8. regEx.Global = true
  9. temp = replace(temp,VbCrLf,"<br />" )
  10. temp = Replace(temp, "", "<span class='TextGras'>" )
  11. temp = Replace(temp, "", "</span>" )
  12. temp = Replace(temp, "", "<span class='Textitalic'>" )
  13. temp = Replace(temp, "", "</span>" )
  14. temp = Replace(temp, "", "<span class='TextSouligne'>" )
  15. temp = Replace(temp, "", "</span>" )
  16. temp = Replace(temp, "[ul]", "<ul>" )
  17. temp = Replace(temp, "[/ul]", "</ul>" )
  18. temp = Replace(temp, "[x]", "<li>" )
  19. temp = Replace(temp, "[/x]", "</li>" )
  21. remplace = temp
  22. Set regEx = Nothing
  23. end function
  24. %>


 
Tu appelle la fonction par  
 

Code :
  1. <%=remplace(ton-texte)%>

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed