字符串中數(shù)字相關(guān)的幾個自定義函數(shù)

netguestcn

Public Function NumberGet(chkStr As String) As String
'從字符串中提取數(shù)字
    Dim i As Integer
    For i = 1 To Len(chkStr)
        If Mid(chkStr, i, 1) Like "[0-9]" Then
            NumberGet = NumberGet & Mid(chkStr, i, 1)
        End If
    Next i
    NumberGet = NumberGet
End Function

Public Function IsNumbersOnly(chkStr As String) As Boolean
'檢測字符串是否全部由數(shù)字組成
   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
'檢測字符串中第一個數(shù)字的位置
'函數(shù)值為0時(shí)，表示字符串中不包含數(shù)字
   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
' 檢測字符串中是否不含數(shù)字
   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
'截取字符串中第一個數(shù)字前的字符
   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

謝謝分享。。

netguestcn

Public Function NumberGet(chkStr As String) As String
'從字符串中提取數(shù)字
    Dim i As Integer
    For i = 1 To Len(chkStr)
        If Mid(chkStr, i, 1) Like "[0-9]" Then
            NumberGet = NumberGet & Mid(chkStr, i, 1)
        End If
    Next i
    NumberGet = NumberGet
End Function

tmtony

謝謝分享!

123shusheng

Public Function NumberGet(chkStr As String) As String
'從字符串中提取數(shù)字
    Dim i As Integer
    For i = 1 To Len(chkStr)
        If Mid(chkStr, i, 1) Like "[0-9]" Then
            NumberGet = NumberGet & Mid(chkStr, i, 1)
        End If
    Next i
    NumberGet = NumberGet
End Function


這個模塊我很想用，可是我是個菜鳥，能做個例子嗎？謝謝！