根据条件将零件分隔成一个字符串

问题描述 投票:-4回答:1

我想从一个字符串中分离单打,双打和三元组。

例如(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)

excel vba
1个回答
0
投票
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
© www.soinside.com 2019 - 2024. All rights reserved.