ybbihsse 发表于 2010-6-22 11:17:10

输入空值的问题[已解决]

本帖最后由 ybbihsse 于 2010-6-23 15:56 编辑

我用MSGBOX如何判定他要是没有输入任何数值,也就是空值的时候让他返回重新输入呢

水木子 发表于 2010-6-22 13:38:56

While 1
        $sText = InputBox('', '请任意输入')
        If @error = 0 Then
                If $sText <> '' Then
                        MsgBox(0, '你输入的内容', $sText)
                        ExitLoop
                Else
                        MsgBox(0, '提示', '输入内容不能为空白，请重新输入！')
                EndIf
        EndIf
WEnd

ybbihsse 发表于 2010-6-22 13:40:17

谢谢哦,呵呵,很好用

afan 发表于 2010-6-22 13:47:54

InputBox 第4个参数为 ' m' 可以强制必须输入。
InputBox('', '请任意输入', '', ' m')

ybbihsse 发表于 2010-6-22 20:09:00

额，这个，好像也很不错耶，那比如他要是输入几个空格这种有办法种绝吗

afan 发表于 2010-6-22 20:19:24

空格当然不属于空值了

ybbihsse 发表于 2010-6-23 08:35:25

那有没有办法杜绝空格呀~~

afan 发表于 2010-6-23 12:32:16

杜绝空格? 一个空格也是个合法的字符，如果你要如此要求那就需要在返回值里进行判断

ybbihsse 发表于 2010-6-23 12:40:54

能告诉我要怎样判断么~~

masterpcc 发表于 2010-6-23 12:50:37

新手！！学习中！！

afan 发表于 2010-6-23 13:00:39

回复 9# ybbihsse


    你是想禁止哪种情况？1，全为空格；2，含空格

ybbihsse 发表于 2010-6-23 13:10:55

含空格,不能让有空格出现.

afan 发表于 2010-6-23 13:15:00

While 1
        $val = InputBox('', '请任意输入', '', ' m')
        If @error Then ExitLoop
        If Not StringInStr($val, ' ') Then ExitLoop
WEnd
If $val <> '' Then MsgBox(0, '输入值', $val)

ybbihsse 发表于 2010-6-23 14:05:57

NOT STRINGINSTR 这个是什么意思呀~~

afan 发表于 2010-6-23 14:09:15

没有匹配到
页: [1] 2
查看完整版本: 输入空值的问题[已解决]