简单的读取数据文件,分割文本测试

易语言 2020-08-13 20:38:25

简单的读取数据文件,分割文本测试

数组文本 = 分割文本 (读取指定行内容 (取读写位置 (文件号), 到数值 (编辑框2.内容)), #换行符, )
.计次循环首 (取数组成员数 (数组文本), i)
账号 = 分割文本 (数组文本 [i], “----”, )
.如果真 (取数组成员数 (账号密码) ≥ 2)
高级表格1.插入行 (“去你麻痹”, )
调试输出 (高级表格1.行数)
高级表格1.置数据 (高级表格1.行数 - 1, 1, 1, 账号密码 [1])
高级表格1.置数据 (高级表格1.行数 - 1, 2, 1, 账号密码 [2])
.如果真结束

.计次循环尾 ()

.子程序 读取指定行内容, 文本型, , 注意:如果读取行数后,想继续读取下一行的内容,请调用完子程序后,保留读写位置,供下次读取
.参数 起始位置, 整数型
.参数 行数, 整数型
.局部变量 当前位置, 整数型
.局部变量 首次读取位置, 整数型
.局部变量 结束读取位置, 整数型
.局部变量 返回文本, 文本型
.局部变量 有, 逻辑型

.如果真 (是否在文件尾 (文件号, 假))
返回 (“”)
.如果真结束
当前位置 = 起始位置
移动读写位置 (文件号, 1, 当前位置)
首次读取位置 = 当前位置
.计次循环首 (到数值 (编辑框2.内容), )
.判断循环首 (真) ' 判断是否遇到分割符
.如果真 (读入文本 (文件号, 2) = #换行符)
有 = 真
跳出循环 ()
.如果真结束
移动读写位置 (文件号, 1, 当前位置)
当前位置 = 当前位置 + 1
.如果真 (是否在文件尾 (文件号, 假))
跳出循环 ()
.如果真结束

.判断循环尾 ()
.如果真 (有 = 假)
跳出循环 ()
.如果真结束

.计次循环尾 ()
结束读取位置 = 当前位置
移动读写位置 (文件号, 1, 首次读取位置)
返回文本 = 读入文本 (文件号, 结束读取位置 - 首次读取位置)
移动读写位置 (文件号, 1, 结束读取位置)