GetBody aspʵÏÖ½ØÈ¡×Ö·û´®µÄ´úÂë

Ó¸ҵÄÐÄ

'==================================================
'º¯ÊýÃû£º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