Question

我有一个数字列表，格式如下例所示：

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

基本上，这是端口和端口间隔的集合。我想在一维数组中转换此列表，例如：

基本上，我想要一个列但重复的值，以保留有关列表中显示的数字频率的信息。

我最好在Excel或Python中这样做。

你有什么建议吗？

谢谢

Answer 1

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 2

Excel VBA解决方案如下，使用Chip Pearson出色的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 3

这是使用嵌套循环的另一个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 4

嗨，如果我想做同样的事情，除了字母数字值怎么办？

例如，我想将第一列中的值扩展到第二列中。

A411-A414
A4150-A4153
A4159
A4181
A4189
A419
A427
A5601-A5602
A5611
D65
D700-D704
D708-D709
D7289

Answer 5

您可以使用嵌套for循环：

a[x][y]

当然，如果这是一个文件，请使用

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

如何使用单个值中的连字符和逗号转换数字范围列表

5 个答案: