在 Classic Asp VBScript 中迭代数组的最佳方法是什么？

Question

在下面的代码中

For i = LBound(arr) To UBound(arr)

问使用LBound什么意义？ 当然，那总是0。

Answer 1

为什么不使用For Each ？ 这样你就不需要关心LBound和UBound是什么。

Dim x, y, z
x = Array(1, 2, 3)

For Each y In x
    z = DoSomethingWith(y)
Next

Answer 2

有充分的理由不使用For i = LBound(arr) To UBound(arr)

dim arr(10)分配数组的 11 个成员，从 0 到 10（假设 VB6 默认选项基）。

许多 VB6 程序员假定数组是基于 1 的，并且从不使用分配的arr(0) 。 我们可以通过使用For i = 1 To UBound(arr)或For i = 0 To UBound(arr)来消除潜在的错误源，因为这样就很清楚是否使用了arr(0) 。

For each复制每个数组元素，而不是一个指针。

这有两个问题。

1. 当我们尝试为数组元素赋值时，它不会反映原始值。 此代码将值 47 分配给变量i ，但不影响arr的元素。

     arr = 数组（3,4,8）\n对于每个 i 在 arr\n     我 = 47\n接下来我\n Response.Write arr(0) '- 返回 3，而不是 47

2. 我们不知道for each数组元素的索引，并且我们不能保证元素的顺序（尽管它似乎是有序的）。

Answer 3

LBound可能并不总是 0。

虽然在 VBScript 中不可能创建一个除了 0 下限之外的任何东西的数组，但仍然可以从可能指定了不同LBound的 COM 组件中检索变体数组。

也就是说，我从来没有遇到过这样做过的人。

Answer 4

可能它来自VB6。 因为使用 VB6 中的Option Base语句，您可以像这样更改数组的下限：

Option Base 1

同样在 VB6 中，您可以像这样更改特定数组的下限：

Dim myArray(4 To 42) As String

Answer 5

我一直使用 For Each 循环。

Answer 6

这是我的方法：

dim arrFormaA(15)
arrFormaA( 0 ) = "formaA_01.txt"
arrFormaA( 1 ) = "formaA_02.txt"
arrFormaA( 2 ) = "formaA_03.txt"
arrFormaA( 3 ) = "formaA_04.txt"
arrFormaA( 4 ) = "formaA_05.txt"
arrFormaA( 5 ) = "formaA_06.txt"
arrFormaA( 6 ) = "formaA_07.txt"
arrFormaA( 7 ) = "formaA_08.txt"
arrFormaA( 8 ) = "formaA_09.txt"
arrFormaA( 9 ) = "formaA_10.txt"
arrFormaA( 10 ) = "formaA_11.txt"
arrFormaA( 11 ) = "formaA_12.txt"
arrFormaA( 12 ) = "formaA_13.txt"
arrFormaA( 13 ) = "formaA_14.txt"
arrFormaA( 14 ) = "formaA_15.txt"

Wscript.echo(UBound(arrFormaA))
''displays "15"

For i = 0 To UBound(arrFormaA)-1
    Wscript.echo(arrFormaA(i))
Next

希望能帮助到你。