批处理之家 » VBS求助&讨论 » [已解决]VBS中Select Case 不支持Is、To？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 8 Rank: 8

帖子: 982
积分: 1525
技术: 78
捐助: 0
注册时间: 2010-10-23

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2011-7-15 16:49 | 只看该作者

[技术讨论] [已解决]VBS中Select Case 不支持Is、To？

dim a 
a=1 '处理inputbox返回字符串的问题 
select case a 
case 1 
msgbox "壹" 
case 2 
msgbox("贰") 
case 3 
msgbox("叁") 
case else 
msgbox("输入错误") 
end select 
复制代码

这样是可行的。

Dim a
a=29
Select Case a
	Case 1 to 25
		MsgBox "1-25之间的数"
	Case 25 to 50
		MsgBox "25-50之间的数"
End Select
复制代码

这样会提示语法错误。

Dim a
a=3
Select Case a
	Case Is=0
		MsgBox "等于0",,"结果"
	Case Is>0 
		MsgBox "大于0",,"结果"
	Case Is<0 
		MsgBox "小于0",,"结果"
End Select
复制代码

这样也会提示语法错误。

可见Vbs中Select Case 不支持Is、To，这样Select Case的功能削弱不少。

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

如果用到sed命令，须下载sed.exe到c:\windows\system32文件夹中。

Rank: 7 Rank: 7 Rank: 7

帖子: 881
积分: 2103
技术: 95
捐助: 55
注册时间: 2010-5-23

2楼

发表于 2011-7-15 16:54 | 只看该作者

这是VBS跟VB的差别之一。当然，语法是死的，人是活的，自己扩展用法select case不比在vb下弱

---学无止境---

Rank: 7 Rank: 7 Rank: 7

帖子: 752
积分: 4553
技术: 139
捐助: 0
注册时间: 2010-8-24

3楼

发表于 2011-7-15 19:21 | 只看该作者

Dim a
a=3
Select Case true
    Case a=0
        MsgBox "等于0",,"结果"
    Case a>0 
        MsgBox "大于0",,"结果"
    Case a<0 
        MsgBox "小于0",,"结果"
End Select
复制代码

1 评分人数

Hello123World: 不俗！技术 + 1

Rank: 8 Rank: 8

帖子: 296
积分: 1212
技术: 41
捐助: 0
注册时间: 2008-1-7

4楼

发表于 2011-7-15 20:15 | 只看该作者

Dim a
a=29
Select Case true
        Case a>0  and a<26
             MsgBox "1-25之间的数"
        Case (a>25) and (a<51)
             MsgBox "25-50之间的数"
End Select
复制代码

1 评分人数

Hello123World: 乐于助人技术 + 1

Rank: 8 Rank: 8

帖子: 982
积分: 1525
技术: 78
捐助: 0
注册时间: 2010-10-23

5楼

发表于 2011-7-16 11:45 | 只看该作者

经楼上两位补充，即便不支持Is、To，功能也没有削弱。

如果用到sed命令，须下载sed.exe到c:\windows\system32文件夹中。