只保留数字0-9的内容，其它字符都去掉，变成从头开始的数字串，请问如何解决？

谢谢！还是要用循环了。

<script language="vbscript">
Public Function GetID(str)
Dim TStr,re
TStr=str
Set re=new RegExp
re.Pattern="\D"
re.IgnoreCase =True
re.Global=True
TStr=re.Replace(TStr,"")
Set Re=Nothing
GetID=TStr
End Function
alert GetID("1111asd11")
</script>
从网上搜了一段代码，是用来去除非数字的，有点看不懂，请高手给注释一下，谢谢！

原来是VB脚本，不懂，应该是.NET的吧

非常感谢！注释很详细！

可是VB6.0里为何不能调用呢？是不是不能用在6.0里呀？

谢谢各位高手！这回可以了，原来是对象的问题！很完美啊！