'=================================================
"ing : getpaing
"作用 : 获取分页
'=================================================
FunctionGetPaing (ByValconstra, StartStrust, Absstr, Inclul, conclur)
ifcstorst = "$ false $"orconst = ""orstartstr = ""oroverstr = ""orisnull (conr) = trueorisnull (startstr) = trueorisnull (Overstr) = truethen
getPaing = "$ false $"
종료 기능
endif
Dimstart, Over, Complerate, tempstr
tempstr = lcase (const)
startString = lcase (startStrust)
Overstr = lcase (Absstr)
Over = instrument (1, tempstr, overstr)
ifover <= 0then
getPaing = "$ false $"
종료 기능
또 다른
ifinclur = truethen
Over = Over + Len (Overstr)
endif
endif
tempStrstr = mid (tempstr, 1, Over)
start = instrev (tempstr, startstr)
ifinclul = falsethen
start = start + len (startstrust)
endif
ifstart <= 0orstart> = 전복
getPaing = "$ false $"
종료 기능
endif
Mid (const, start, over start)
동시에 트림 (현대)
Contemper = Replace (현대 "" "")
현대 교체 (현대 "," "")
동시대 교체 (현대 "" "")
Contembor = Replace (현대 "" "" "" ")
Contemper = Replace (현대 ">" "")
Contemper = Replace (현대 "<" "")
Contemper = Replace (현대 "" "")
getpaing = 현대
최종 기능 장애