InStr扩展函数，能显示第N次出现的位置

guqianfeng

写软件过程中发现InStr函数无法找出第N次出现的位置，因此自己写了一个函数，与大家分享。

Private Function InStrN(Str1 As String, Str2 As String, N As Integer) As Integer

'此函数扩展了InStr函数，可以返回STR2在STR1中第N次出现的位置；

'如果STR2在STR1中没有，返回0；

'如果N超过STR2在STR1中出现的次数，返回-1；

'

    Dim a, k As Integer

    a = 0

    k = 0

    Do While (InStr(a + 1, Str1, Str2) <> 0 And k <> N)

        a = InStr(a + 1, Str1, Str2)

        k = k + 1

    Loop

    If k < N And k <> 0 Then

        InStrN = -1

    Else

        InStrN = a

    End If

End Function

示例文件见附件

lxing20

不见附件?

lymin

学习一下