Sostituzione di numeri in array con Replace

[betto]

Ciao a Tutti,

ho il seguente problema.

Ho una variabile che puo' contenere valori come:

paolo.rossi2
alberto.di.mattia
cecilia.bianchi3
maria4.flavia.bruni

ecc...

Ho splittato tale variabile in un array ar1 scegliendo come campo separatore il "."
Fin qui, tutto OK.

Ho provato in tutti i modi ma non riesco ad eliminare gli eventuali numeri che possono comparire nei singoli elementi dell' array:


ar1 = Split(var, ".")

For y = 0 to Ubound(ar1)
' Response.Write Replace(ar1(y),"\d","A") & " "
Response.Write Replace(ar1(y),"[0-9]","A") & " "
Next

come fare ??


Grazie in anticipo per l' aiuto !!

[betto]

Risolto:


Dim ar1, istr, ostr, re, y

Set re = new regexp
re.Pattern = "\d"
' re.Pattern = "[0-9]"
re.Global = True


ostr = re.Replace(istr, "")
ar1 = Split(ostr,".")
For y = 0 to Ubound(ar1)
Response.Write ar1(y) & " "
Next