==================================================
功能名称：getpaing
效果：获取分页
==================================================
功能getpaing（ByVal建设，startstr，overstr，inclul，inclur）
如果建设=假美元$ 或建设为startstr =或overstr = 或空或空。
getpaing =假美元$
退出功能
最后如果

朦胧的开始，在当代，TempStr，
tempstr = 1例（建设）
startstr = LCase（startstr）
overstr = LCase（overstr）
在仪器（1，TempStr，overstr）
如果超过< 0然后
getpaing =假美元$
退出功能
其他的
如果inclur =真
在超过+ len（overstr）
最后如果
最后如果
tempstr =中（tempstr，1以上）
开始= instrrev（tempstr，startstr）
如果inclul = FALSE然后
开始=开始+ len（startstr）
最后如果

如果开始超过
getpaing =假美元$
退出功能
最后如果
当代=（建设中，开始，结束的开始）

当代=装饰（当代）
当代=取代（当代，
当代=取代（当代，
当代=取代（当代，、）
当代=取代（当代，
当代=取代（当代，>
当代=取代（当代，<<
当代=取代（当代，
getpaing =当代
端功能