您正在使用IPV4(34.204.180.223)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】618云上GO!云服务器限时秒杀,1核2G首年95元!       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 建军节 3
2021年 七夕节 16
2022年 元 旦 156
2022年 春 节 187
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP >> 内容
    ASP截取采集网页指定内容函数
    内容摘要: ASP采集程序中的字符串截取函数,功能比较多,可指定截取范围,你只需要自定义开始字符串、结束字符串即可,另还还可指定截取的字符串中是否包含开始字符串和结束字符串。ASP截取采集网页指定内容函数参数说明ConStr ------将要截取的字符串StartStr ------开始字符串OverStr ------结束字符串IncluL ------是否包含Sta......
    ASP采集程序中的字符串截取函数,功能比较多,可指定截取范围,你只需要自定义开始字符串、结束字符串即可,另还还可指定截取的字符串中是否包含开始字符串和结束字符串。


    ASP截取采集网页指定内容函数参数说明

    ConStr ------将要截取的字符串


    StartStr ------开始字符串


    OverStr ------结束字符串


    IncluL ------是否包含


    StartStrIncluR ------是否包含OverStr


    ASP截取采集网页指定内容函数

    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

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:ASP根据自定义名称生成目录的程序 下一篇:ASP常用函数:CheckBoxScript()
    发布日期:2021/7/11
    手机扫二维码直达本页
    发布时间:10:39:19
    点击:196
    录入:齐天大圣
    相关文章
    Baidu

    YiJiaCMS V5.9 Build 21.7.20(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021