Funzione per rimuovere caratteri "strani"

[maxolino]

Ciao a tutti,
avrei la necessità di avere una funzioncina che mi elimini tutti i caratteri che non siano lettere, numeri, trattino "-" e apostrofo.

Se io scrivessi:

"ciao_pippo, l'hai visto (astolfo!)?"

Dovrebbe restituire:
"ciao pippo l'hai visto astolfo"

(i caratteri strani dovrebbero essere rimossi con uno spazio)


Qualcuno è in grado di aiutarmi?

Grazie mille!!!!!

[Esitam]

Prova questo:

testo = "ciao_pippo, l'hai visto (astolfo!)?"

Function EliminaExtraChar(str)
	Dim ObjRegexp
	Set ObjRegexp = New RegExp
		ObjRegexp.Global = True
		ObjRegexp.IgnoreCase = True
		ObjRegexp.Pattern = "[^A-Za-z0-9' -]"
		str = ObjRegexp.Replace(str," ")
	Set ObjRegexp = Nothing
		EliminaExtraChar = str
End Function

Stampando testo ti uscirà: ciao pippo l'hai visto astolfo
Sai dove contattarmi se ti serve aiuto