命令 文本_取中间_批量() 及类似命令 存在BUG

半个灵魂づ留着

模块版本：3.80
所用系统：Win8.1 64位
命令名称：文本_取中间_批量()、文本_取中间_批量1()
BUG描述：当涉及到参数 "文本长度大于此数的不要" 时返回的数组不正确
我的联系QQ：747779761【源码】

  

子程序名	返回值类型	公开	备 注
文本_取中间_批量1	整数型		比如：欲取全文本为<12345>,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”
参数名	类 型	参考	可空	数组	备 注
源文本	文本型				比如：欲取全文本为 12345
前面标识文本	文本型				3的前面为“2”
后面标识文本	文本型				3的后面为“4”
存放取出文本的数组	文本型				存放取出文本的数组
是否区分大小写	逻辑型				是否区分大小写
文本长度大于此数的不要	整数型				文本长度大于此数的不要;如取出的文本大于50的不要;留空为不限制
为取出的文本加上前缀	文本型				在取出的文本前面加上一段字符或汉字！可空！
为取出的文本加上后缀	文本型				在取出的文本后面加上一段字符或汉字！可空！
连前面标识文本一起取出	逻辑型				是否连<前面标识文本>一起取出? 默认为假，不取出！
连后面标识文本一起取出	逻辑型				是否连<后面标识文本>一起取出? 默认为假，不取出！
起始搜寻位置	整数型				注明：位置值从 1 开始。如果本参数被省略，默认为 1 。

变量名	类 型	静态	数组	备 注
局_数组	文本型		0
局_首次	逻辑型
局_结果	文本型
局_位置	整数型
局_位置1	整数型

如果真 (取反 (局_首次))
清除数组 (存放取出文本的数组)
局_首次 ＝ 真
' //上面这段代码必须加上，判断是否第一次调用该子程序，返回后在初始化
是否区分大小写 ＝ 取反 (是否区分大小写)
' 局_位置 ＝ 寻找文本 (源文本, 前面标识文本, 起始搜寻位置, 是否区分大小写) ＋ 1
局_位置 ＝ 寻找文本 (源文本, 前面标识文本, 起始搜寻位置, 是否区分大小写)
如果真 (局_位置 ＜ 1)
返回 (0)

局_位置1 ＝ 寻找文本 (源文本, 后面标识文本, 局_位置 ＋ 取文本长度 (前面标识文本), 是否区分大小写)
如果真 (局_位置1 ＜ 1)
返回 (0)

' 局_位置 ＝ 局_位置 ＋ 取文本长度 (前面标识文本) － 1
局_位置 ＝ 局_位置 ＋ 1
局_结果 ＝ 删首尾空 (取文本中间 (源文本, 局_位置, 局_位置1 － 局_位置))
' 调试输出 (局_位置, 局_位置1, 局_结果)
如果真 (取文本长度 (局_结果) ＜ 2)
返回 (0)
如果真 (文本长度大于此数的不要 ≠ 0 且 取文本长度 (局_结果) ＞ 文本长度大于此数的不要)
返回 (0)
局_结果 ＝ 为取出的文本加上前缀 ＋ 局_结果
局_结果 ＝ 局_结果 ＋ 为取出的文本加上后缀
如果真 (连前面标识文本一起取出)
局_结果 ＝ 前面标识文本 ＋ 局_结果
如果真 (连后面标识文本一起取出)
局_结果 ＝ 局_结果 ＋ 后面标识文本
局_结果 ＝ 取文本右边 (局_结果, 取文本长度 (局_结果) － 取文本长度 (前面标识文本))
加入成员 (存放取出文本的数组, 局_结果)
文本_取中间_批量1 (源文本, 前面标识文本, 后面标识文本, 存放取出文本的数组, 是否区分大小写, 文本长度大于此数的不要, 为取出的文本加上前缀, 为取出的文本加上后缀, 连前面标识文本一起取出, 连后面标识文本一起取出, 局_位置1)
局_首次 ＝ 假
返回 (取数组成员数 (存放取出文本的数组))

