此函数说类型不匹配 ，为什么， 望高手修改。

Question

function strToArray(str)

array_sum=len(str)

Dim arraymode()
redim arraymode(array_sum)

for i=1 to array_sum
teststr=Mid(str,i,1)
arraymode[i-1]=teststr
next

strToArray=arraymode

end function
"abcdefg"
如上面字符串的每一个字符单独存在一个数组内.
array[0]="a"
array[1]="b"
如上.

Answer 1

VBScript 数组用 () 指明下标,不是 []Function strToArray(str)Dim arr, L, iL = Len(str)ReDim arr(L-1)For i=1 To Larr(i-1) = Mid(str, i, 1)NextstrToArray = arrEnd FunctionDim aa = strToArray("abcdefg")Response.Write a(0)Response.Write "<br />"Response.Write a(6)

Answer 2

function strToArray(str)array_sum=len(str)Dim arraymode()redim arraymode(array_sum)for i=1 to array_sumteststr=mid(str,i,1)arraymode(i-1)=teststrnextstrToArray=arraymodeend functionarraymode[i-1]中括号换成圆括号试试