'==================================================
"函数名: getpaing
"作用: 获取分页
'==================================================
FunctionGetPaing (byvalconstra, startstrust, oversstr, inclul, inclur)
Ifcstorst = "$ false $" orconstr = "" orstartstr = "" orooverstr = "" orisnull (conr) = trueorisnull (startStr) = trueorisnull (overstr) = truethen
GetPaing = "$ false $"
Fungsi keluar
Endif
Dimstart, over, renov, Tempstr
Tempstr = lcase (const)
StartString = lcase (startStrust)
Overstr = LCase (oversstr)
Over = instrumen (1, tempstr, overstr)
Ifover <= 0then
GetPaing = "$ false $"
Fungsi keluar
Kalau tidak
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 $"
Fungsi keluar
Endif
Mid (const, start, overtart)
Trim secara kontemporer (kontemporer)
Contemper = ganti (kontemporer "" "")
Ganti Kontemporer (Kontemporer "," "")
Contemporeal Replace (kontemporer "" "")
Contempor = ganti (kontemporer "" "" "")
Contemper = ganti (kontemporer ">" "")
Contemper = ganti (kontemporer "<" "")
Contemper = ganti (kontemporer "" "")
Getpaing = kontemporer
Fungsi endfungsi