"================================================================================================================================================
"函数名: Getpaing
"作用: 获取分页
"================================================================================================================================================
FUNKTIONSGETPAING (Byvalconstra, Startstrust, Überbeugung, inklUl, inklu
IfcStorst = "$ false $" orconstr = "" orstartstr = "" orooverstr = "" orisnull (conr) = trueorisnull (startstr) = truorisnull (overstr) = truethen
GetPaing = "$ false $"
Ausgangsfunktion
Endif
Dimstart, vorbei, nachdenken, tempstr
Tempstr = lase (const)
StartString = Lase (Startstrust)
Overstr = lca (aufbewahrt)
Over = Instrument (1, tempstr, overstr)
IFOver <= 0Then
GetPaing = "$ false $"
Ausgangsfunktion
Anders
Ifinclur = truethen
Über = über + len (overstr)
Endif
Endif
Tempstr = mid (tempstr, 1, über)
Start = instrrev (tempstr, startstr)
Ifinclul = falsethen
Start = start + len (startstrust)
Endif
IfStart <= 0Orstart> = overthen
GetPaing = "$ false $"
Ausgangsfunktion
Endif
Mid (const, Start, Überstart)
Zeitgemäß trimm (zeitgemäß)
Contemper = ersetzen (zeitgenössischer "" ")
Zeitgenössischer Ersatz (zeitgenössisch "," ")
Zeitgenössischer Ersatz (zeitgenössischer "" ")
CHITHOR = TROSSE (zeitgenössischer "" "" ")
Contemper = ersetzen (zeitgenössisch ">" "")
Contemper = ersetzen (zeitgenössisches "<" "")
Contemper = ersetzen (zeitgenössischer "" ")
GetPaing = zeitgemäß
Endfunktion