asp 怎么过过滤重复的单词

来源：百度知道 编辑：UC知道 时间：2024/06/16 23:59:41
例如aa bb aa ee cc aa dd ee ff多个单词组成的句子
我们查找有没重复的单词，然后输出：
aa bb ee cc dd ff
就是多个重复的单词只显示一个
经过研究自己已经解决了，把答案告诉大家免得走弯路
la_txt = "aa bb aa ee cc aa dd ee ff"
out_str = split(la_txt," ")
out_a = ""
lenI=0
For i = 0 To ubound(out_str)
if i=0 then
lenI=1
else
lenI=lenI+len(out_str(i-1))+1
end if
out_a = Replace(out_a, Mid(la_txt, lenI, len(out_str(i)))&" ", "") & Mid(la_txt, lenI, len(out_str(i)))&" "
Next
response.Write out_a

回答的不错，分数还是给你吧

我喜欢用栈的思路来解决...

public function inArray(arr_, val_)
dim i,rt : rt = -1
for i = 0 to Ubound(arr_)
if arr_(i) = val_ then
rt = i
exit for
end if
next
inArray = rt
end function

public function ArrayPush(arr_, ByVal val_)
dim i,n,tmp
n = Ubound(arr_)
tmp = arr_
redim preserve tmp(n+1)
tmp(n+1) = val_
arr_ = tmp
ArrayPush = n+1
end function

a = split("aa bb aa bb ee cc aa dd ee ff"," ")
b = Array()
for i = 0 to ubound(a)
if inArray(b,a(i)) = -1 then call ArrayPush(b,a(i))
next

Response.Write Join(b," ")