群里有人问了下，如何获取第若干个分隔符后的字符串。随手写了一段代码，供有需要的人使用。没有太复杂的东西，新手可以拿来练习下for语句的用法。另外，也可以用split来处理，不过考虑到split处理后，还要将剩下的数组元素重新join成一个字符串，感觉也挺麻烦的。

详细函数源码

'调用说明：

'call getText(strInput ,strSperator , lngNum)

'参数说明：

'strInput————————————————————输入字符串

'strSperator——————————————————分隔符

'lngNum—————————————————————第几个分隔符

'例如：

'getText("123456-123456-123-789-456", "-", 3)

'返回第三个分隔符（-）位置之后的字符串：789-456

Function getText(ByVal strInput As String, ByVal strSperator As String, ByVal lngNum As Long) As String

    Dim i As Long

    Dim k As Long

    Dim j As Long

    For i = 1 To Len(strInput)

        If Mid(strInput, i, 1) = strSperator Then

            k = k + 1

            If k = lngNum Then

                j = i

                Exit For

            End If

        End If

    Next

    If j > 0 Then

        getText = Mid(strInput, j + 1)

    Else

        MsgBox "没有符合要求的字符串"

        getText = ""

    End If

End Function