Dim s As String = "ueaa,bbbb,cc,dd,今天eee" Dim ss() As String = s.Split(",") Dim i1 = -1 Dim i2 = -1 For i As Integer = 0 To ss.Length - 1 If ss(i).Contains("c") Then '包含"c"字符的集合 i1 = i Exit For End If Next For i As Integer = 0 To ss.Length - 1 If ss(i).Contains("今天") Then '包含"今天"字符的集合 i2 = i Exit For End If Next For ii As Integer = i1+1 To i2-1 '显示两者之间的集合 Output.Show(ss(ii)) Next
|