.版本 2<br /> <br /> .子程序 文本_取中间_批量1, 整数型, 公开, 比如：欲取全文本为<12345>,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”<br /> .参数 源文本, 文本型, , 比如：欲取全文本为 12345<br /> .参数 前面标识文本, 文本型, , 3的前面为“2”<br /> .参数 后面标识文本, 文本型, , 3的后面为“4”<br /> .参数 存放取出文本的数组, 文本型, 可空 数组, 存放取出文本的数组<br /> .参数 是否区分大小写, 逻辑型, 可空, 是否区分大小写<br /> .参数 文本长度大于此数的不要, 整数型, 可空, 文本长度大于此数的不要;如取出的文本大于50的不要;留空为不限制<br /> .参数 为取出的文本加上前缀, 文本型, 可空, 在取出的文本前面加上一段字符或汉字！可空！<br /> .参数 为取出的文本加上后缀, 文本型, 可空, 在取出的文本后面加上一段字符或汉字！可空！<br /> .参数 连前面标识文本一起取出, 逻辑型, 可空, 是否连<前面标识文本>一起取出? 默认为假，不取出！<br /> .参数 连后面标识文本一起取出, 逻辑型, 可空, 是否连<后面标识文本>一起取出? 默认为假，不取出！<br /> .参数 起始搜寻位置, 整数型, 可空, 注明：位置值从 1 开始。如果本参数被省略，默认为 1 。<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_首次, 逻辑型, 静态<br /> .局部变量 局_结果, 文本型<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_位置1, 整数型<br /> <br /> .如果真 (取反 (局_首次))<br />     清除数组 (存放取出文本的数组)<br /> .如果真结束<br /> 局_首次 ＝ 真<br /> ' //上面这段代码必须加上，判断是否第一次调用该子程序，返回后在初始化<br /> 是否区分大小写 ＝ 取反 (是否区分大小写)<br /> <br /> <br /> ' 局_位置 ＝ 寻找文本 (源文本, 前面标识文本, 起始搜寻位置, 是否区分大小写) ＋ 1<br /> 局_位置 ＝ 寻找文本 (源文本, 前面标识文本, 起始搜寻位置, 是否区分大小写)<br /> .如果真 (局_位置 ＜ 1)<br />     返回 (0)<br /> .如果真结束<br /> <br /> 局_位置1 ＝ 寻找文本 (源文本, 后面标识文本, 局_位置 ＋ 取文本长度 (前面标识文本), 是否区分大小写)<br /> .如果真 (局_位置1 ＜ 1)<br />     返回 (0)<br /> .如果真结束<br /> <br /> <br /> ' 局_位置 ＝ 局_位置 ＋ 取文本长度 (前面标识文本) － 1<br /> 局_位置 ＝ 局_位置 ＋ 1<br /> <br /> <br /> 局_结果 ＝ 删首尾空 (取文本中间 (源文本, 局_位置, 局_位置1 － 局_位置))<br /> ' 调试输出 (局_位置, 局_位置1, 局_结果)<br /> .如果真 (取文本长度 (局_结果) ＜ 2)<br />     返回 (0)<br /> .如果真结束<br /> .如果真 (文本长度大于此数的不要 ≠ 0 且 取文本长度 (局_结果) ＞ 文本长度大于此数的不要)<br />     返回 (0)<br /> .如果真结束<br /> 局_结果 ＝ 为取出的文本加上前缀 ＋ 局_结果<br /> 局_结果 ＝ 局_结果 ＋ 为取出的文本加上后缀<br /> .如果真 (连前面标识文本一起取出)<br />     局_结果 ＝ 前面标识文本 ＋ 局_结果<br /> .如果真结束<br /> .如果真 (连后面标识文本一起取出)<br />     局_结果 ＝ 局_结果 ＋ 后面标识文本<br /> .如果真结束<br /> 局_结果 ＝ 取文本右边 (局_结果, 取文本长度 (局_结果) － 取文本长度 (前面标识文本))<br /> 加入成员 (存放取出文本的数组, 局_结果)<br /> 文本_取中间_批量1 (源文本, 前面标识文本, 后面标识文本, 存放取出文本的数组, 是否区分大小写, 文本长度大于此数的不要, 为取出的文本加上前缀, 为取出的文本加上后缀, 连前面标识文本一起取出, 连后面标识文本一起取出, 局_位置1)<br /> 局_首次 ＝ 假<br /> 返回 (取数组成员数 (存放取出文本的数组))

