'=================================================
"函数名: getpaing
"作用: 获取分页
'=================================================
Functiongetpaing (byValconstra, startstrust, Oversstr, inclul, inclur)
IFCSTORST = "$ False $" orconstr = "" Orstartstr = "" OrOoverstr = "" Orisnull (Conr) = Trueorisnull (Startstr) = Trueorisnull (Overstr) = TrueThen
Getpaing = "$ False $"
Exitfunction
Endif
Dimstart, Over, Contemplate, Tempstr
Tempstr = lcase (const)
Startstring = LCASE (Startstrust)
Overstr = lcase (Oversstr)
Over = instrument (1, tempstr, overstr)
IFOVER <= 0then
Getpaing = "$ False $"
Exitfunction
Else
Ifinclur = truethen
Over = over + len (overstr)
Endif
Endif
Tempstrstr = mid (tempstr, 1, over)
Start = instrrev (tempstr, startstr)
Ifinclul = Falsethen
Start = Start + Len (Startstrust)
Endif
Ifstart <= 0Orstart> = Overthen
Getpaing = "$ False $"
Exitfunction
Endif
Mid (Const, Start, Over-Start)
Contemporarily Trim (Contemporary)
CONTEMPER = Replace (Contemporary "" "")
Contemporary replace (contemporary "," "")
Contemporeal Replace (contemporary "" "")
CONTEMBOR = Replace (contemporary "" "" "")
CONTEMPER = Replace (contemporary ">" "")
CONTEMPER = Replace (contemporary "<" "")
CONTEMPER = Replace (Contemporary "" "")
Getpaing = contemporary
Endfunction