1

我试图从我拥有但它不起作用的字符串创建一个数组,我想知道是否有人可以让我知道我哪里出错了。

字符串中可能有很多文件名,这是动态的

我的字符串如下:

imagesArray = "1.jpg,2.jpg,3.jpg,4.jpg,5.jpg"

我的代码如下:

fileNameArray = split(imagesArray, ",")

Dim newImageArray
Redim newImageArray(uBound(fileNameArray) + 1)

For each i in fileNameArray
    newImageArray(i) = i
Next

运行此程序时,我不断收到 500 错误。

4

1 回答 1

4

它不起作用的原因是您正在使用 For Each 循环,其中 i 是对象。然后,您将对象用作数组的索引以及值。

如果您使用以下内容,代码将起作用 -

For i = 0 to UBound(fileNameArray)
    newImageArray(i) = i
Next

我怀疑你真正要找的是-

fileNameArray = split(imagesArray, ",")

Dim newImageArray
Redim newImageArray(uBound(fileNameArray))

For i = 0 to uBound(fileNameArray)
    newImageArray(i) = fileNameArray(i)
Next
于 2013-09-17T16:03:48.997 回答