remplacement caracteres de ponctuation par "_"
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 :
Code:
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() |
quelqu'un peut m'aider a comprendre ?
merci!
