-
"函数名: getpaing
"作用: 获取分页
-
functiongetPaing (byvalconstra, startstrust, oversstr, inclul, inclur)
ifcstorst = "$ false $" orconstr = "" orstartstr = "" orooverstr = "" orisnull (conr) = trueorisnull (startstr) = trueorisnull (overstr) = truethen
getPaing = "$ false $"
exitfunction
endif
Dimstart, Over, Contimplate, TempStr
TempStr = lcase (const)
startString = lcase (startstrust)
overstr = lcase (oversstr)
over = เครื่องมือ (1, tempstr, overstr)
ifover <= 0 แล้ว
getPaing = "$ false $"
exitfunction
อื่น
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 $"
exitfunction
endif
Mid (const, เริ่มต้น, over-start)
ตัดแต่งร่วมสมัย (ร่วมสมัย)
contemper = แทนที่ (ร่วมสมัย "" ")
แทนที่ร่วมสมัย (ร่วมสมัย "," "")
การแทนที่ร่วมกัน (ร่วมสมัย "" ")
Contembor = แทนที่ (ร่วมสมัย "" "" ")
contemper = แทนที่ (ร่วมสมัย ">" "")
contemper = แทนที่ (ร่วมสมัย "<" "")
contemper = แทนที่ (ร่วมสมัย "" ")
getPaing = ร่วมสมัย
endfunction