Question

Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 0]' 该怎么改？？？急！！

代码：
Function getFromStr(playurl)
if isNul(playurl) then getFromStr="":Exit Function
dim playurlArray,playurlLen,i,span1,span2,urlstr:span1="$$$":span2="$$"
playurlArray=split(playurl,span1):playurlLen=ubound(playurlArray)
for i=0 to playurlLen
if i=playurlLen then urlstr=urlstr&split(playurlArray(i),span2)(0) else urlstr=urlstr&split(playurlArray(i),span2)(0)&"," 【错误代码行】
next
getFromStr=urlstr
End Function

Answer 1

下标越界: '[number: 0]' 的错误，你需要检查下：

playurlArray=split(playurl,span1) 这句代码是不是正确分割开字符串并返回数组

playurlLen=ubound(playurlArray) 检查playurlLen的值是不是得到预想中的正确结果