.版本 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))