地母深渊

　　写东西时突然想实现一个想法，然后就百度，找来找去没找到，只好自己写了。
　　其实就是一个查找一字符串在另一字符串中出现位置的函数，只是加了一个次数的判断，并非返回出现次数，而是返回你所指定的出现次数字符串所在的位置。

Function InStrC(ByVal string1, ByVal string2, ByVal string2_count)
	Dim i, count:count = 0

	For i = 1 To Len(string1)
		If Mid(string1, i, Len(string2)) = string2 Then count = count + 1
		InStrC = i
		If count = string2_count Then Exit For
	Next 'i
End Function

Response.Write InStrC("aaaaaaabcccddeeeeeeaaaffgggggg","a",9)	'得到21

Function InStrC(ByVal string1, ByVal string2, ByVal string2_count)<br/> Dim i, count:count = 0<br/><br/> For i = 1 To Len(string1)<br/> If Mid(string1, i, Len(string2)) = string2 Then count = count + 1<br/> InStrC = i<br/> If count = string2_count Then Exit For<br/> Next 'i<br/>End Function<br/><br/>Response.Write InStrC("aaaaaaabcccddeeeeeeaaaffgggggg","a",9) '得到21<br/>