'=================================================
"函数名: getpaing
"作用: 获取分页
'=================================================
FunctionGetPaing (Byvalconstra ، StartStrust ، Offststr ، inmul ، remulur)
ifcstorst = "$ false $" orconstr = "" orstartstr = "" orooverstr = "" orisnull (conr) = trueorisnull (startstr) = trueorisnull (overstr) = truethen
getPaing = "$ false $"
exitfunction
Endif
DimStart ، أكثر ، تفكر ، tempstr
tempstr = lace (const)
startString = lace (startstrust)
Overstr = lace (overststr)
Over = أداة (1 ، tempstr ، overstr)
Ifover <= 0then
getPaing = "$ false $"
exitfunction
آخر
ifinclur = truethen
Over = Over + Len (Overstr)
Endif
Endif
TempStrstr = Mid (Tempster ، 1 ، أكثر)
start = instrev (tempstr ، startStr)
ifinclul = falsethen
ابدأ = ابدأ + لين (ابدأ)
Endif
ifstart <= 0orstart> = Overthen
getPaing = "$ false $"
exitfunction
Endif
منتصف (const ، ابدأ ، مبالغ فيه)
تقليم معاصرة (معاصرة)
Contemper = استبدال (معاصر "" "")
استبدال المعاصر (المعاصر "،" "")
استبدال المعاصرة (المعاصر "" "")
contembor = استبدال (المعاصر "" "" "" ")
Contemper = استبدال (معاصر ">" "")
Contemper = استبدال (معاصر "<" "")
Contemper = استبدال (معاصر "" "")
getPaing = معاصر
الوظيفية