'================================================== '函数名：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