[已解决]用Like运算符判断数字

爱疯

Sub test()
    Dim x As String
    x = InputBox("请输入1个数字:", , 0)
    If Len(x) = 1 Then
'        If x Like "#" Then MsgBox "数字"
'        If x Like [0-9] Then MsgBox "数字"
        If x Like [0123456789] Then MsgBox "数字"
    End If
End Sub



请问：后两个IF语句为何没判断出是数字？谢谢！

最佳答案

月排行榜 / 总排行榜

Dj_soo

2013-7-31 10:17

加双引号试试...

跳转到最佳答案楼层

Dj_soo

加双引号试试...

youfang

        If x Like "[0-9]" Then MsgBox "数字"
        If x Like "[0123456789]" Then MsgBox "数字"
根据2楼的答案，双引号加在中括号的外面，加了双引号确实可以了。

hwc2ycy

要加双引号的。

爱疯

在中括号 ([ ]) 中，可以用由一个或多个字符 (charlist) 组成的组与 string 中的任一字符进行匹配，这个组几乎包括任何一个字符代码以及数字。


这是帮助里的内容。按照帮助所说，像1楼那样，为什么不行呢？

xdragon

关键是0-9默认的不是string啊，所以要加引号{:22:}

gaoshuichang1

因为like是两个字符串之间的比较，如果[0-9]和[0123456789] 不加双引号，就不是字符串了，不知这样说对不对。

爱疯

谢谢大家！

刚才看了帮助的示例，pattern 确实都加了一对英文双引号。
不过，在对此的说明里没强调（要加双引号）而已，害我以为不用加。

在知道必须要加之后。还想打听下，如果就是不加，那么like运算时，将怎么解释1楼第2个IF语句的条件？

Dj_soo

如果不加的话,你有没有想到[]是什么特殊用法不?
[A1]...

爱疯

Dj_soo 发表于 2013-7-31 13:21
如果不加的话,你有没有想到[]是什么特殊用法不?
[A1]...

Sub test()
    Dim x
    x = -9
    Debug.Print [0-9], x Like [0-9]
    x = 123456789
    Debug.Print [0123456789], x Like [0123456789]
End Sub

这么看，这里的中括号，等同于于小括号，等同于不加括号。
你写[A1]是何意呀