将一个数组分配给另一个 Classic asp

Question

我对经典 asp 很陌生，使用 arrays 并不好玩:(

我不断收到错误

            dim isMyApiResponse

            if MyAvailRooms = "Error" then
                isMyApiResponse = false
            else
                isMyApiResponse = true
                dim MyAvailArray()

                If InStr( MyAvailRooms, "," ) > 1 Then 
                    'response.write("<h2>MyAvailRooms is " & MyAvailRooms)
                    'response.write("<h2>var type of My avil rooms is " & VarType(MyAvailRooms))
                    MyAvailRooms = CStr(MyAvailRooms)
                    dim tempArray
                    tempArray = split(MyAvailRooms, ",")

                    dim sizeTempArray
                    sizeTempArray = UBound(tempArray)

                    response.write ("<h2>type of sizeTempArray is " &VarType(MyAvailArray))
                    response.write("<br/>type of temp array is " & VarType(tempArray))

                    reDim MyAvailArray(sizeTempArray)
                    MyAvailArray  = tempArray

                else 
                    ReDim MyAvailArray(1)
                    MyAvailArray (0) = MyAvailRooms
                end if
            end if

我在上面的“ MyAvailArray = tempArray ”行上遇到类型不匹配。 我猜这是一个动态固定数组问题或什么的。 这两种类型在我的 reponse.write 中都以 8204 的形式返回，我认为这是变体。

我已经走到了尽头，请帮助我经典的 ASP 忍者！

Answer 1

虽然我无法解释为什么会引发错误：

MyAvailArray = tempArray

您可以遍历每个数组元素并一个接一个地分配它们，它应该可以工作；）

Dim i
for i = 0 to sizeTempArray
    MyAvailArray(i) = tempArray(i)
next

Answer 2

我一直在使用Dim myArray()语法声明动态 arrays 时遇到问题。 我总是将我的 arrays 声明为常规变体，这仍然允许我稍后使用ReDim语句。

（作为旁注，如果我需要一个空数组，我将使用没有 arguments 的Array function，即myArray = Array() 。这样做的好处是调用UBound ZC1C425268E68385D1AB504 将返回 -C1 而不是给出错误所以我可以很容易地确定一个数组是否为空。）

Dim MyAvailArray

If InStr( MyAvailRooms, "," ) > 1 Then
    '<snip>'
    MyAvailArray = tempArray
Else 
    MyAvailArray = Array(MyAvailRooms)
End If

请注意，为简洁起见，我使用了Array function。

---

顺便说一句， InStr检查是不必要的，因为Split将始终返回一个数组，即使分隔符不在字符串中。 因此，您可以将代码重写为：

Dim MyAvailArray
MyAvailArray = Split(MyAvailRooms, ",")