Sostituzione di numeri in array con Replace

[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