gpt4 book ai didi

GetBody asp实现截取字符串的代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 28 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章GetBody asp实现截取字符串的代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

  1. '==================================================  
  2. '函数名:GetBody  
  3. '作  用:截取字符串  
  4. '参  数:ConStr ------将要截取的字符串  
  5. '参  数:StartStr ------开始字符串  
  6. '参  数:OverStr ------结束字符串  
  7. '参  数:IncluL ------是否包含StartStr  
  8. '参  数:IncluR ------是否包含OverStr  
  9. '==================================================  
  10. Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)  
  11.    If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then  
  12.       GetBody="$False$"  
  13.       Exit Function  
  14.    End If  
  15.    Dim ConStrTemp  
  16.    Dim Start,Over  
  17.    ConStrTemp=Lcase(ConStr)  
  18.    StartStr=Lcase(StartStr)  
  19.    OverStr=Lcase(OverStr)  
  20.    Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)  
  21.    If Start<=0 then  
  22.       GetBody="$False$"  
  23.       Exit Function  
  24.    Else  
  25.       If IncluL=False Then  
  26.          Start=Start+LenB(StartStr)  
  27.       End If  
  28.    End If  
  29.    Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)  
  30.    If Over<=0 Or Over<=Start then  
  31.       GetBody="$False$"  
  32.       Exit Function  
  33.    Else  
  34.       If IncluR=True Then  
  35.          Over=Over+LenB(OverStr)  
  36.       End If  
  37.    End If  
  38.    GetBody=MidB(ConStr,Start,Over-Start)  
  39. End Function 

最后此篇关于GetBody asp实现截取字符串的代码的文章就讲到这里了,如果你想了解更多关于GetBody asp实现截取字符串的代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com