Question

asp 两个字符串比较 留下不同的

asp
两个 字符串

第一个 1|2|3|5|
第二个 1|2|5|7|3|
比较 去掉相同的字符
比较后只留下 7|
<%
ww="1|2|3|4|5|6|7|8|"
bb="2|4|7|8|"
mylist=split(bb,"|")
For i = LBound(mylist) To UBound(mylist)
ss=replace(ww,mylist(i),"")
next
response.Write(ss)
%>
错误在哪里

Answer 1

看了你的觉得没戏..就重写了 费了一番力气
<%
ww="1|2|3|4|5|6|7|8|"
bb="2|4|7|8|"

a=split(bb,"|")
b=split(ww,"|")

Set dic=CreateObject("Scripting.Dictionary")

For i = 0 To UBound(a)

If a(i)<>b(i) Then
dic.Add a(i),b(i)
end if

Next

c=dic.Items

d=dic.Keys

For i= 0 To UBound(c)

Response.Write c(i)

Next

觉得合适就加分哦 难度和0悬赏分差距不小

%>

Answer 2

<%
ww="1|2|3|4|5|6|7|8|"
bb="2|4|7|8|"
mylist=split(bb,"|")
ss=ww
For i = LBound(mylist) To UBound(mylist)
ss=replace(ss,mylist(i),"")
ss=Replace(ss,"||","|")
Next
response.Write(ss)
%>
错误出在，你每次都对ww进行了替换