返回某字符串在另一字符串中第N次出现的位置。

原创于 2006-10-14 15:57:00 发布 · 1.7k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#function

asp开发专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个VBA自定义函数newInstr，用于返回指定子字符串在目标字符串中第N次出现的位置。该函数通过遍历目标字符串并检查子字符串出现次数来实现这一功能。示例展示了如何使用此函数定位特定子字符串首次出现的位置。

部署运行你感兴趣的模型镜像

'返回某字符串在另一字符串中第N次出现的位置。
Function newInstr(str1,str2,j)
      newInstr = -1
      Dim i : i = 0 : Dim k : k = 0
      For i = 1 to Len(str1)
            strTemp = Mid(str1,i,Len(str2))
            If strTemp = str2 Then
                  k = k + 1
                  If k = j Then
                        newInstr = i
                        Exit For
                  End if
            End if
      Next
End Function

';调用：newInstr("abcdcabcdcabcdeadfacdc","cdc",1)

您可能感兴趣的与本文相关的镜像