又开始校园生活了，心情很不错。送大家两个函数，大家也开开心！
Function CountIn(sText,sFind)
'判断某一字符串在某字符串出现多少次
Dim iCount,iPos
If Len(sFind) > 0 Then
iPos = 1
Do
iPos = InStr(iPos, sText, sFind)
If iPos > 0 Then
iCount = iCount + 1
iPos = iPos + Len(sFind)
End If
Loop While iPos > 0
Else
iCount = 0
End If
CountIn = iCount
End Function
Function CountTime(sText,sFind,iTime)
'判断某一字符串在某字符串中第N次出现的位置
Dim iCount,iPos
If Len(sFind) > 0 Then
iPos = 1
for icount=1 to iTime
iPos = InStr(iPos, sText, sFind)
iPos = iPos + Len(sFind)
next
Else
iPos = 0
End If
CountTime = iPos-1
End Function
---------------------------------------------------------------
恭喜你了，接分哈哈
---------------------------------------------------------------
谢谢～～
---------------------------------------------------------------
好东西，谢谢！！！
---------------------------------------------------------------
我接，谢谢了。能问一句你是学什么的吗？
---------------------------------------------------------------
谢谢,接分
---------------------------------------------------------------
谢谢,接分
---------------------------------------------------------------
谢了1
---------------------------------------------------------------
good.
---------------------------------------------------------------
接
---------------------------------------------------------------
1<script language="vbs">
2Function CountIn(sText,sFind)
3'判断某一字符串在某字符串出现多少次
4Dim iCount
5iCount = 0
6If Len(sFind) > 0 Then iCount=Ubound(split(sText,sFind))
7CountIn = iCount
8End Function
9
10Function CountTime(sText,sFind,iTime)
11'判断某一字符串在某字符串中第N次出现的位置
12Dim iCount,aTemp,iPos,i
13iPos=-1
14If Len(sFind) > 0 and iTime>0 Then
15aTemp=split(sText,sFind)
16if iTime<=Ubound(aTemp) Then
17for i=0 to iTime-1
18iPos= iPos + Len(aTemp(i)) + Len(sFind)
19next
20iPos = iPos - Len(sFind) + 1
21End if
22End If
23CountTime = iPos
24End Function
25s="dddaaalll222aaa,,,aaa"
26for i=1 to CountIn(s,"aaa")
27msgbox CountTime(s,"aaa",i)
28next
29</script>
---------------------------------------------------------------
上学真好呀，顺便接分 ^-^
---------------------------------------------------------------
没来晚吧！？
---------------------------------------------------------------
恭喜！
---------------------------------------------------------------
good
---------------------------------------------------------------
上学真好，羡慕呀
---------------------------------------------------------------
接分
---------------------------------------------------------------
接分～：）
---------------------------------------------------------------
第二种
1<script language="vbs">
2Function CountIn(sText,sFind)
3'判断某一字符串在某字符串出现多少次
4Dim iCount
5iCount = 0
6If Len(sFind) > 0 Then iCount=(len(sText)-len(replace(sText,sFind,"")))/Len(sFind)
7CountIn = iCount
8End Function
9
10Function CountTime(sText,sFind,iTime)
11'判断某一字符串在某字符串中第N次出现的位置
12Dim iCount,aTemp,iPos,i
13iPos=-1
14If Len(sFind) > 0 and iTime>0 Then
15iPos=iPos+Instr(replace(sText,sFind,"",1,iTime-1),sFind)+(iTime-1)*Len(sFind)
16End If
17CountTime = iPos
18End Function
19s="dddaaalll222aaa,,,aaa"
20for i=1 to CountIn(s,"aaa")
21msgbox CountTime(s,"aaa",i)
22next
23</script>
---------------------------------------------------------------
请问阁下在哪高就？？小弟请教了！
---------------------------------------------------------------
真怀恋那段日子啊
哈哈
---------------------------------------------------------------
心情也不错！
---------------------------------------------------------------
接~~~
收~~~
---------------------------------------------------------------
我也要分
---------------------------------------------------------------
心情很烦，不过看你心情这么好，我也凑凑热闹吧
---------------------------------------------------------------
thank you!
---------------------------------------------------------------
收藏!!!
---------------------------------------------------------------
good!
---------------------------------------------------------------
thanks
i want to the points
---------------------------------------------------------------
收藏。
---------------------------------------------------------------
我也来了
---------------------------------------------------------------
COPY 谢谢
---------------------------------------------------------------
来！我的分儿~~~~~~~~~~~
---------------------------------------------------------------
收藏，thank you!
---------------------------------------------------------------
好，鼓励一下！
---------------------------------------------------------------
我也接分
thx:)
---------------------------------------------------------------
沒來晚吧！接分！我很煩的，看你這麼開心，有分接我也心情好一點！
---------------------------------------------------------------
多谢了！高手啊：）
---------------------------------------------------------------
函数不错，分儿更不错，我喜欢！！！
---------------------------------------------------------------
hehe,学校好呀，现在好烦呀
---------------------------------------------------------------
我也要
---------------------------------------------------------------
up!!!
---------------------------------------------------------------
都这么多人了么，来晚了
---------------------------------------------------------------
有时看到这种气氛，心情也会随着舒畅一些！
---------------------------------------------------------------
3Q.谢谢
---------------------------------------------------------------
thank you
---------------------------------------------------------------
接分
---------------------------------------------------------------
hehe,有意思
---------------------------------------------------------------
接分了：）
---------------------------------------------------------------
接分~~~~~~
---------------------------------------------------------------
接分
---------------------------------------------------------------
我也借分
---------------------------------------------------------------
我也接分
---------------------------------------------------------------
好人那？
---------------------------------------------------------------
哈
---------------------------------------------------------------
接分
---------------------------------------------------------------
来吧！分而
---------------------------------------------------------------
不错啊，很值得学习!
---------------------------------------------------------------
恭喜恭喜！
---------------------------------------------------------------
分数好，程序更好,但也不能不要分，^_^
---------------------------------------------------------------
好 好 好， 接分
---------------------------------------------------------------
skyarrow(谁敢偷我的奶酪？！)：你好！
你的程序写得不错，我已收藏！希望今后能多多向你讨教！分嘛，我就不要了，没有道理吃了人家的包子还要拿点钱走。谢谢了！
有空与我联系，QQ：16294049
---------------------------------------------------------------
有分，心情就不错
---------------------------------------------------------------
skyarrow(谁敢偷我的奶酪？！)
你写的程序不错！你写程序写了多久了，我也想成为一个程序员。有时我们可以聊聊吗？我的QQ:22655223
---------------------------------------------------------------
谢谢。
---------------------------------------------------------------
祝你学业进步
天天都有好心情
程序写的不错
---------------------------------------------------------------
希望大家都不