'==============================================.
"函数名: Getpaing
"作用: 获取分页
'==============================================.
FunctionGetPaing (ByValConstra, StartStrust, Oversstr, Incul, Inclur)
Ifcstorst = "$ false $" oronstr = "" orstartstr = "" orooverstr = "" orisnull (conr) = trueOrisnull (startstr) = trueOrisnull (overstr) = truethen
GetPaing = "$ false $"
Sortie
Endire
Dimstart, over, contemplate, temptr
Temptr = LCase (const)
StartString = lCase (startStRust)
Overstr = LCase (OPERST)
Over = instrument (1, temptr, overstr)
Ifover <= 0Then
GetPaing = "$ false $"
Sortie
Autre
Ifinclur = truethen
Over = over + len (oversstr)
Endire
Endire
TEMPSTRSTR = MID (TEMPSTR, 1, Over)
Start = instrrev (Temptr, startstr)
IfinclUl = falsethhen
Start = start + len (startStRust)
Endire
IfStart <= 0ORSTART> = Overthen
GetPaing = "$ false $"
Sortie
Endire
Mid (const, start, sure-start)
Croix contemporain (contemporain)
Contemper = remplacer (contemporain "" "")
Remplacement contemporain (contemporain "," "")
Remplacement contemporain (contemporain "" "")
Contempor = remplacer (contemporain "" "" "")
Contemper = remplacer (contemporain ">" "")
Contemper = remplacer (contemporain "<" "")
Contemper = remplacer (contemporain "" "")
Getpaing = contemporain
Finition de fin