2.8w+
社区成员
- 主页
VBSCRIPT数组问题？
我数组里有很多相同的值， 我想把这些相同的值变唯一
比如
（中国，中国，中国，英国，英国）-> (中国，英国）
先谢谢了！
比如
（中国，中国，中国，英国，英国）-> (中国，英国）
先谢谢了！
...全文
请发表友善的回复…
发表回复
若白师妹 2004-04-02
sorry,上面的不完整,要是str="中國,中國,中國,美國,美國,美國,英國,英國,英國,中國,中國"就會出現 中國,美國,英國,中國,
這個對了
<%
str="中國,中國,中國,美國,美國,美國,英國,英國,英國,中國,中國"
tmp=split(str,",")
str1=""
for i=0 to ubound(tmp)
if instr(str1,tmp(i))=0 then
str1=str1&tmp(i)&","
end if
next
response.write str1%>
這個對了
<%
str="中國,中國,中國,美國,美國,美國,英國,英國,英國,中國,中國"
tmp=split(str,",")
str1=""
for i=0 to ubound(tmp)
if instr(str1,tmp(i))=0 then
str1=str1&tmp(i)&","
end if
next
response.write str1%>
jinhaiou 2004-04-02
用替代涵数循环
若白师妹 2004-04-02
先把數組拆,然後比較重組
<%
str="中国，中国，中国，英国，英国"
tmp=split(str,",")
tmp1=""
for i=0 to ubound(tmp)
if tmp(i)<>tmp1 then
str1=str1&tmp(i)&","
end if
tmp1=tmp(i)
next
response.write str1%>
<%
str="中国，中国，中国，英国，英国"
tmp=split(str,",")
tmp1=""
for i=0 to ubound(tmp)
if tmp(i)<>tmp1 then
str1=str1&tmp(i)&","
end if
tmp1=tmp(i)
next
response.write str1%>