文件怎么写入和读出

kv2005w

很久没用 易语言了，都忘记了
求助个简单的问题
一个文件是这种格式，

我想把里面的数据读出来，和 写进去，要怎么弄

给个详细的易语言代码，实现写入和读出，谢谢、

数据在压缩包里面
lc.zip (49.96 KB, 下载次数: 4)

5 天前 上传

点击文件名下载附件

po1718

  

数据类型名	公开	备 注
股票信息
成员名	类 型	传址	数组	备 注
品种	文本型
代码	文本型

.版本 2<br /> <br /> .数据类型 股票信息<br />     .成员 品种, 文本型<br />     .成员 代码, 文本型

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	股票信息		0

读取数据 (取运行目录 () ＋ “\393009.cis”, a)
写取数据 (取运行目录 () ＋ “\写出.cis”, a)
调试输出 (a)

子程序名	返回值类型	公开	备 注
写取数据
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
参信息	股票信息

变量名	类 型	静态	数组	备 注
s	整数型
k	字节集
bin	字节集
n	整数型
代码	字节集
j	整数型

s ＝ 取数组成员数 (参信息)
计次循环首 (s, n)
k ＝ { 0, 0 }
k [1] ＝ 进制_十六到十 (参信息 [n].品种)
代码 ＝ 到字节集 (参信息 [n].代码)
计次循环首 (12 － 取字节集长度 (代码), j)
代码 ＝ 代码 ＋ { 0 }
计次循环尾 ()
bin ＝ bin ＋ k ＋ 代码 ＋ { 128, 63 }
计次循环尾 ()
调试输出 (“写出”, bin)
写到文件 (文件名, bin)

子程序名	返回值类型	公开	备 注
读取数据
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
返回信息	股票信息

变量名	类 型	静态	数组	备 注
bin	字节集
分割	字节集		0
n	整数型
品种	字节集

bin ＝ 读入文件 (文件名)
分割 ＝ 分割字节集 (bin, { 128, 63 }, )
重定义数组 (返回信息, 假, 取数组成员数 (分割))
计次循环首 (取数组成员数 (分割), n)
品种 ＝ 取字节集左边 (分割 [n], 1)
返回信息 [n].品种 ＝ 进制_十到十六 (品种 [1], )
返回信息 [n].代码 ＝ 到文本 (取字节集中间 (分割 [n], 3, 6))
调试输出 (到文本 (取字节集中间 (分割 [n], 3, 11)))
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 股票信息, , "0"<br /> <br /> 读取数据 (取运行目录 () ＋ “\393009.cis”, a)<br /> 写取数据 (取运行目录 () ＋ “\写出.cis”, a)<br /> 调试输出 (a)<br /> <br /> .子程序 写取数据<br /> .参数 文件名, 文本型<br /> .参数 参信息, 股票信息, 数组<br /> .局部变量 s, 整数型<br /> .局部变量 k, 字节集<br /> .局部变量 bin, 字节集<br /> .局部变量 n, 整数型<br /> .局部变量 代码, 字节集<br /> .局部变量 j, 整数型<br /> <br /> s ＝ 取数组成员数 (参信息)<br /> .计次循环首 (s, n)<br />     k ＝ { 0, 0 }<br />     k [1] ＝ 进制_十六到十 (参信息 [n].品种)<br />     代码 ＝ 到字节集 (参信息 [n].代码)<br />     .计次循环首 (12 － 取字节集长度 (代码), j)<br />         代码 ＝ 代码 ＋ { 0 }<br />     .计次循环尾 ()<br />     bin ＝ bin ＋ k ＋ 代码 ＋ { 128, 63 }<br /> .计次循环尾 ()<br /> 调试输出 (“写出”, bin)<br /> 写到文件 (文件名, bin)<br /> <br /> .子程序 读取数据<br /> .参数 文件名, 文本型<br /> .参数 返回信息, 股票信息, 参考 数组<br /> .局部变量 bin, 字节集<br /> .局部变量 分割, 字节集, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 品种, 字节集<br /> <br /> bin ＝ 读入文件 (文件名)<br /> 分割 ＝ 分割字节集 (bin, { 128, 63 }, )<br /> 重定义数组 (返回信息, 假, 取数组成员数 (分割))<br /> .计次循环首 (取数组成员数 (分割), n)<br />     品种 ＝ 取字节集左边 (分割 [n], 1)<br />     返回信息 [n].品种 ＝ 进制_十到十六 (品种 [1], )<br />     返回信息 [n].代码 ＝ 到文本 (取字节集中间 (分割 [n], 3, 6))<br />     调试输出 (到文本 (取字节集中间 (分割 [n], 3, 11)))<br /> .计次循环尾 ()