'=======================================================
「函数名: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
エンド機能