同意 peijunfeng(爱缕缕)
在完善一下
<%
a="1,2,3,4,5,10,20,30,40,50"
b="1,3,5,10,30,50"
aArr = Split(a,",")
bArr = Split(b,",")
Dim Flag
For i = 0 To Ubound(aArr)
For j = 0 To Ubound(bArr)
Flag = True
'Response.Write bArr(i) & " " & aArr(j) & "<br>"
If bArr(j) = aArr(i) Then
Flag = False
Exit For
End If
Next
If Flag Then
c = c & aArr(i) & ","
End If
Next
c = Mid(c,1,Len(c)-1)
Response.Write c
%>
ubound加split函数将a和b分割为两个数组,例如得到数组aArr和bArr,然后比较,赋值给cArr
简要如下:
for i=0 to ubound(aArr)
iflag=0
for j=0 to ubound(bArr)
if aArr(i)=bArr(j) then
iflag=1
end if
next
if iflag<>1 then
cArr=cArr& aArr(i) & ","
end if
next