数组 删除 替换

stra="123,A|234,B|455,C|567,D "
arrya=split(stra,"|")
stra=""
delstr="455,C"
for i=0 to ubound(arrya)
if arrya(i)<>delstr then
if stra<>"" then
stra=stra & "|" & arrya(i)
else
stra=arrya(i)
end if
end if
next


上边的是删除等于指定值的一组，当然也可以指定删除第一个元素(注：第一个的下标是0 第n个下标是n-1)
stra="123,A|234,B|455,C|567,D "
arrya=split(stra,"|")
stra=""
delid=2
for i=0 to ubound(arrya)
if i<>delid-1 then
if stra<>"" then
stra=stra & "|" & arrya(i)
else
stra=arrya(i)
end if
end if
next