您所在的位置:小祥子 » 编程 » ASP » 正文

ASP截取字符串函数

时间:2015-02-03 编辑:本站 来源:本站原创

分享一个采集与小偷程序最常用的截取字符串函。

使用方法

GetBody("要被截取的网页代码","从哪里开始","从哪里结束","是否包含开始代码True或False","是否包含结束")

比之前的截取网页的函数多了一个包含开始或者包含结束,稍微高级了点点。

Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
GetBody="$False$"
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
GetBody="$False$"
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
GetBody="$False$"
Exit Function
Else
If IncluR=True Then
Over=Over+LenB(OverStr)
End If
End If
GetBody=MidB(ConStr,Start,Over-Start)
End Function
 

关键词:截取 字符串 函数