Bonjour
Je souhaite remplacer tout caractere de ponctuation et autres par le caractere "_"
Pour cela, j'ai voulu me servir d'une fonction gentiment donnee par jerome (merci) dans un autre topic concernant les caracteres accentues.
Malheureusement : soit je ne l'ai pas bien adapte, soit j'ai pas compris su tout comment elle fonctionnait!
Donc voici le code :
quelqu'un peut m'aider a comprendre ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Function ReplaceZeichnen(Str, patrn, replStr) Dim regEx ' Crée des variables. Set regEx = New RegExp ' Crée l'expression régulière. regEx.Pattern = "[" & patrn & "]" ' Définit les critères. regEx.IgnoreCase = True ' Ignore la casse. regEx.Global = True ' Toutes les occurences ReplaceZeichnen = regEx.Replace(Str, replStr) ' Effectue le remplacement End Function Dim Webname : Webname = ReplaceZeichnen(request.QueryString("Webname"),"/!§$%&()=?\}][{*+~'#-.:;,><|","_") response.Write(Webname) response.End()
merci!
Partager