GetBodyasp实现截取字符串的代码
代码 实现 字符串 截取
2023-06-13 09:13:57 时间
"==================================================
"函数名:GetBody
"作 用:截取字符串
"参 数:ConStr ------将要截取的字符串
"参 数:StartStr ------开始字符串
"参 数:OverStr ------结束字符串
"参 数:IncluL ------是否包含StartStr
"参 数:IncluR ------是否包含OverStr
"==================================================
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
"函数名:GetBody
"作 用:截取字符串
"参 数:ConStr ------将要截取的字符串
"参 数:StartStr ------开始字符串
"参 数:OverStr ------结束字符串
"参 数:IncluL ------是否包含StartStr
"参 数:IncluR ------是否包含OverStr
"==================================================
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
相关文章
- Jenkins + Gitee 实现代码自动化构建 (超级详细)
- 【shadertoy】丧心病狂1400行代码纯ps实现的超级玛丽第一关
- 实战:常见的延时队列解决方案及代码实现,真的很全:MQ、Redis、JDK队列、Netty时间轮~
- 一行js代码实现字符串加密解密
- Java实现倒计时代码详解编程语言
- FSO遍历目录实现全站插马的代码
- php实现的简单压缩英文字符串的代码
- javascript下搜索子字符串的的实现代码(脚本之家修正版)
- php购物车实现代码
- android手机获取gps和基站的经纬度地址实现代码
- JQuery拖拽元素改变大小尺寸实现代码
- pythoncookielib登录人人网的实现代码
- 通过正则格式化url查询字符串实现代码
- Raphael带文本标签可拖动的图形实现代码
- asp.net网站底部的版权信息实现代码且可维护
- 用c语言根据可变参数合成字符串的实现代码
- 用C++实现一个链式栈的实例代码
- php删除字符串末尾子字符,删除开始字符,删除两端字符(实现代码)
- 二叉树遍历非递归C++实现代码
- Asp.Net中的字符串和HTML十进制编码转换实现代码