traversingtxt.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 23 行

<%
Dim TraveRsingTxtNumber
TraveRsingTxtNumber = 1
FunCtion TraveRsingTxt(Nu,Text,Txt)
	TraveRsingTxtNumbers = Instr(Nu,Text,Txt)
	If TraveRsingTxtNumbers>1 Then
		TraveRsingTxt = Mid(Text,TraveRsingTxtNumber,TraveRsingTxtNumbers-TraveRsingTxtNumber)
		TraveRsingTxtNumber = TraveRsingTxtNumbers + 1
	Else
		TraveRsingTxt = Mid(Text,Instrrev(Text,Txt)+1)
		TraveRsingTxtNumbers = 0
	End If
End FunCtion

FunCtion TraveRsingTxts(Nu,Text,Txt)
	StartI = Instr(Nu,Text,Txt)
	If StartI>1 Then
		TraveRsingTxts = TraveRsingTxts + 1 + TraveRsingTxts(StartI+1,Text,Txt)
	Else
		TraveRsingTxts = TraveRsingTxts + 1
	End If
End FunCtion
%>