标题: 如何判断某字符串在另一个字符串中第几次出现的位置 [打印本页] 作者: ＂Ｍy!ove-、 时间: 2010-1-7 01:05 标题: 如何判断某字符串在另一个字符串中第几次出现的位置 如何判断某字符串在另一个字符串中 某(自己设置) 次出现的位置作者: ⿴°愛丶°牠 时间: 2010-1-7 01:05
<%
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 时间: 2010-1-7 01:05
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))