ITPub博客

首页 > Linux操作系统 > Linux操作系统 > vb 判定字符串全是数据的函数

vb 判定字符串全是数据的函数

原创 Linux操作系统 作者:csweiliang 时间:2009-05-30 00:27:09 0 删除 编辑


Function fetchNumFromString(str As String) As Boolean
Dim i As Integer, count As Integer
Dim j As Integer
Dim k As Integer
Dim arr(10) As String

   count = 0
  
   For i = 0 To Len(str) - 1
       
        arr(i) = Mid(str, i + 1, 1)
        count = count + 1
    Next i
 
   k = 0
  For j = 0 To (count - 1)
      If Asc(arr(j)) >= 48 And Asc(arr(j)) <= 57 Then
        k = k + 1
      End If
 Next j
 
 If k = count Then
      fetchNumFromString = True
     
 Else
      fetchNumFromString = False
      
 End If
End Function

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/13996372/viewspace-604464/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2009-05-09

  • 博文量
    23
  • 访问量
    39993