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,530"
Dim desArr() As String
desArr= des.Split(",")
For Index As Integer = 0 To desArr.Length - 1
If des1.Contains(desArr(Index)) Then
If des1.Chars(des1.IndexOf(desArr(Index))+desArr(Index).Length)="," Then
des1 = des1.Remove(des1.IndexOf(desArr(Index)),desArr(Index).Length+1)
Else
des1 = des1.Remove(des1.IndexOf(desArr(Index)),desArr(Index).Length)
End If
End If
Next
Output.Show(des1)
加好友 
发短信
Post By：2014/11/21 13:57:00 [显示全部帖子]
