我想从一个字符串中分离单打,双打和三元组。
例如(2,3,4,5,6,7,8,9,10,11,12-14,15,16,17,18,19,20,21-22,23-25,26,27,28,28,28,28,28,28,28,28,28 ,29,30,31,32,33,34,35,36,37,38,39,40)
结果应该是
单打 - (2,3,4,5,6,7,8,9,17,18,19,20,26,27,28,29,30,31,32,33,34,35,36,37) ,38,39,40)
双打 - (10 - 11,15 - 16,21 - 22)
三联 - (12 - 14,23 - 25)
Sub x()
Dim s As String
Dim a() As String
Dim a2() As String
Dim v As Variant
Dim colSingles As New Collection
Dim colDoubles As New Collection
Dim colTriples As New Collection
s = "2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 - 11 , 12 - 14 , 15 - 16 , 17 , 18 , 19 , 20 , 21 - 22 , 23 - 25 , 26 , 27 , 28 , 29 , 30 , 31 , 32 , 33 , 34 , 35 , 36 , 37 , 38 , 39 , 40"
a = Split(s, ",")
For Each v In a
If InStr(1, v, "-") = 0 Then
colSingles.Add v, CStr(v)
Else
a2 = Split(v, "-")
If a2(1) - a2(0) = 1 Then
colDoubles.Add v, CStr(v)
Else
colTriples.Add v, CStr(v)
End If
End If
Next v
End Sub