我试图从一个字符串创建一个数组,但它不起作用,我想知道是否有人可以让我知道我哪里出错了。
字符串中可能有很多文件名,这是动态的
我的字符串如下:
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错误。
答案 0 :(得分: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