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 : 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()
quelqu'un peut m'aider a comprendre ?
merci!