★搜Asp.net★（www.soAsp.net），为专业技术文档网站。
包括Asp.net开发技术文档·C#开发技术文档·Access/SQL Server数据库开发技术文档·VB.NET开发技术文档。
还包括·项目实战经验总结·开发经验技巧总结·项目开发心得。
VB.Net实现在字符串中查找数字
dim   k   as   integer  
  dim   strstr   as   string  
  dim   str1   as   string'要分开的字符。  
  dim   x（100）   as   string  
  dim   m   as   integer  
   
    k   =   1  
                  For   m   =   1   To   Len(str1)   -   1  
                          strstr   =   Mid(str1,   m,   1)  
                          If   instr("0123456789",strstr)   <   1   And   instr(   "0123456789",Mid(str1,   m   +   1,   1))   >=   1   Then   k   =   k   +   1'不是数字时数组用另一个数组来保存  
   
                          If     instr("0123456789",strstr)>=1   Then  
                                  x(k)   =   x(k)   &   Trim(strstr)‘只用来存数字，另的字符不要。  
                          End   If  
                  Next  
   
   
   
  for   m=1   to   k  
  x(m)'显示分开后得出的值  
  next