主题：怎样删除掉字符中的中英文字符只留数字?

如题,比如在命令窗口中Dim s As String ="删除中文abc123efg"
                             '这里的代码要怎么写?
                              Output.Show(s)    命令窗口输出的是123其它字符全删了,请教老师怎么实现?

我的办法笨一点，你可以参考，希望专家还有更好的办法：

Dim s As String ="删除中文abc123efg"

dim lst as new list (Of string)

for i as integer = 0 to s.length - 1

     lst.add(s.substring(i,1)

next

for i as integer = 0 to lst.count - 1

     if char.isdigit(lst(i)) then

         s = s & lst(i)

     end if

next

s = s.trim()
Output.Show(s) 

还是表达式简洁，不过得费一番功夫，才能领会、熟练。

呵呵,确实是,没学习过RegularExpressions看不懂代码意思,感谢各位老师的帮助