比如说 abcdefg hi!
变成
array(0) a
array(1) b
...
array(7) 空格
<%str="abcdefg hi!"
dim array1
strlen=len(str)
redim array1(strlen)
do while strlen>0
array1(strlen)=right(str,1)
str=left(str,strlen-1)
strlen=len(str)
loop
for i=1 to ubound(array1)
response.write array1(i)&"<br>"
next%>
dim array1
strlen=len(str)
redim array1(strlen)
do while strlen>0
array1(strlen)=right(str,1)
str=left(str,strlen-1)
strlen=len(str)
loop
for i=1 to ubound(array1)
response.write array1(i)&"<br>"
next%>
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-06-20
<%str="abcdefg
hi!"
dim
array1
strlen=len(str)
redim
array1(strlen)
do
while
strlen>0
array1(strlen)=right(str,1)
str=left(str,strlen-1)
strlen=len(str)
loop
for
i=1
to
ubound(array1)
response.write
array1(i)&"<br>"
next%>
hi!"
dim
array1
strlen=len(str)
redim
array1(strlen)
do
while
strlen>0
array1(strlen)=right(str,1)
str=left(str,strlen-1)
strlen=len(str)
loop
for
i=1
to
ubound(array1)
response.write
array1(i)&"<br>"
next%>
