分享个”文件号“寻找数据的写法

帅气与大侠

日常经常操作磁盘文件进行读写操作，核心库里的文件读写使用的是打开文件，通过返回文件号进行相关操作，但是没有提供现成的寻找字节集方法，一次性将文件全部读入内存有时又有一些局限性，分享一份分段读取进行寻找的写法

  

文件号 ＝ 打开文件 (“f:\123.txt”, #读写, #无限制 )
启动时间 ＝ 取启动时间 ()
返回位置 ＝ 寻找数据 (文件号, 到字节集 (“9999999”), 返回位置)
调试输出 (“寻找数据耗时”, 取启动时间 () － 启动时间)
调试输出 (返回位置)
移动读写位置 (文件号, #文件首, 返回位置)
调试输出 (到文本 (读入字节集 (文件号, 7)))
关闭文件 (文件号)
结束 ()

子程序名	返回值类型	公开	备 注
寻找数据	整数型		返回一字节集在打开的文件中最先出现的位置，位置值从 1 开始。如果未找到，返回 -1。寻找的速度5亿行≈1200ms，大约1GB数据（本机）
参数名	类 型	参考	可空	数组	备 注
文件号	整数型
欲寻找的字节集	字节集
起始搜寻位置	整数型				注明：1为首位置，2为第2个位置，如此类推，如果被省略，默认为1

变量名	类 型	静态	数组	备 注
读入长度	双精度小数型
字节集	字节集
欲寻找的字节集长度	整数型
返回位置	整数型
读入的字节集长度	整数型
当前位置	整数型
文件总长度	整数型

读入长度 ＝ 1024 × 1024 × 8
欲寻找的字节集长度 ＝ 取字节集长度 (欲寻找的字节集)
返回位置 ＝ 起始搜寻位置
文件总长度 ＝ 取文件长度 (文件号)
移动读写位置 (文件号, #文件首, 返回位置)
读入的字节集长度 ＝ 返回位置
判断循环首 (读入的字节集长度 ＜ 文件总长度)
字节集 ＝ 读入字节集 (文件号, 读入长度)
读入的字节集长度 ＝ 读入的字节集长度 ＋ 取字节集长度 (字节集)
返回位置 ＝ 寻找字节集 (字节集, 欲寻找的字节集, 返回位置 ＋ 1)
如果真 (返回位置 ＝ -1)
' 寻找数据的原则不能去连续分段读，需要的数据可能存在卡位，读取下一段数据时往后移动一份【寻找的数据长度】
移动读写位置 (文件号, #文件首, 读入的字节集长度 － 欲寻找的字节集长度)
到循环尾 ()

返回 (读入的字节集长度 － 取字节集长度 (字节集) ＋ 返回位置 － 欲寻找的字节集长度 － 1)
判断循环尾 ()
返回 (-1)

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

.版本 2<br /> .支持库 spec<br /> <br /> 文件号 ＝ 打开文件 (“f:\123.txt”, #读写, #无限制)<br /> 启动时间 ＝ 取启动时间 ()<br /> 返回位置 ＝ 寻找数据 (文件号, 到字节集 (“9999999”), 返回位置)<br /> 调试输出 (“寻找数据耗时”, 取启动时间 () － 启动时间)<br /> 调试输出 (返回位置)<br /> 移动读写位置 (文件号, #文件首, 返回位置)<br /> 调试输出 (到文本 (读入字节集 (文件号, 7)))<br /> <br /> <br /> 关闭文件 (文件号)<br /> 结束 ()<br /> <br /> <br /> .子程序 寻找数据, 整数型, , 返回一字节集在打开的文件中最先出现的位置，位置值从 1 开始。如果未找到，返回 -1。寻找的速度5亿行≈1200ms，大约1GB数据（本机）<br /> .参数 文件号, 整数型<br /> .参数 欲寻找的字节集, 字节集<br /> .参数 起始搜寻位置, 整数型, 可空, 注明：1为首位置，2为第2个位置，如此类推，如果被省略，默认为1<br /> .局部变量 读入长度, 双精度小数型<br /> .局部变量 字节集, 字节集<br /> .局部变量 欲寻找的字节集长度, 整数型<br /> .局部变量 返回位置, 整数型<br /> .局部变量 读入的字节集长度, 整数型<br /> .局部变量 当前位置, 整数型<br /> .局部变量 文件总长度, 整数型<br /> <br /> 读入长度 ＝ 1024 × 1024 × 8<br /> 欲寻找的字节集长度 ＝ 取字节集长度 (欲寻找的字节集)<br /> 返回位置 ＝ 起始搜寻位置<br /> 文件总长度 ＝ 取文件长度 (文件号)<br /> 移动读写位置 (文件号, #文件首, 返回位置)<br /> 读入的字节集长度 ＝ 返回位置<br /> .判断循环首 (读入的字节集长度 ＜ 文件总长度)<br />     字节集 ＝ 读入字节集 (文件号, 读入长度)<br />     读入的字节集长度 ＝ 读入的字节集长度 ＋ 取字节集长度 (字节集)<br /> <br />     返回位置 ＝ 寻找字节集 (字节集, 欲寻找的字节集, 返回位置 ＋ 1)<br />     .如果真 (返回位置 ＝ -1)<br />         ' 寻找数据的原则不能去连续分段读，需要的数据可能存在卡位，读取下一段数据时往后移动一份【寻找的数据长度】<br />         移动读写位置 (文件号, #文件首, 读入的字节集长度 － 欲寻找的字节集长度)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     返回 (读入的字节集长度 － 取字节集长度 (字节集) ＋ 返回位置 － 欲寻找的字节集长度 － 1)<br /> .判断循环尾 ()<br /> 返回 (-1)

ctry78985

感谢分享

指尖流淌

支持开源~！感谢分享

美味萝卜

支持开源~！感谢分享

lmwdz

支持开源~！感谢分享

深圳梦

        感谢分享，很给力！~

sadamu999

支持开源~！感谢分享

283688410

谢谢分享

shuaier

感谢分享，很给力！~

396384183

真值得学习，感谢！......