'===================================================
"函数名: getpaing
"作用: 获取分页
'===================================================
FunctetPaing (byvalconstra, startstrust, sobrepena, inclul, inclurado)
Ifcstorst = "$ false $" orconstr = "" orstartstr = "" ooverstr = "" orisNull (conr) = trueRisNull (startstr) = trueRisNull (overstr) = trueTen
Getpaing = "$ falso $"
Extinción
Endif
Dimstart, sobre, contemplar, temptr
Tempttr = lcase (const)
StartString = lcase (startstrust)
Overstr = lcase (sobrepena)
Over = Instrument (1, temptr, overstr)
Ifover <= 0then
Getpaing = "$ falso $"
Extinción
Demás
Ifincclur = Truethen
Over = Over + Len (Overstr)
Endif
Endif
Temptrtrstr = mid (tempttr, 1, over)
Start = instrrev (tempttr, startstr)
Ifincclul = falsethen
Inicio = inicio + len (startstrust)
Endif
IfStart <= 0orStart> = Overthen
Getpaing = "$ falso $"
Extinción
Endif
Mid (const, inicio, arranque en exceso)
Recorte contemporáneo (contemporáneo)
Contemper = reemplazar (contemporáneo "" "")
Reemplazo contemporáneo (contemporáneo "," "")
Reemplazo contemporáneo (contemporáneo "" "")
Contembor = reemplazar (contemporáneo "" "" ")
Contemper = reemplazar (contemporáneo ">" "")
Contemper = reemplazar (contemporáneo "<" "")
Contemper = reemplazar (contemporáneo "" "")
Getpaing = contemporáneo
Función final