asp 怎么写 对比两个数组 有相同的就清除掉 ？

[xidae1005]

asp 怎么写 对比两个数组 有相同的就清除掉 ？

列：

arra="15,19,210,22,45,6,55"

arrb="368,111,20,501,22,66,90,55,10"

'比较2个 相同的数字就清除掉 就是把不同的列出 ,区分的格式 用数组也行
'要的结果是： 15,19,210,45,6,368,111,20,501,66,90,10

2个变量里都出现过的话 清除掉

大虾帮忙 ，。

[wg5945]

var A = new List<int> { 1, 1, 2, 3, 4 };
            var B = new List<int> { 4, 5, 5, 6, 7 };
            var result = A.Union(B);

[hookee]

<%
arra = "15,19,210,22,45,6,55"
arrb = "368,111,20,501,22,66,90,55,10"

arra = Split(arra, ",")
arrb = Split(arrb, ",")
Set dic = CreateObject("Scripting.Dictionary")
For i = 0 To UBound(arra)
	If dic.Exists(arra(i)) Then
		dic.Remove arra(i)
	Else
		dic.Add arra(i), arra(i)
	End If
Next
For i = 0 To UBound(arrb)
	If dic.Exists(arrb(i)) Then
		dic.Remove arrb(i)
	Else
		dic.Add arrb(i), arrb(i)
	End If
Next
arr = dic.Items
Set dic = Nothing
Response.Write Join(arr, ",")
%>

[alan chen 1315333 qq]

如果只是获得一个字符串结果，hookee 的可以http://bbs.csdn.net/topics/再简短点

<%
dim a,b,ar,d,i
a = "15,19,210,22,45,6,55"
b = "368,111,20,501,22,66,90,55,10"
ar = split(a & "," & b, ",")
set d = CreateObject("Scripting.Dictionary")
For i = 0 to UBound(ar)
    If d.exists(ar(i)) Then
        d.remove ar(i)
    Else
        d.add ar(i), ar(i)
    End If
Next
ar = d.items
set d = nothing
response.write join(ar, ",")
%>

[程序混混]

最简单方法是遍历查询，以前写过，回头给你啊

[scscms太阳光]

dim arra,arrb,arr,str,i
arra = "15,19,210,22,45,6,55"
arrb = "368,111,20,501,22,66,90,55,10"

arr  = Split(arra,",") '转成数组
arra = ","&arra&","
str  = ","&arrb&","
For i=0 To UBound(arr)
	If InStr(str,","&arr(i)&",")<>0 Then
		str = Replace(str,","&arr(i)&",",",")
		arra = Replace(arra,","&arr(i)&",",",")
	End If
Next
Response.write Replace(arra&str,",,",",") '前后的,自行处理