求一段源码，请各位帮忙。

Question

我想在一段字符串里找出包含那些数字，
这段字符串我已经限定了只有 数字 和 "-" "，"
其中 "-" 表示从一个数字到另一个数字。","表示一个数字和另一个数字。
例如：1-5，9，13 就是 1 2 3 4 5 9 13我用循环写了一下，比较繁琐。各位大大有没有好的算法？最好是正则表达式。谢了。另外，恳请提供一个学习正则表达式的好去处。

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Dim arrData() As String
    Dim arrTemp() As String
    Dim i As Integer
    Dim j As Integer
    
    Const s As String = "1-5,9,13"
    Me.AutoRedraw = True
    arrData = Split(s, ",")
    For i = 0 To UBound(arrData)
        If InStr(arrData(i), "-") > 0 Then
            arrTemp = Split(arrData(i), "-")
            For j = arrTemp(LBound(arrTemp)) To arrTemp(UBound(arrTemp))
                Print j
            Next
        Else
            Print arrData(i)
        End If
    Next
End Sub