kn007 发表于 2009-6-27 09:49:21

问个问题，inputbox的

本帖最后由 kn007 于 2009-6-27 10:47 编辑

InputBox("1：", "2！（2）", "", "M2")
我的脚本只有以上这一句句子，为什么M2，可以只写两个以内的东西，但显示 MM ，M2替换为什么可以让输入只能输入数字，而且只能输入两位以内？

kn007 发表于 2009-6-27 09:51:57

本帖最后由 kn007 于 2009-6-27 09:54 编辑

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
                IF $time>=0 And $time<=100 Then
                ;
                Else
                MsgBox(16+4096, "警告 !!! .............        By kn007 ", "您输入错误，再见！..........",5)
                Exit
                EndIf

我现在是上面的脚本，但写英文字符什么的，他都不报错，写 -1或101才出错，郁闷

kn007 发表于 2009-6-27 10:15:30

顶。。。。无聊。。。。。。。。。没人/...

破帽遮颜 发表于 2009-6-27 10:23:58

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringIsDigit($time) And StringLen($time) = 2 Then
        ;
Else
        MsgBox(16 + 4096, "警告 !!! .............          By kn007 ", "您输入错误，再见！..........", 5)
        Exit
EndIf

jhun 发表于 2009-6-27 10:26:34

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringRegExp ($time,"^\d*$",0)=0 Or $time<0 Or $time>100 Then MsgBox(16+4096, "警告 !!! .............          By kn007 ", "您输入错误，再见！..........",5)

kn007 发表于 2009-6-27 10:26:44

谢谢破帽遮颜 ，我试试

给你个好玩的东西

随便打开个网页，比如www.autoitx.com

然后在地址栏那，黏贴以下代码，好好玩的哦，刷新下就停了javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.images; DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math.sin(R*x1+i*x2+x3)*x4+x5; DIS.top=Math.cos(R*y1+i*y2+y3)*y4+y5}R++}setInterval('A()',5); void(0);

kn007 发表于 2009-6-27 10:30:52

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringIsDigit($time) And StringLen($time) = 2 Then
        ;
Else ...
破帽遮颜 发表于 2009-6-27 10:23 http://www.autoitx.com/images/common/back.gif
不能输入一个数字，汗

kn007 发表于 2009-6-27 10:31:51

本帖最后由 kn007 于 2009-6-27 10:34 编辑

改了一下可以了，IF StringIsDigit($time) And StringLen($time) = 2 Or StringLen($time) = 1

对了如何限制只能写1~50的数字呢？

接下来试试jhun 的源码

kn007 发表于 2009-6-27 10:36:02

$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringRegExp ($time,"^\d*$",0)=0 Or $time100 Then...
jhun 发表于 2009-6-27 10:26 http://www.autoitx.com/images/common/back.gif
没办法输入0，汗

kn007 发表于 2009-6-27 10:37:09

IF StringRegExp ($time,"^\d*$",0)=0 Or $time<0 Or $time>50 Then
解决

jhun 发表于 2009-6-27 10:41:04


没办法输入0，汗
kn007 发表于 2009-6-27 10:36 http://www.autoitx.com/images/common/back.gif
:face (3):
这样就行了
$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringRegExp ($time,"^\d*$",0)=0 Or $time<0 Or $time>100 Then MsgBox(16+4096, "警告 !!! .............          By kn007 ", "您输入错误，再见！..........",5)

破帽遮颜 发表于 2009-6-27 10:43:35

晕,我真不懂,你都发帖上千了,怎么连这个你都还要问啊!汗

kn007 发表于 2009-6-27 10:45:34

加上了这个 IF $time>=0 And $time<=30 Then    ，我都是灌出来的晕,我真不懂,你都发帖上千了,怎么连这个你都还要问啊!汗
破帽遮颜 发表于 2009-6-27 10:43 http://www.autoitx.com/images/common/back.gif

kn007 发表于 2009-6-27 10:45:45


:face (3):
这样就行了
$time = InputBox("kn007 提示您.................：", "请输入您所希望的...........！（记住只可数字，还有必须是0~100的其中一个）", "", "")
IF StringRegExp ($time,"^\d*$", ...
jhun 发表于 2009-6-27 10:41 http://www.autoitx.com/images/common/back.gif
谢谢，我试试

kn007 发表于 2009-6-27 10:47:10

可以了，谢谢啊
页: [1]
查看完整版本: 问个问题，inputbox的