求助 易语言一行一行读取文本后删除读取后的该行

szy411

比如本地文件为123.txt
内有内容
123123123
456456456
789789789
112233113
115151515



按钮1被单击后
编辑框1.内容=读取本地文件123.txt 中的123123123

然后自动再把本地文件123.txt中的123123123这条给删掉
下一次再点击按钮1后
编辑框1.内容=读取本地文件123.txt 中的456456456

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
写出文本	文本型

文本 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “123.txt”)), #换行符, )
计次循环首 (取数组成员数 (文本), n)
如果 (n ＝ 1)
编辑框1.内容=文本[n]
写出文本 ＝ 写出文本 ＋ 文本 [n] ＋ #换行符

计次循环尾 ()
写到文件 (取运行目录 () ＋ “\” ＋ “123.txt”, 到字节集 (写出文本))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 写出文本, 文本型<br /> <br /> 文本 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “123.txt”)), #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .如果 (n ＝ 1)<br />         编辑框1.内容=文本[n]<br />     .否则<br />         写出文本 ＝ 写出文本 ＋ 文本 [n] ＋ #换行符<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\” ＋ “123.txt”, 到字节集 (写出文本))

W先生丿

取出文本 ＝ 文本_取指定文件文本行 (源文件名, 1)
文本_删除指定文件文本行1 (源文件名, 1)

随心o

  

子程序名	返回值类型	公开	备 注
读入一行后删除	文本型		读入完成后返回空
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
是否过滤空白行	逻辑型				默认为过滤

变量名	类 型	静态	数组	备 注
文件句柄	整数型
返回文本	文本型

文件句柄 ＝ 打开文件 (文件路径, , )
如果真 (是否为空 (是否过滤空白行) ＝ 真)
是否过滤空白行 ＝ 真
如果真 (文件句柄 ＞ 0)
循环判断首 ()
如果真 (移到文件首 (文件句柄) ＝ 真)
返回文本 ＝ 读入一行 (文件句柄)
如果真 (移到文件首 (文件句柄))
删除数据 (文件句柄, 取文本长度 (返回文本 ＋ #换行符 ))
移到文件首 (文件句柄)

如果真 (是否过滤空白行 ＝ 假)
跳出循环 ()
如果真 (返回文本 ＝ “” 且 是否在文件尾 (文件句柄, ))
跳出循环 ()

循环判断尾 (删全部空 (返回文本) ＝ “”)
关闭文件 (文件句柄)
调试输出 (取程序名称 (1), 返回文本)
返回 (返回文本)

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

编辑框1.内容 ＝ 读入一行后删除 (取运行目录 () ＋ “\123.txt”, 真)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 读入一行后删除, 文本型, , 读入完成后返回空<br /> .参数 文件路径, 文本型<br /> .参数 是否过滤空白行, 逻辑型, 可空, 默认为过滤<br /> .局部变量 文件句柄, 整数型<br /> .局部变量 返回文本, 文本型<br /> <br /> <br /> 文件句柄 ＝ 打开文件 (文件路径, , )<br /> .如果真 (是否为空 (是否过滤空白行) ＝ 真)<br />     是否过滤空白行 ＝ 真<br /> .如果真结束<br /> .如果真 (文件句柄 ＞ 0)<br />     .循环判断首 ()<br />         .如果真 (移到文件首 (文件句柄) ＝ 真)<br />             返回文本 ＝ 读入一行 (文件句柄)<br />             .如果真 (移到文件首 (文件句柄))<br />                 删除数据 (文件句柄, 取文本长度 (返回文本 ＋ #换行符))<br />                 移到文件首 (文件句柄)<br />             .如果真结束<br /> <br />         .如果真结束<br />         .如果真 (是否过滤空白行 ＝ 假)<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (返回文本 ＝ “” 且 是否在文件尾 (文件句柄, ))<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .循环判断尾 (删全部空 (返回文本) ＝ “”)<br />     关闭文件 (文件句柄)<br /> .如果真结束<br /> 调试输出 (取程序名称 (1), 返回文本)<br /> 返回 (返回文本)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框1.内容 ＝ 读入一行后删除 (取运行目录 () ＋ “\123.txt”, 真)

766711831

别用循环，有个思路告诉你先把文本读到一个编辑框，再用子文本替换后写出，这样比较快， 如果是循环碰到很多行文本就会很慢的

我很低调

取出文本 ＝ 文本_取指定文件文本行 (源文件名, 1)
文本_删除指定文件文本行1 (源文件名, 1)