Как преобразовать список диапазонов чисел с дефисами и запятыми в отдельных значениях

Question

У меня есть список чисел, отформатированный как в примере ниже:

3074
88, 3074
1935, 3478-3480
3074, 3478-3479
27015-27030, 27036-27037
4380, 27000-27031, 27036

По сути, это набор портов и интервалов между портами. Я хотел бы преобразовать этот список в одномерный массив, например:

3074
88
3074
1935
3478
3479
3480
...

По сути, я хочу один столбец, но с повторяющимися значениями, чтобы сохранить информацию о частоте показа числа в списке.

Я бы хотел сделать это в Excel или Python.

Есть ли у вас какие-либо предложения?

Спасибо

Answer 1

Вот еще одно решение VBA, использующее вложенные циклы

Option Explicit
Sub convertToList()
    Dim r As Range, c As Range, v, w, x, vres
    Dim i As Long
    Dim col As Collection

'Data in column A
With ActiveSheet
    Set r = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With

Set col = New Collection
For Each c In r
    v = Split(c, ",")
    For Each w In v
        x = Split(w, "-")
            For i = x(LBound(x)) To x(UBound(x))
                col.Add i
            Next i
    Next w
Next c

ReDim vres(1 To col.Count, 1 To 1)
i = 0
For Each v In col
    i = i + 1
    vres(i, 1) = v
Next v

With r.Offset(0, 1).Resize(rowsize:=UBound(vres))
    .EntireColumn.Clear
    .Value = vres
    .EntireColumn.AutoFit
End With

End Sub

Answer 2

Решение Python.

data = """3074
88, 3074
1935, 3478-3480
3074, 3478-3479
27015-27030, 27036-27037
4380, 27000-27031, 27036"""
delimiters = "\n\r\t,"
for d in delimiters:
    data = data.replace(d, ' ')

lines = data.split(' ')
numbers = []
i = 0
for line in lines:
    if line == '':
        continue
    elif '-' in line:
        t = line.split('-')
        numbers += range(int(t[0]), int(t[1]) + 1)
    else:
        numbers.append(int(line))

Из: [3074, 88, 3074, 1935, 3478, 3479, 3480, 3074, 3478, 3479, 27015, 27016, 27017, 27018, 27019, 27020, 27021, 27022, 27023, 27024, 27025, 27026, 27027, 27028, 27029, 27030, 27036, 27037, 4380, 27000, 27001, 27002, 27003, 27004, 27005, 27006, 27007, 27008, 27009, 27010, 27011, 27012, 27013, 27014, 27015, 27016, 27017, 27018, 27019, 27020, 27021, 27022, 27023, 27024, 27025, 27026, 27027, 27028, 27029, 27030, 27031, 27036]

Answer 3

Решение Excel VBA, как показано ниже, с использованием фантастической функции Чипа Пирсона SplitEx.

Sub remove_spclChar()
Dim rng As Range, l As Variant, i As Long
Dim ctr As Long: ctr = 1
For Each rng In Range("A1:A6")
l = SplitEx(rng.Value, True, ",", "-")
For i = LBound(l) To UBound(l)
Range("B" & ctr).Value = l(i)
ctr = ctr + 1
 Next i
Next
 End Sub
 Function SplitEx(ByVal InString As String, IgnoreDoubleDelmiters As _
 Boolean, _
    ParamArray Delims() As Variant) As String()
 Dim Arr() As String
 Dim Ndx As Long
 Dim N As Long

If Len(InString) = 0 Then
    SplitEx = Arr
    Exit Function
End If
If IgnoreDoubleDelmiters = True Then
    For Ndx = LBound(Delims) To UBound(Delims)
        N = InStr(1, InString, Delims(Ndx) & Delims(Ndx), vbTextCompare)
        Do Until N = 0
            InString = Replace(InString, Delims(Ndx) & Delims(Ndx), _
            Delims(Ndx))
            N = InStr(1, InString, Delims(Ndx) & Delims(Ndx), _
            vbTextCompare)
        Loop
    Next Ndx
End If


ReDim Arr(1 To Len(InString))
For Ndx = LBound(Delims) To UBound(Delims)
    InString = Replace(InString, Delims(Ndx), Chr(1))
Next Ndx
Arr = Split(InString, Chr(1))
SplitEx = Arr
End Function

Answer 4

Вы можете использовать вложенный цикл for:

f = """
     3074
88, 3074
1935, 3478-3480
3074, 3478-3479
27015-27030, 27036-27037
4380, 27000-27031, 27036 """

l = []
for x in f.split('\n'):
    for y in x.split(','):
        l += [z.strip() for z in y.split('-')]

for x in l:
    print(x)
>>
3074
88
3074
1935
3478
3480
3074
3478
3479
27015
27030
27036
27037
4380
27000
27031
27036

Конечно, если это файл, используйте

with open("filename.txt") as f:
    l = []
    for row in f:
        for y in x.split(','):
            l += [z.strip() for z in y.split('-')]