【求助】把一个字符中按照特定标记拆成多个字符并输出

[etzzycn]

在一个字符中我用逗号隔开了关键字。现在希望通过一段程序可以把这些用逗号隔开的关键字都取出来。我做了个但是运行不了，希望大家帮忙看看

<%
dim charend
charend =instr(charall,",")'起始位置
dim charall'全部字符
charall="进行,开始,最哈偶,才来的"
do while charend <> 0
charend =instr(charall,",")
response.Write(mid(charall,1,charend-1))
charall=mid(charall,charend+1)
response.Write(charall)
loop
response.Write("over")
%>

[etzzycn]

感谢！那我写的那个错在那里了？你不告诉我，我永远没提高的。

[YUYAO2]

<%
Dim charend
Dim charall

charall = "进行,开始,最哈偶,才来的"
charend = InStr(charall, ",") '起始位置
Do While charend <> 0
response.write(Mid(charall, 1, charend - 1))
charall = Mid(charall, charend + 1)
charend = InStr(charall, ",")
response.write charall
Loop
response.write "over"
%>
改成这样
不过还是用split和ubound方便

[Lee2K]

使用split与UBound的配套更能更好的处理字符串/

a1=Split(a,",")
将a字符串以逗号分割，所有分割结果存入数组a1中。
ubound(a1) 获取a1数组的最大下角值，即最大元素数-1

[etzzycn]

我刚刚开始学这东西。你说的命令我还没见过那。

我去学习一下，另外也希望你能告诉我我自己写的错在那里了。感谢！！

[zhuyongzhao]

dim value,charall
charall="进行,开始,最哈偶,才来的"
value=split(charall,",")
for i=0 to ubound(value)
response.write "value["&i&"]="&value(i)&""
response.write "<br/>"

next

[etzzycn]

非常感谢各位！我第一次来这个地方，原来有不会的问题都是google。从搜索结果看一般都是这里的问题！所以俺也注册了一个id泡在这里。

第一个发帖感谢大家的帮助。这里又让我想起了原来学电脑的时光。再次表示感谢