如何判断某字符串在另一个字符串中第几次出现的位置

[复制链接]

＂Ｍy!ove-、

电梯直达

1^#

发表于 2010-1-7 01:05:36 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

如何判断某字符串在另一个字符串中某(自己设置) 次出现的位置

收藏0

使用道具举报

⿴°愛丶°牠

2^#

发表于 2010-1-7 01:05:39 | 只看该作者

<%
Function StrSite(Str,Word,TimesNo)
Dim Times,WordLen
Times = 0
WordLen = Len(Word)
For i = 1 To Len(Str)+1-WordLen
If Mid(Str,i,WordLen) = Word Then
Times = Times + 1
If Times = TimesNo Then Exit For
End If
Next
StrSite = i
End Function
%>
<%=StrSite("adfasdfasdfasdfasdfasdfasdfa","as",4)%>

返回16

回复支持反对

使用道具举报

1OOOO

3^#

发表于 2010-1-7 01:05:42 | 只看该作者

Rem 函数StrPlace用于检测一个字符串在另一个字符串中,某次出现的位置
Rem 参数说明：str为待检测的字符串;keyword为关键字符串;times为第N次数

Function StrPlace(str,keyword,times)
If str="" Or keyword="" Or times="" Then Exit Function
Dim i,n,l
n = Split(str,keyword)
l = UBound(n)
If l=0 Then Exit Function
If times>l Then Exit Function
'以上为判断参数的合法性
For i = 0 To times-1
StrPlace=StrPlace+Len(n(i))
Next
StrPlace=StrPlace+Len(keyword)*(times-1)+1
End Function
Response.Write(StrPlace("123981294312945312","12",3))

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册