'==================================================
"函数名: Getpaing
"作用: 获取分页
'==================================================
FunctionGetPaing (ByValconstrA, StartStrust, Oversstr, Inclul, Inclui)
Ifcstorst = "$ false $" orconstr = "" orstartstr = "" orooverstr = "" orisnull (conr) = trueorisnull (startstr) = trueorisnull (overstr) = truethen
Getpaing = "$ false $"
Saída de saída
Endif
Dimstart, acima, contemplar, tempstr
Tempstr = lcase (const)
StartString = lcase (startStrust)
Overstr = lcase (overstst)
Over = Instrument (1, Tempstr, Overstr)
Ever <= 0then
Getpaing = "$ false $"
Saída de saída
Outro
Ifinclur = Truethen
Over = over + Len (Overstr)
Endif
Endif
Tempstrstr = MID (Tempstr, 1, over)
Start = Instrrev (tempstr, startstr)
Ifinclul = falseten
Start = start + len (startstrust)
Endif
Ifstart <= 0orstart> =
Getpaing = "$ false $"
Saída de saída
Endif
MID (const, start, excesso de partida)
Contemporânea TRIM (Contemporary)
Contemper = Substituir (contemporâneo "" "
Substituição contemporânea (contemporânea "," "")
Substituição contemporânea (contemporânea "" ")
Contembor = substituir (contemporâneo "" "" "
Contemper = substituir (contemporâneo ">" "")
Contemper = substituir (contemporâneo "<" "")
Contemper = Substituir (contemporâneo "" "
Getpaing = contemporâneo
Função final