以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]字符串类型问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69902)
--  作者：pcxjxjhkw
--  发布时间：2015/6/12 15:21:00
--  [求助]字符串类型问题
如果判断一字符串是否是整数型？
如:13   是；23.5 不是；aa234 不是。
--  作者：狐狸爸爸
--  发布时间：2015/6/12 15:49:00
--  
Dim s As String = "12"
If Isnumeric(s) Then
    Dim v As Integer = val(s)
    If v = val(s) Then
        Return "是"
    Else
        Return "否"
    End If
Else
       Return "否"
End If
--  作者：lsy
--  发布时间：2015/6/12 15:55:00
--  
Dim str As String() = "13|aaa13|13.25".Split("|")
For i As Integer = 0 To str.Length - 1
    If IsNumeric(str(i)) Then
        If CInt(str(i)) = CDbl(str(i)) Then
            MessageBox.Show(str(i) & "是整数")
        Else
            MessageBox.Show(str(i) & "是小数")
        End If
    Else
        MessageBox.Show(str(i) & "不是数值")
    End If
Next
--  作者：pcxjxjhkw
--  发布时间：2015/6/12 16:13:00
--  
谢谢