reg exp -> sostituire caratteri

[rinosan_76]

Ciao a tutti, mi sapete indicare una reg exp (codice incluso) per sostituire tutti i caratteri che non sono lettere o numeri in un "_" (underscore)? Mi serve per dare il nome alle cartelle e non voglio caratteri strani!
grazie

[willybit]

Ciao rinosan_76,

te faccio un esempio

stringa = "prova 1,2,3."
set re = new RegExp
re.Global=true
re.Pattern="\W"
stringa = re.Replace(stringa,"_")
Response.Write stringa

[rinosan_76]

grazie... quando torno dal week-end lo provo.
Buon fine
Rino

[rinosan_76]

HO provato il tuo codice trasformandolo in una funzione:

<%@LANGUAGE="VBSCRIPT"%> 
<% 
Option Explicit 

Function replaceNomeFile(stringa)
 dim re
 Set re = new RegExp
 re.Global=True
 re.Pattern="\W"
 stringa = re.Replace(stringa,"_")
 replaceNomeFile stringa
End Function

dim str
str = "prova 1,2,3"
response.write replaceNomeFile(str)
%>

L'errore restituito è:

Errore di run-time di Microsoft VBScript error '800a0007' 

Memoria esaurita: 're.Global' 

/intranet/prova.asp, line 10

Dov'è l'inghippo?
Ciao e grazie

[Sypher]

Originariamente inviato da rinosan_76
HO provato il tuo codice trasformandolo in una funzione:

<%@LANGUAGE="VBSCRIPT"%> 
<% 
Option Explicit 

Function replaceNomeFile(stringa)
 dim re
 Set re = new RegExp
 re.Global=True
 re.Pattern="\W"
 stringa = re.Replace(stringa,"_")
 replaceNomeFile stringa
End Function

dim str
str = "prova 1,2,3"
response.write replaceNomeFile(str)
%>

L'errore restituito è:

Errore di run-time di Microsoft VBScript error '800a0007' 

Memoria esaurita: 're.Global' 

/intranet/prova.asp, line 10

Dov'è l'inghippo?
Ciao e grazie

la sparo...se prima della chiusura della funzione distruggi l'oggetto?

[rinosan_76]

ho aggiunto

 Set re=nothing

prima del ritorno della funzione, ma non cambia.

[willybit]

Originariamente inviato da rinosan_76

<%@LANGUAGE="VBSCRIPT"%> 
<% 
Option Explicit 

Function replaceNomeFile(stringa)
 dim re
 Set re = new RegExp
 re.Global=True
 re.Pattern="\W"
 stringa = re.Replace(stringa,"_")
 replaceNomeFile stringa
End Function

dim str
str = "prova 1,2,3"
response.write replaceNomeFile(str)
%>

mandi in loop la funzione. Ti sei dimenticato l'uguale

[Sypher]

Originariamente inviato da willybit
mandi in loop la funzione. Ti sei dimenticato l'uguale

ah ha ragione willy non me n'ero accorto

[rinosan_76]

Sono troppo fuso!