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

循环每个字符，如果是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的吧

<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>

非常感谢！注释很详细！

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

Private Sub Command1_Click()
Print GetID("1111asd11")
End Sub
Public Function GetID(str) '自定义函数
Dim TStr, re
TStr = str
Set re = CreateObject("vbscript.regexp") '正则表达式对象
re.Pattern = "\D" '规则非数字字符
re.IgnoreCase = True '忽略大小写
re.Global = True '全局可用性。
TStr = re.Replace(TStr, "") '将匹配的字符替换为空(这里就是把非数字的字符替换成空。
'(虽然没有循环语句但是内部还是有循环的。)
Set re = Nothing '释放对象
GetID = TStr '返回数字部分。
End Function

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

如果文字多，数字少的话我建议表达式用\d (匹配数字)，合并每个数字……不然REPLACE太多。。