批处理之家 - Powered by Discuz! Board

标题: [问题求助] 新手求助VBS出现下标越界 [打印本页]

作者: hzcat 时间: 2015-8-7 14:10 标题: 新手求助VBS出现下标越界

dim a,i,b
do until a="n" 
a=inputbox("请输入板卡号和vlan号中间请用,隔开", "电话号码",a)
if a="n"  Then
msgbox "已退出"
else
b =Split(a,"," ) 
for i=0 to lbound(b)
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)
next
End If
loop
msgbox "1111111111111111"
复制代码

在点取消或输入字母n后结束循环但现在点取消总是会出现下标越界“number:0” 就完全退出了

作者: pcl_test 时间: 2015-8-7 15:11

1、你输入的数据是什么？
2、描述清楚你的原本问题是要干嘛，看你的代码猜不出你的意图

作者: hzcat 时间: 2015-8-7 15:28

本帖最后由 hzcat 于 2015-8-7 15:30 编辑

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

作者: pcl_test 时间: 2015-8-7 15:33

本帖最后由 pcl_test 于 2015-8-7 16:26 编辑

回复 3# hzcat

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

作者: hzcat 时间: 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"

作者: pcl_test 时间: 2015-8-7 16:06

本帖最后由 pcl_test 于 2015-8-7 16:17 编辑

回复 5# hzcat

dim a,i,b
do
a=inputbox("请输入板卡号和vlan号中间请用,隔开", "电话号码",a)
if a="" or a="n"  Then
msgbox "结束循环"
exit do
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 "哈哈"
复制代码

作者: hzcat 时间: 2015-8-7 16:15

这些只是配置的一小段代码，Wscript.quit 这个完全退出了运行，我要是点取消后继续执行接下去的代码

作者: pcl_test 时间: 2015-8-7 16:17

回复 7# hzcat
已修改

作者: hzcat 时间: 2015-8-7 16:21

谢谢大神啊

欢迎光临批处理之家 (http://www.bathome.net/)