Replace di tutti (non solo quelli speciali) i caratteri

[gim]

Ciao a tutti.
Esiste un replace (magari con un ciclo) che mi rimuova tutti i caratteri, speciali e non e che lasci solo i numeri (da 0 a 9)? ma senza necessariamente ottenere un risultato in formato numerico. Quindi ad esempio ho:

abc0000123efg

vorri ottenere:

0000123.

Grazie

[br1]

<%
Dim RegX
Set RegX = NEW RegExp
Dim MyString, SearchPattern, ReplacedText
MyString = "abc000123efg"
SearchPattern = "\D"
ReplaceString = ""
RegX.Pattern = SearchPattern
RegX.Global = True
ReplacedText = RegX.Replace(MyString, ReplaceString)
Response.Write(ReplacedText)
%>

Fonte: http://www.devguru.com/technologies/vbscript/14115.asp

ciao

[gim]

Perfetto. Grazie mille!