28,406
社区成员
发帖
与我相关
我的任务
分享
<%
n1 = "12,13,14,15,16,17"
n2 = "12,14,18,19,20"
a = Split(n1, ",")
Set dic = CreateObject("Scripting.Dictionary")
For k=0 To UBound(a)
If a(k)<> "" Then dic.Add "_" & a(k), a(k)
Next
a = Split(n2, ",")
For k=0 To UBound(a)
If a(k)<> "" Then
If dic.Exists("_" & a(k)) Then
dic.Remove "_" & a(k)
End If
End If
Next
items = dic.Items()
Set dic = Nothing
Response.Write "最后得到: " & Join(items, ",")
%>
a="12,13,14,15,16,17"
a = "," & a & ","
b="12,14,18,19,20"
br = Split(b,",")
For i=0 To UBound(br)
a = Replace(a, "," & br(i) & ",",",")
Next
a = Replace("," & a & ",",",,","")
'新的数组 ar
ar = Split(a,",")