【修改】

  

如果真 (局_结果 ＝ “”)
返回 (0)
判断 (文本长度大于此数的不要 ≠ 0 且 取文本长度 (局_结果) ＞ 文本长度大于此数的不要)
文本_取中间_批量 (源文本, 前面标识文本, 后面标识文本, 存放取出文本的数组, 是否区分大小写, 文本长度大于此数的不要, 为取出的文本加上前缀, 为取出的文本加上后缀, 连前面标识文本一起取出, 连后面标识文本一起取出, 局_位置1)
局_首次 ＝ 假
局_结果 ＝ 为取出的文本加上前缀 ＋ 局_结果 ＋ 为取出的文本加上后缀
如果真 (连前面标识文本一起取出)
局_结果 ＝ 前面标识文本 ＋ 局_结果
如果真 (连后面标识文本一起取出)
局_结果 ＝ 局_结果 ＋ 后面标识文本
加入成员 (存放取出文本的数组, 局_结果)
文本_取中间_批量 (源文本, 前面标识文本, 后面标识文本, 存放取出文本的数组, 是否区分大小写, 文本长度大于此数的不要, 为取出的文本加上前缀, 为取出的文本加上后缀, 连前面标识文本一起取出, 连后面标识文本一起取出, 局_位置1)
局_首次 ＝ 假

返回 (取数组成员数 (存放取出文本的数组))

.版本 2<br /> <br /> .如果真 (局_结果 ＝ “”)<br />     返回 (0)<br /> .如果真结束<br /> .判断开始 (文本长度大于此数的不要 ≠ 0 且 取文本长度 (局_结果) ＞ 文本长度大于此数的不要)<br />     文本_取中间_批量 (源文本, 前面标识文本, 后面标识文本, 存放取出文本的数组, 是否区分大小写, 文本长度大于此数的不要, 为取出的文本加上前缀, 为取出的文本加上后缀, 连前面标识文本一起取出, 连后面标识文本一起取出, 局_位置1)<br />     局_首次 ＝ 假<br /> .默认<br />     局_结果 ＝ 为取出的文本加上前缀 ＋ 局_结果 ＋ 为取出的文本加上后缀<br />     .如果真 (连前面标识文本一起取出)<br />         局_结果 ＝ 前面标识文本 ＋ 局_结果<br />     .如果真结束<br />     .如果真 (连后面标识文本一起取出)<br />         局_结果 ＝ 局_结果 ＋ 后面标识文本<br />     .如果真结束<br />     加入成员 (存放取出文本的数组, 局_结果)<br />     文本_取中间_批量 (源文本, 前面标识文本, 后面标识文本, 存放取出文本的数组, 是否区分大小写, 文本长度大于此数的不要, 为取出的文本加上前缀, 为取出的文本加上后缀, 连前面标识文本一起取出, 连后面标识文本一起取出, 局_位置1)<br />     局_首次 ＝ 假<br /> .判断结束<br /> <br /> 返回 (取数组成员数 (存放取出文本的数组))

野狼三号

中文代码看起来就是不一样!
楼主的代码写的好整齐!

ジ秋水

没人顶楼主 不过我感觉楼主好厉害