我们把函数名命名为GetMyContent

Function GetMyContent(ConStr,StartStr,OverStr,IncluL,IncluR)
	   If ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then '判断是不是空
	      GetContent="0"
	      Exit Function
	   End If
	   Dim ConStrTemp
	   Dim Start,Over
	   ConStrTemp=Lcase(ConStr)
	   StartStr=Lcase(StartStr)
	   OverStr=Lcase(OverStr)
	   Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)'判断是否包含
	   If Start<=0 then
	      GetMyContent= 0
	      Exit Function
	   Else
	      If IncluL=False Then
	         Start=Start+LenB(StartStr)
	      End If
	   End If
	   Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
	   If Over<=0 Or Over<=Start then
	      GetMyContent="无"
	      Exit Function
	   Else
	      If IncluR=True Then
	         Over=Over+LenB(OverStr)
	      End If
	   End If
	   GetMyContent=MidB(ConStr,Start,Over-Start)
	End Function

随机文章

Java基础第十二讲:面向对象基础(六)
Java基础第十二讲:面向对象基础(六)

sae-eclipse插件加新浪sae进行java项目开发
sae-eclipse插件加新浪sae进行java项目开发

“太阳能墨水”印在纸上就可以发电哦
“太阳能墨水”印在纸上就可以发电哦

U盘安装ubuntu linux, 重启后屏幕一直停留在Peter Anvin et al
U盘安装ubuntu linux, 重启后屏幕一直停留在Peter Anvin et al

浅析angular.identity
浅析angular.identity

windows下xampp的mysql中文乱码
windows下xampp的mysql中文乱码

相关文章

用微信免费查工商银行余额
用微信免费查工商银行余额

谷歌生日,9月27日?
谷歌生日,9月27日?

修改Eclipse ADT default debug keystore路径
修改Eclipse ADT default debug keystore路径

新浪微博纪念乔布斯,腾讯微博没有
新浪微博纪念乔布斯,腾讯微博没有

企业邮箱用户名太短的悲哀
企业邮箱用户名太短的悲哀

内容分享:道招
本文链接:asp获取指定网页指定内容的函数
道招声明:除特别标注或作者不详外,本站所有文章均为原创,转载请注明。欢迎共同关注互联网!