这样？： Dim x AS String Dim x1 AS String = "AA,AA" x1 = x1.ToLower() Dim x2 As String = "BB" x2 = x2.ToLower() Dim x3 AS String = "CC,BB,AA,BB,CC" x3 = x3.ToLower() Dim x4 AS String = x1 & "," & x3 Dim values1() As String values1 = x4.split(",") For Index As Integer = 0 To Values1.Length - 1 If values1(Index).Contains(x2) Then x = x & values1(Index) & "," End If Next output.show(x.trim(","))
加好友 
发短信
Post By：2010/9/20 17:59:00 [显示全部帖子]
