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

Rank: 1

帖子
6 
积分
18 
技术
0  
捐助
0  
注册时间
2015-8-7 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-8-7 14:10 | 只看该作者

[问题求助] 新手求助VBS出现下标越界

  1. dim a,i,b

  2. do until a="n" 

  3. a=inputbox("请输入板卡号和vlan号中间请用,隔开", "电话号码",a)

  4. if a="n"  Then

  5. msgbox "已退出"

  6. else

  7. b =Split(a,"," ) 

  8. for i=0 to lbound(b)

  9. crt.screen.send ("multi-pvc adsl 0/" )&b(0) &(" 0xffffffff region lan 0/13 vlanId ")&b(1) &(" off off 1 1 ")&Chr(13)

  10. a=b(0)+1&","&b(1)

  11. next

  12. End If

  13. loop

  14. msgbox "1111111111111111"
复制代码
在点取消或输入字母n后结束循环但现在点取消总是会出现下标越界“number:0” 就完全退出了
收藏 分享

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2015-8-7 15:11 | 只看该作者
1、你输入的数据是什么？
2、描述清楚你的原本问题是要干嘛，看你的代码猜不出你的意图

TOP

hzcat

Rank: 1

帖子
6 
积分
18 
技术
0  
捐助
0  
注册时间
2015-8-7 
3楼
发表于 2015-8-7 15:28 | 只看该作者
本帖最后由 hzcat 于 2015-8-7 15:30 编辑

我这个是用来配置华为adsl交换设备的，我就是想在配置完了以后在输入框点取消就可以退出循环，现在输入n可以退出循环了但是点取消就出现下标越界

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
4楼
发表于 2015-8-7 15:33 | 只看该作者
本帖最后由 pcl_test 于 2015-8-7 16:26 编辑

回复 3# hzcat

你输入的数据是什么？
搞不懂你的编程逻辑是什么，不知道你用了两个循环有什么用？

TOP

hzcat

Rank: 1

帖子
6 
积分
18 
技术
0  
捐助
0  
注册时间
2015-8-7 
5楼
发表于 2015-8-7 15:49 | 只看该作者
本帖最后由 hzcat 于 2015-8-7 16:07 编辑

数据：1,200 前面的1是交换机的槽编号，200是交换机的vlan号
用split 分割成1 和 200两个数据分别存入到b(0)和b(1)
multi-pvc adsl 0/" )&b(0) &(" 0xffffffff region lan 0/13 vlanId ")&b(1) &(" off off 1 1 ")&Chr(13)
上面的一段是ma5100配置的代码
multi-pvc adsl 0/1 0xffffffff region lan 0/13 vlanId 200  off off 1 1  数据带入就是这个
一台ma5100有几十个槽，一值循环到我点取消或输入n才跳出循环
现在是我输入n已经没问题了可以跳出循环但是点取消就会出错
for next 那个是不需要的我多打了
dim a,b
do until a="n"
a=inputbox("请输入板卡号和vlan号,中间请用,隔开", "电话号码",a)
if a="n" Then
msgbox "以退出"
else
b =Split(a,"," )
crt.screen.send ("multi-pvc adsl 0/" )&b(0) &(" 0xffffffff region lan 0/13 vlanId ")&b(1) &(" off off 1 1 ")&Chr(13)
a=b(0)+1&","&b(1)
End If
loop
msgbox "1111111111111111"

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
6楼
发表于 2015-8-7 16:06 | 只看该作者
本帖最后由 pcl_test 于 2015-8-7 16:17 编辑

回复 5# hzcat 
  1. dim a,i,b

  2. do

  3. a=inputbox("请输入板卡号和vlan号中间请用,隔开", "电话号码",a)

  4. if a="" or a="n"  Then

  5. msgbox "结束循环"

  6. exit do

  7. else

  8. b =Split(a,"," ) 

  9. crt.screen.send ("multi-pvc adsl 0/" )&b(0) &(" 0xffffffff region lan 0/13 vlanId ")&b(1) &(" off off 1 1 ")&Chr(13)

  10. a=b(0)+1&","&b(1)

  11. End If

  12. loop

  13. msgbox "哈哈"
复制代码

TOP

hzcat

Rank: 1

帖子
6 
积分
18 
技术
0  
捐助
0  
注册时间
2015-8-7 
7楼
发表于 2015-8-7 16:15 | 只看该作者
这些只是配置的一小段代码，Wscript.quit 这个完全退出了运行，我要是点取消后继续执行接下去的代码

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5330 
技术
684  
捐助
0  
注册时间
2014-10-19 
8楼
发表于 2015-8-7 16:17 | 只看该作者
回复 7# hzcat
已修改

TOP

hzcat

Rank: 1

帖子
6 
积分
18 
技术
0  
捐助
0  
注册时间
2015-8-7 
9楼
发表于 2015-8-7 16:21 | 只看该作者
谢谢大神啊

TOP

返回列表