求一关于不特定字符、字符串中之间取数字的问题。

fnsmydyang

求助各位大侠：       一个关于取数值的问题
字符串：ab123456cbss231     取值结果：123456     字符串，字符不特定

              sab132156dfjdskljfldks4587      取值结果：132156     字符串，字符不特定


             谢谢各位指教。

todaynew

fnsmydyang 发表于 2014-8-30 19:50
自己写了一段代码，能解决，请指教
Public Function 订单ID(StrB As Variant) As Variant
Dim j As Integ ...

此类问题宜用正则表达式处理之
http://www.accessoft.com/article-show.asp?id=9320

这个正则表达式：^\D+(\d+)中提取$1即可。也就是开始是若干非数字字符，然后是若干数字字符，将这个数字字符提取到正则变量中。小括号定义变量，从左到右分别是变量$1、$2....

fnsmydyang

自己写了一段代码，能解决，请指教
Public Function 订单ID(StrB As Variant) As Variant
Dim j As Integer
Dim I As Integer
Dim N As Integer
Dim StrTemp
Dim StrID
   
    If Len(StrB) > 0 Then
       N = Len(StrB)
       For I = 1 To N
           If IsNumeric(Mid(StrB, I, 1)) Then
              j = I
              Exit For
           End If
       Next
       For I = j To N
           If IsNumeric(Mid(StrB, I, 1)) Then
              StrTemp = StrTemp & Mid(StrB, I, 1)
           Else
              Exit For
           End If
       Next
       订单ID = StrTemp
    End If
   
End Function

zpy2

fnsmydyang 发表于 2014-8-30 19:50
自己写了一段代码，能解决，请指教
Public Function 订单ID(StrB As Variant) As Variant
Dim j As Integ ...

不错，！！！

zpy2

第2个循环是否可以用val(mid(str,j))取得？看看行吗？

zpy2

第1句As Integer比较好，因为返回的是数字。

zpy2

strB As string，可能会快点？

zpy2

用正则也可以，好象\d+

fnsmydyang

几天没上网，有这么多的大侠们指点，先谢谢各位楼主们了。