请教如何取字符串中的数字？

有一字符串  
  例如：rline="abc123"  
  我想只取其中的数字123。  
  在vb   script   中如何实现?

• · 推荐参考文章：
• SGI IRIX rpc.mountd加载未明文件访问漏洞
• HP Tru64 UNIX Java (TM)远程拒绝服务漏洞
• 多个应用程序fd_set结构bitmap数组索引溢出漏洞
• SGI IRIX gr_osview本地信息泄露漏洞
• SGI IRIX gr_osview本地文件覆盖漏洞
• OpenServer 5.0.6/5.0.7 termsh/atcronsh/auditsh环境变量溢出漏洞
• SGI IRIX inpview特权提升漏洞
• HP-UX Shar工具可预测临时文件名漏洞
• FreeBSD Kernel SendFile系统调用本地信息泄露漏洞
• SCO OpenServer NWPrint命令行参数本地缓冲区溢出漏洞

· 网友精彩回答：

<script>  
  function   getdight(id)  
  {  
            str   =   "";  
            dights="0123456789";  
            for   (i=0;i<id.length;i++)  
            {  
              if   (dights.indexof(id.substr(i,1))!=-1)  
              {  
                  str   +=id.substr(i,1);  
              }  
            }  
            return   str;  
    }  
          alert(   getdight("adfasdf12dfdf23"))  
  </script>  
 

preg_match_all("#\d#",$str,$out);

用js的"/\d/g"方法  
  <script>  
  var   str="abc132cdefadfa324532a",re;  
  re=/\d/g;  
  str=str.match(re);  
  alert(str);  
  </script>

<%  
  a="abc123"  
   
  set   ma=new   regexp  
  ma.global=true  
  ma.pattern="[^\d]"  
  b=ma.replace(a,"")  
  %>

<script   language=vbscript>  
  dim   teststr  
  teststr="kendo34545tom   lsls2342340987654321"  
  document.write   getstrnum(teststr)  
   
  function   getstrnum(teststr)  
  dim   strarray   存放数字  
  for   i=0   to   len(teststr)  
        if   isnumeric(left(teststr,1))   then    
              strarray=strarray+left(teststr,1)  
        end   if  
        teststr=mid(teststr,2,len(teststr))  
  next  
  getstrnum=strarray  
  end   function  
  </script>