Access获取字符串中的数字的几个函数_access模块-access类模块-access函数-access VBA

Access获取字符串中的数字的几个函数

时间：2013-07-16 14:42 来源：office中国作者：netguestcn 阅读：次

下面几个函数是在字符串中关于数字类型的判断的。我们可以通过立刻窗口测试它的作用
ctrl+G能快速调出窗口，在下面输入？函数名（参数）即可。如?numberpos("jfidj43sf343")

同时，大家也可以根据自己的需要修改下面的函数

Public Function IsNumbersOnly(chkStr As String) As Boolean
'检测字符串是否全部由数字组成
Dim i As Long
Const AllNumbers = "0123456789"
IsNumbersOnly = True
For i = 1 To Len(chkStr)
   If InStr(AllNumbers, Mid(chkStr, i, 1)) = 0 Then
         IsNumbersOnly = False
         Exit Function
   End If
Next i
End Function

Public Function NumberPos(chkStr As String) As Long
'检测字符串中第一个数字的位置
'函数值为0时，表示字符串中不包含数字
Dim i As Long
For i = 1 To Len(chkStr)
   If Mid(chkStr, i, 1) Like "[0-9]" Then
         NumberPos = i
         Exit Function
   End If
Next i
End Function

Public Function NoNumbers(chkStr As String) As Boolean
' 检测字符串中是否不含数字
Dim i As Long
NoNumbers = True
For i = 1 To Len(chkStr)
   If Mid(chkStr, i, 1) Like "[0-9]" Then
         NoNumbers = False
         Exit Function
   End If
Next i
End Function

Public Function CutStr(chkStr As String) As String
'截取字符串中第一个数字前的字符
Dim i As Long
For i = 1 To Len(chkStr)
   If Mid(chkStr, i, 1) Like "[0-9]" Then
         CutStr = Left(chkStr, i - 1)
         Exit Function
   End If
Next i
CutStr = chkStr
End Function

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：[技巧分享]Access自动生成按日期递增的文件名
下一篇：Access如何将二进制UTF8转成字符串