Dim des As String = "1,2,1,1,1,1,1,1,3,53,53,53,53,53,5,5,56,7"
Dim des1 As String = "1,2,1,1,1,1,1,1,3,53,53,53,53,53,5,5,56,7,666"
Dim List1 As new List(of String)
Dim List2 As new List(of String)
List1.AddRange(des.split(","))
List2.AddRange(des1.split(","))
For i As Integer = List1.count-1 To 0 Step -1
If List2.Contains(List1(i)) Then
List2.Remove(List1(i))
List1.Remove(List1(i))
End If
Next
Dim List3 As new List(of String)
List3.AddRange(List1.ToArray())
List3.AddRange(List2.ToArray())
For Each s As String In List3
output.show(s)
Next
[此贴子已经被作者于2014-11-21 14:36:53编辑过]
加好友 
发短信
Post By：2014/11/21 14:23:00 [显示全部帖子]
