新手求助VBS出现下标越界

hzcat

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

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

hzcat

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

pcl_test

回复 3# hzcat

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

hzcat

数据：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

回复 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 "哈哈"
    

复制代码

hzcat

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

pcl_test

回复 7# hzcat
已修改

hzcat

谢谢大神啊