易语言文本取中间文本源码

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 下个位置, 整数型

输出调试文本 (文本_取中间文本_Ex (#常量1, “<”, “>”, 下个位置))
.判断循环首 (下个位置 ＞ 0)
    输出调试文本 (文本_取中间文本_Ex (#常量1, “<”, “>”, 下个位置))
.判断循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 文本_取中间文本_Ex, 文本型
.参数 参数_文本, 文本型
.参数 参数_开始文本, 文本型
.参数 参数_结束文本, 文本型
.参数 参数_起始取文本位置, 整数型, 参考 可空, 如果此参数提供变量可循环取文本
.参数 参数_是否不区分大小写, 逻辑型, 可空
.局部变量 BeginPos, 整数型
.局部变量 EndPos, 整数型
.局部变量 bLenght, 整数型
.局部变量 eLenght, 整数型

bLenght ＝ 取文本长度 (参数_开始文本)
eLenght ＝ 取文本长度 (参数_结束文本)
BeginPos ＝ 寻找文本 (参数_文本, 参数_开始文本, 参数_起始取文本位置, 参数_是否不区分大小写)
EndPos ＝ 寻找文本 (参数_文本, 参数_结束文本, BeginPos ＋ bLenght, 参数_是否不区分大小写)
.如果真 (BeginPos ＝ -1 或 EndPos ＝ -1)
    参数_起始取文本位置 ＝ 0
    返回 (“”)
.如果真结束
参数_起始取文本位置 ＝ EndPos ＋ eLenght
.如果真 (参数_起始取文本位置 ≥ 取文本长度 (参数_文本))
    参数_起始取文本位置 ＝ 0
.如果真结束
返回 (取文本中间 (参数_文本, BeginPos ＋ bLenght, EndPos － BeginPos － bLenght))

@雨落无声