文件_插入字节集W【精易模块文件读写扩展】

观音

在问答区看到一个精易模块的 文件_写出字节集W 相关的问题，然后问了半天文心一言，一直不告诉我如何用 WriteFile 相关的命令插入数据 结果我直接明着问



没仔细看，意思就是也是要读取修改，OK开动

  

子程序名	返回值类型	公开	备 注
demo

变量名	类 型	静态	数组	备 注
fileId	整数型

fileId ＝ 文件_打开文件W (删除Unicode结尾空白字节 (A2W (“D:\Program\项目\新建 文本文档.txt”), 真), 3, #无限制 )  ' 打开方式一定为读写 就是 3 或 #读写
文件_移动读写位置W (fileId, #文件首, 0)  ' 0是在最前面，1是第二个字符之前   数据 abc   位置+数据  0a1b2c,这样应该就懂了
文件_插入字节集W (fileId, A2U (“dfafaf”))  ' 在最前面插入
文件_关闭文件W (fileId)

子程序名	返回值类型	公开	备 注
文件_插入字节集W	逻辑型		权限一定要为读写
参数名	类 型	参考	可空	数组	备 注
文件句柄	整数型
要写出的数据	字节集

变量名	类 型	静态	数组	备 注
nMaxCount	整数型
len	整数型
w	整数型
newBin	字节集

如果真 (文件句柄 ≤ 0)
返回 (假)
nMaxCount ＝ 取字节集长度 (要写出的数据)
w ＝ 文件_取读写位置W (文件句柄)  ' 获取读写位置，部分命令调用后他的读写位置会变用于重置回去和计算后面数据的长度
len ＝ 文件_取文件长度W (文件句柄)
文件_移动读写位置W (文件句柄, #文件首, w)  ' 取文件长度后读写位置会改变，重置回去
如果 (文件_是否在文件尾W (文件句柄))  ' 在文件尾就不需要处理了，他也是插入在后面
newBin ＝ 要写出的数据
newBin ＝ 取空白字节集 (nMaxCount ＋ len － w)  ' 防止数据太大内存爆炸
newBin ＝ 要写出的数据 ＋ 文件_读入字节集W (文件句柄, len － w)  ' 这里应该看懂了 就是把后面的数据都覆盖
文件_移动读写位置W (文件句柄, #文件首, w)  ' 读入字节集后当前读写位置会变，重新回到最开始的位置
nMaxCount ＝ 取字节集长度 (newBin)
返回 (WriteFile (文件句柄, newBin, nMaxCount, #NULL, #NULL ))
' 都看完了基本上就理解了，就是把后面的字节集用插入的数据+原始数据覆盖掉，因为写数据就是会覆盖画面的数据

.版本 2<br /> <br /> .子程序 demo<br /> .局部变量 fileId, 整数型<br /> <br /> fileId ＝ 文件_打开文件W (删除Unicode结尾空白字节 (A2W (“D:\Program\项目\新建 文本文档.txt”), 真), 3, #无限制)  ' 打开方式一定为读写 就是 3 或 #读写<br /> 文件_移动读写位置W (fileId, #文件首, 0)  ' 0是在最前面，1是第二个字符之前   数据 abc   位置+数据  0a1b2c,这样应该就懂了<br /> 文件_插入字节集W (fileId, A2U (“dfafaf”))  ' 在最前面插入<br /> 文件_关闭文件W (fileId)<br /> <br /> .子程序 文件_插入字节集W, 逻辑型, 公开, 权限一定要为读写<br /> .参数 文件句柄, 整数型<br /> .参数 要写出的数据, 字节集<br /> .局部变量 nMaxCount, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 w, 整数型<br /> .局部变量 newBin, 字节集<br /> <br /> .如果真 (文件句柄 ≤ 0)<br />     返回 (假)<br /> .如果真结束<br /> nMaxCount ＝ 取字节集长度 (要写出的数据)<br /> w ＝ 文件_取读写位置W (文件句柄)  ' 获取读写位置，部分命令调用后他的读写位置会变用于重置回去和计算后面数据的长度<br /> len ＝ 文件_取文件长度W (文件句柄)<br /> 文件_移动读写位置W (文件句柄, #文件首, w)  ' 取文件长度后读写位置会改变，重置回去<br /> .如果 (文件_是否在文件尾W (文件句柄))  ' 在文件尾就不需要处理了，他也是插入在后面<br />     newBin ＝ 要写出的数据<br /> .否则<br />     newBin ＝ 取空白字节集 (nMaxCount ＋ len － w)  ' 防止数据太大内存爆炸<br />     newBin ＝ 要写出的数据 ＋ 文件_读入字节集W (文件句柄, len － w)  ' 这里应该看懂了 就是把后面的数据都覆盖<br />     文件_移动读写位置W (文件句柄, #文件首, w)  ' 读入字节集后当前读写位置会变，重新回到最开始的位置<br />     nMaxCount ＝ 取字节集长度 (newBin)<br /> .如果结束<br /> 返回 (WriteFile (文件句柄, newBin, nMaxCount, #NULL, #NULL))<br /> ' 都看完了基本上就理解了，就是把后面的字节集用插入的数据+原始数据覆盖掉，因为写数据就是会覆盖画面的数据

515667395

        开源精神必须支持~

wsysyb

谢谢，学习一下 插入字节集

光影魔术

感谢分享

tpwlyz

ftsoyxb

你们学习易语言多久了  我还是小白  怎么才能学习好呢

396384183

感谢楼主分享！

bianyuan456

已经顶贴，感谢您对论坛的支持！

sostemp

感谢你的支持，精易有你更精彩

lm88818

感谢分享，很给力！~