SenFe

'********************************************************************************
'Function（公有）
'名称 ：	盛飞字符串截取函数
'作用 ：	按指定首尾字符串截取内容(本函数为从左向右截取)
'参数 ：	sContent ---- 被截取的内容
'	sStart ------ 首字符串
'	sOver ------- 尾字符串
'	iType ------- 类型（1：不包含首尾字符串；2：包含首尾字符串；3：包含首、不包含尾；4：不包含首、包含尾）
'********************************************************************************
Function SenFe_Cut(sContent, sStart, sOver, iType)
	Dim iStart, iOver
	iStart = InStr(sContent,sStart)
	iOver  = InStr(iStart+Len(sStar),sContent,sOver)
	If iStart>0 And iOver>0 Then
		Select Case iType
			Case 1 iStart = iStart+Len(sStart)
			Case 2 iOver  = iOver+Len(sOver)
			Case 4 iStart = iStart+Len(sStart):iOver = iOver+Len(sOver)
		End Select
		SenFe_Cut = Mid(sContent,iStart,iOver-iStart)
	Else
		SenFe_Cut = "没有找到您想要的内容，可能您设定的首尾字符串不存在！"
	End If
End Function