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

下面几个函数是在字符串中关于数字类型的判断的。我们可以通过立刻窗口测试它的作用
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

发布人:netguestcn-office中国

分享到：

点击次数：更新时间：2013-07-16 14:41:15 【打印此页】【关闭】

上一条：导入导出Excel(.Xlsx)或(.Xls)数据到SQL Server 下一条：[技巧]如何导出Imagelist的图标或图片到文件