VBScript下标越界？不存在的！老司机带你一键填坑

VBScript下标越界？不存在的！老司机带你一键填坑

1. 开场白 (30秒)

哈喽大家好，我是你们的老朋友，专门帮你们填坑的XX。今天我们要聊聊VBScript里让人头疼的“下标越界”错误，这玩意儿就像程序里的拦路虎，一不小心就给你绊一跤。简单来说，就是你访问数组的时候，用的那个“号码牌”超出了数组的范围。

是不是经常遇到明明觉得代码没问题，但一运行就报错？今天就带你彻底搞懂它！

2. 错误原因分析 (3分钟)

2.1 VBScript数组下标从0开始

首先，要记住VBScript数组的下标是从0开始的！这是很多新手容易犯的错误。比如，你写了Dim arr(5)，这可不是定义了一个包含5个元素的数组，而是定义了一个包含6个元素的数组，下标范围是0到5。如果尝试访问arr(6)，就会出现下标越界错误。

2.2 循环变量超出数组范围

Dim arr(2)
arr(0) = "A"
arr(1) = "B"
arr(2) = "C"

For i = 0 To 3  ' 错误！循环到3了，数组最大下标才2
  WScript.Echo arr(i)
Next

上面的代码中，循环变量i从0循环到3，但是数组arr的最大下标是2，所以在i=3的时候，访问arr(3)就会导致下标越界。

2.3 Split函数返回值处理不当

Split函数可以将一个字符串分割成一个数组。但是，如果你没有正确处理分割后的数组大小，就很容易导致下标越界。举个例子，从Microsoft VBScript 运行时错误 '800a0009' 下标越界文章中，我们可以看到，如果日期格式不一致，比如代码期望的是yyyy-MM-dd，但实际是yyyy/M/d，那么使用-分割后，数组元素的个数就会不对，访问超出范围的元素就会报错。

2.4 动态数组未ReDim

使用动态数组时，必须先使用ReDim语句定义数组大小，才能使用。否则，访问数组元素也会导致下标越界。

Dim arr()
arr(0) = "A"  ' 错误！动态数组未定义大小

2.5 多维数组下标错误

多维数组的下标使用要小心，避免混淆行和列的下标。例如：Dim arr(2, 3) 定义了一个 3行4列的数组。访问时要使用 arr(行下标, 列下标)，行下标的范围是 0 到 2，列下标的范围是 0 到 3。

3. 解决方案 (5分钟)

3.1 仔细检查数组定义

在定义数组时，要明确数组的大小，避免定义错误。如果数组大小不确定，可以使用动态数组。

3.2 使用UBound函数获取数组上界

UBound函数可以动态获取数组的上界。在循环中使用UBound函数，可以避免硬编码数组大小，从而避免下标越界。

Dim arr(5)
For i = 0 To UBound(arr)
  WScript.Echo arr(i)
Next

3.3 使用LBound函数获取数组下界

LBound函数可以获取数组的下界。虽然VBScript数组下界通常是0，但在某些特殊情况下，可以使用Option Base 1改变数组下界。 了解LBound可以帮助你更全面地理解数组的边界。

3.4 在循环前检查数组大小

对于从外部传入的数组或通过Split函数生成的数组，在循环前使用UBound函数检查数组大小，并进行必要的处理。

Dim str, arr
str = "A,B,C"
arr = Split(str, ",")

If UBound(arr) >= 0 Then
  For i = 0 To UBound(arr)
    WScript.Echo arr(i)
  Next
End If

3.5 错误处理机制

可以使用On Error Resume Next语句捕获下标越界错误，并进行相应的处理，例如记录日志或跳过错误。但要强调，这只是一种临时解决方案，不能代替代码调试。

On Error Resume Next
Dim arr(2)
WScript.Echo arr(3)  ' 产生下标越界错误
If Err.Number <> 0 Then
  WScript.Echo "发生错误：" & Err.Description
  Err.Clear  ' 清除错误对象
End If
On Error Goto 0 '关闭错误处理

3.6 虚拟案例：Task ID #8281

假设一个自动化测试脚本，负责读取一个配置文件（config.ini），这个配置文件里存储了测试用例的名称。脚本使用Split函数分割每一行的内容，然后根据分割后的数组元素执行不同的测试用例。但是，由于配置文件格式不规范，有些行缺少必要的参数，导致Split函数返回的数组大小不一致，从而引发下标越界错误。

解决方案是：在读取每一行后，先检查Split函数返回的数组大小，如果小于预期的参数个数，则跳过该行，并记录错误日志。

' 假设配置文件内容如下：
' TestCase1,Param1,Param2
' TestCase2,Param3
' TestCase3,Param4,Param5

Dim fso, file, line, arr
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("config.ini", 1)

Do While Not file.AtEndOfStream
  line = file.ReadLine
  arr = Split(line, ",")

  If UBound(arr) < 1 Then  ' 假设至少需要两个参数
    WScript.Echo "错误：配置文件格式不正确，缺少参数。行内容：" & line
    ' 记录日志...
  Else
    ' 执行测试用例...
    WScript.Echo "执行测试用例：" & arr(0)
  End If
Loop

file.Close
Set file = Nothing
Set fso = Nothing

4. 调试技巧 (3分钟)

4.1 使用MsgBox或WScript.Echo输出变量值

使用MsgBox或WScript.Echo函数输出数组下标和对应的值，帮助定位错误。

Dim arr(2)
arr(0) = "A"
arr(1) = "B"
arr(2) = "C"

For i = 0 To 3
  If i <= UBound(arr) Then
    WScript.Echo "arr(" & i & ") = " & arr(i)
  Else
    WScript.Echo "下标越界，i = " & i
  End If
Next

4.2 使用断点调试

在VBScript编辑器中使用断点调试，逐步执行代码，观察变量的值，找出下标越界的原因。

4.3 添加日志记录

添加详细的日志记录，方便后续分析错误原因。例如，记录出错的行号、变量的值等。

5. 总结 (1分钟)

再次强调下标越界错误是VBScript中常见的错误，但只要掌握了正确的方法，就可以轻松解决。记住，仔细检查数组定义、使用UBound函数、并在循环前检查数组大小，就可以避免大部分下标越界错误。

鼓励大家多练习，多总结，并在评论区分享遇到的问题和解决方案。

下一期我们将聊聊VBScript中的另一个常见错误：“类型不匹配”，敬请期待！

6. 结尾 (30秒)

感谢大家的观看，别忘了点赞、评论、分享，以及订阅我的频道。

我们下期再见，拜拜！