'============================================================================
"函数名: GetPaing
"作用: 获取分页
'============================================================================
FunctiongetPaing (byvalconstra, startstrust, upper, inclul, inculur)
Ifcstorst = "$ false $" orconstr = "" orstartstr = "" orooverstr = "" orisnull (conr) = trueorisnull (startstr) = trueorisnull (Overstr) = truethen
GetPaing = "$ false $"
Выходная функция
Эндиф
DimStart, Over, созерцание, Tempstr
Tempstr = lcase (const)
StartString = lcase (startStrust)
Overstr = lcase (Oversstr)
Over = инструмент (1, Tempstr, Overstr)
Ifover <= 0then
GetPaing = "$ false $"
Выходная функция
Еще
Ifinclur = truethen
Over = Over + Len (Overstr)
Эндиф
Эндиф
Tempstrstr = mid (tempstr, 1, Over)
Start = instrrev (tempstr, startstr)
Ifinclul = falsethen
Start = start + len (startStrust)
Эндиф
IfStart <= 0orstart> = Overthen
GetPaing = "$ false $"
Выходная функция
Эндиф
Середина (const, start, over-bart)
Современно обрезать (современный)
Contemper = replace (современный "" "")
Современная замена (современная »," "")
Современная замена (современная "" "")
Contembor = reply (современный "" "" "" ")
Contemper = replace (современный ">" "")
Contemper = replace (современный "<" "" ")
Contemper = replace (современный "" "")
GetPaing = современный
Конечная функция