取字节集中间，取字节集中间批量源码 - 精易论坛

子程序名	返回值类型	公开	备注
字节集_取中间_批量_Kid	整数型
参数名	类型	参考	可空	数组	备注
源字节集	字节集
前面标识字节集	字节集
后面标识字节集	字节集
存放取出字节集的数组	字节集
为取出的字节集加上前缀	字节集
为取出的字节集加上后缀	字节集
连前面标识字节集一起取出	逻辑型
连后面标识字节集一起取出	逻辑型
起始搜寻位置	整数型

变量名	类型	静态	数组	备注
Search	字节集
StartPos	整数型
EndPos	整数型

清除数组 (存放取出字节集的数组)
StartPos ＝寻找字节集 (源字节集, 前面标识字节集, 起始搜寻位置)

判断循环首 (StartPos ≠ -1)

StartPos ＝寻找字节集 (源字节集, 前面标识字节集, StartPos)

如果真 (StartPos ≠ -1)

EndPos ＝寻找字节集 (源字节集, 后面标识字节集, StartPos ＋取字节集长度 (前面标识字节集))

如果真 (EndPos ≠ -1)

StartPos ＝ StartPos ＋取字节集长度 (前面标识字节集)

Search ＝取字节集中间 (源字节集, StartPos, EndPos － StartPos)

如果真 (取字节集长度 (Search) ＞ 0)

如果真 (连前面标识字节集一起取出)

Search ＝前面标识字节集＋ Search

如果真 (连后面标识字节集一起取出)

Search ＝ Search ＋后面标识字节集

加入成员 (存放取出字节集的数组, Search)

StartPos ＝ EndPos

处理事件 ()

判断循环尾 ()
返回 (取数组成员数 (存放取出字节集的数组))

子程序名	返回值类型	公开	备注
字节集_取中间_Kid	字节集
参数名	类型	参考	可空	数组	备注
欲取字节集	字节集
前面字节集	字节集
后面字节集	字节集
添加前戳	字节集
添加后戳	字节集

变量名	类型	静态	数组	备注
局_左边字节集位置	整数型
局_右边字节集位置	整数型
待返回字节集	字节集

局_左边字节集位置＝寻找字节集 (欲取字节集, 前面字节集, )

如果真 (局_左边字节集位置 ≠ -1)

局_左边字节集位置＝局_左边字节集位置＋取字节集长度 (前面字节集)
局_右边字节集位置＝寻找字节集 (欲取字节集, 后面字节集, 局_左边字节集位置)

如果真 (局_左边字节集位置＝ -1 或局_右边字节集位置＝ -1)

返回 ({ })
待返回字节集＝取字节集中间 (欲取字节集, 局_左边字节集位置, 局_右边字节集位置－局_左边字节集位置)

如果真 (取字节集长度 (添加前戳) ≠ 0)

待返回字节集＝添加前戳＋待返回字节集

如果真 (取字节集长度 (添加后戳) ≠ 0)

待返回字节集＝待返回字节集＋添加后戳

返回 (待返回字节集)

.版本 2<br />
<br />
.子程序 字节集_取中间_批量_Kid, 整数型, 公开<br />
.参数 源字节集, 字节集<br />
.参数 前面标识字节集, 字节集<br />
.参数 后面标识字节集, 字节集<br />
.参数 存放取出字节集的数组, 字节集, 可空 数组<br />
.参数 为取出的字节集加上前缀, 字节集, 可空<br />
.参数 为取出的字节集加上后缀, 字节集, 可空<br />
.参数 连前面标识字节集一起取出, 逻辑型, 可空<br />
.参数 连后面标识字节集一起取出, 逻辑型, 可空<br />
.参数 起始搜寻位置, 整数型, 可空<br />
.局部变量 Search, 字节集<br />
.局部变量 StartPos, 整数型<br />
.局部变量 EndPos, 整数型<br />
<br />
清除数组 (存放取出字节集的数组)<br />
StartPos ＝ 寻找字节集 (源字节集, 前面标识字节集, 起始搜寻位置)<br />
.判断循环首 (StartPos ≠ -1)<br />
    StartPos ＝ 寻找字节集 (源字节集, 前面标识字节集, StartPos)<br />
    .如果真 (StartPos ≠ -1)<br />
        EndPos ＝ 寻找字节集 (源字节集, 后面标识字节集, StartPos ＋ 取字节集长度 (前面标识字节集))<br />
        .如果真 (EndPos ≠ -1)<br />
            StartPos ＝ StartPos ＋ 取字节集长度 (前面标识字节集)<br />
            Search ＝ 取字节集中间 (源字节集, StartPos, EndPos － StartPos)<br />
            .如果真 (取字节集长度 (Search) ＞ 0)<br />
                .如果真 (连前面标识字节集一起取出)<br />
                    Search ＝ 前面标识字节集 ＋ Search<br />
                .如果真结束<br />
                .如果真 (连后面标识字节集一起取出)<br />
                    Search ＝ Search ＋ 后面标识字节集<br />
                .如果真结束<br />
                加入成员 (存放取出字节集的数组, Search)<br />
                StartPos ＝ EndPos<br />
            .如果真结束<br />
<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
    处理事件 ()<br />
.判断循环尾 ()<br />
返回 (取数组成员数 (存放取出字节集的数组))<br />
<br />
.子程序 字节集_取中间_Kid, 字节集, 公开<br />
.参数 欲取字节集, 字节集<br />
.参数 前面字节集, 字节集<br />
.参数 后面字节集, 字节集<br />
.参数 添加前戳, 字节集, 可空<br />
.参数 添加后戳, 字节集, 可空<br />
.局部变量 局_左边字节集位置, 整数型<br />
.局部变量 局_右边字节集位置, 整数型<br />
.局部变量 待返回字节集, 字节集<br />
<br />
局_左边字节集位置 ＝ 寻找字节集 (欲取字节集, 前面字节集, )<br />
.如果真 (局_左边字节集位置 ≠ -1)<br />
    局_左边字节集位置 ＝ 局_左边字节集位置 ＋ 取字节集长度 (前面字节集)<br />
.如果真结束<br />
局_右边字节集位置 ＝ 寻找字节集 (欲取字节集, 后面字节集, 局_左边字节集位置)<br />
.如果真 (局_左边字节集位置 ＝ -1 或 局_右边字节集位置 ＝ -1)<br />
    返回 ({  })<br />
.如果真结束<br />
待返回字节集 ＝ 取字节集中间 (欲取字节集, 局_左边字节集位置, 局_右边字节集位置 － 局_左边字节集位置)<br />
.如果真 (取字节集长度 (添加前戳) ≠ 0)<br />
    待返回字节集 ＝ 添加前戳 ＋ 待返回字节集<br />
.如果真结束<br />
.如果真 (取字节集长度 (添加后戳) ≠ 0)<br />
    待返回字节集 ＝ 待返回字节集 ＋ 添加后戳<br />
.如果真结束<br />
<br />
返回 (待返回字节集)