'=======================================================
「函数名：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、Proutnplate、Tempstr
tempstr = lcase（const）
startString = lcase（startstrust）
Overstr = lCase（オーバーストール）
over = instrument（1、tempsstr、overstr）
ifover <= 0then
getPaing = "$ false $"
exitFunction
それ以外
ifinclur = truethen
オーバー=オーバー +レン（オーバーストール）
endif
endif
TempsstrStr = Mid（Tempstr、1、Over）
start = instrrev（tempstr、startstr）
ifinclul = falsethen
start = start + len（startstrust）
endif
ifstart <= 0orstart> = overthen
getPaing = "$ false $"
exitFunction
endif
mid（const、start、offer-start）
現代的にトリム（現代）
CONTERPER =交換（コンテンポラリー "" ""）
コンテンポラリー交換（現代 "、" ""）
Contemporealの交換（現代 "" ""）
CONTINGBOR =交換（コンテンポラリー "" "" ""）
contemper = cheplage（contemporary ">" ""）
contemper = cheplage（contemporary "<" ""）
CONTERPER =交換（コンテンポラリー "" ""）
getPaing = Contemporary
エンド機能