Office中国论坛/Access中国论坛

标题: 如何截取这种字符串中的数字 [打印本页]

作者: angelew 时间: 2007-8-13 14:20
标题: 如何截取这种字符串中的数字
请教各位大虾，如何提取出这些数字
如： BGJ5060GQXA 中的5060
和 AY5200GFL 中的5200

作者: hi-wzj 时间: 2007-8-13 14:26
val函数

作者: angelew 时间: 2007-8-13 14:34
标题: 回复 #2 hi-wzj 的帖子
但是数字前面还有字母啊，不能确定第几位才是数字。不好意思，我是菜鸟：）

作者: wanshan 时间: 2007-8-13 14:56
给你一个自定义函数：
Public Function cue(strmessage As String)  '提取数字部分

Dim i As Integer

   For i = 1 To Len(strmessage)
      If Asc(Mid(strmessage, i, 1)) >= 48 And Asc(Mid(strmessage, i, 1)) <= 57 Then
      cue = cue & Mid(strmessage, i, 1)
      End If
   Next

End Function

作者: huangqinyong 时间: 2007-8-13 16:38
俺试试

作者: chenyingfengsx 时间: 2009-8-21 19:02
看看

作者: Henry D. Sy 时间: 2009-8-21 19:09
可以判断是不是数字的位置

作者: Henry D. Sy 时间: 2009-8-21 19:42
这样也可以
Public Function gStr(strFlds As String) As Long
Dim i As Integer
For i = 1 To Len(strFlds)
      If IsNumeric(Mid(strFlds, i, 1)) Then
         Exit For
      End If
Next
gStr = Val(Mid(strFlds, i))
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)