还原精易模块外部超级列表框保存的文件内容

御风软件

源码中，是把保存了一个超级列表框的文件读入了进来，这是个包含4列的普通报表列表框
每一次循环，都能把下一项的全部列的数据调试输出，直到全部表项都输出完成

输出的东西为（表项索引，列）：

0，0  |   0，1   |     0，2    |   0，3

1，0  |   1，1   |    1，2     |   1，3

.........

通过再次改装，就能直接读取保存的文件，获得指定列，指定表项的数据
而不需要加载到软件的超级列表框，再从列表框读取数据。。。

至于，为什么我会写这个，当然是因为我写软件，要用到了。。。。
所以呢，就顺便分享下了，就是这么简单的事情
看不懂没关系，你需要的时候，就会懂了

  

变量名	类 型	静态	数组	备 注
字节集	字节集
开始位置	整数型
上次位置	整数型
下次位置	整数型
表项开始	字节集
表项结束	字节集

字节集 ＝ 读入文件 (“默认方案_二星.lb”)
如果真 (字节集 ＝ {  })
返回 ()
表项开始 ＝ { 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }
表项结束 ＝ { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }
循环判断首 ()
上次位置 ＝ 寻找字节集 (字节集, 表项开始, 开始位置)  ' 新的一项开始
开始位置 ＝ 上次位置 ＋ 17
下次位置 ＝ 寻找字节集 (字节集, 表项结束, 开始位置)  ' 第一列的结束
调试输出 (到文本 (取字节集中间 (字节集, 开始位置, 下次位置 － 开始位置)))  ' 取出0列内容
开始位置 ＝ 下次位置 ＋ 17
上次位置 ＝ 寻找字节集 (字节集, 表项结束, 开始位置)  ' 第二列的结束
调试输出 (到文本 (取字节集中间 (字节集, 开始位置, 上次位置 － 开始位置)))  ' 取出1列内容
开始位置 ＝ 上次位置 ＋ 17
下次位置 ＝ 寻找字节集 (字节集, 表项结束, 开始位置)  ' 第三列的结束
调试输出 (到文本 (取字节集中间 (字节集, 开始位置, 下次位置 － 开始位置)))  ' ' 取出2列内容
开始位置 ＝ 下次位置 ＋ 17
上次位置 ＝ 寻找字节集 (字节集, 表项结束, 开始位置)  ' 第四列的结束’ ' 取出3列内容
判断 (上次位置 ≠ -1)
调试输出 (到文本 (取字节集中间 (字节集, 开始位置, 上次位置 － 开始位置)))
调试输出 (到文本 (取字节集右边 (字节集, 取字节集长度 (字节集) － 开始位置 ＋ 1)))

循环判断尾 (上次位置 ≠ -1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 字节集, 字节集<br /> .局部变量 开始位置, 整数型<br /> .局部变量 上次位置, 整数型<br /> .局部变量 下次位置, 整数型<br /> .局部变量 表项开始, 字节集<br /> .局部变量 表项结束, 字节集<br /> <br /> 字节集 ＝ 读入文件 (“默认方案_二星.lb”)<br /> .如果真 (字节集 ＝ {  })<br />     返回 ()<br /> .如果真结束<br /> 表项开始 ＝ { 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }<br /> 表项结束 ＝ { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }<br /> .循环判断首 ()<br />     上次位置 ＝ 寻找字节集 (字节集, 表项开始, 开始位置)  ' 新的一项开始<br /> <br />     开始位置 ＝ 上次位置 ＋ 17<br />     下次位置 ＝ 寻找字节集 (字节集, 表项结束, 开始位置)  ' 第一列的结束<br />     调试输出 (到文本 (取字节集中间 (字节集, 开始位置, 下次位置 － 开始位置)))  ' 取出0列内容<br /> <br />     开始位置 ＝ 下次位置 ＋ 17<br />     上次位置 ＝ 寻找字节集 (字节集, 表项结束, 开始位置)  ' 第二列的结束<br />     调试输出 (到文本 (取字节集中间 (字节集, 开始位置, 上次位置 － 开始位置)))  ' 取出1列内容<br /> <br />     开始位置 ＝ 上次位置 ＋ 17<br />     下次位置 ＝ 寻找字节集 (字节集, 表项结束, 开始位置)  ' 第三列的结束<br />     调试输出 (到文本 (取字节集中间 (字节集, 开始位置, 下次位置 － 开始位置)))  ' ' 取出2列内容<br /> <br />     开始位置 ＝ 下次位置 ＋ 17<br />     上次位置 ＝ 寻找字节集 (字节集, 表项结束, 开始位置)  ' 第四列的结束’ ' 取出3列内容<br />     .判断开始 (上次位置 ≠ -1)<br />         调试输出 (到文本 (取字节集中间 (字节集, 开始位置, 上次位置 － 开始位置)))<br />     .默认<br />         调试输出 (到文本 (取字节集右边 (字节集, 取字节集长度 (字节集) － 开始位置 ＋ 1)))<br />     .判断结束<br /> <br /> .循环判断尾 (上次位置 ≠ -1)

huhua

学习下，谢谢分享

温xun

收藏

a156850444

本人找人制作一个用代理IP刷新网页的源码。会的联系我下QQ：156850444.