文本读取删除问题

fzw666

[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]单击按钮就把文本的随机一行内容放到编辑框内容里面，然后在文本里删除这行文本，比如文本有第一行，第二行，第三行，随机取到第二行，然后就自动删除第二行的内容，点击复制就可以把编辑框的内容复制上，求助各位大佬帮助

frankiy

fzw666 发表于 2025-7-8 13:44
就是随便文件就可以，每次都取一行，然后删除文件中对应的那一行

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
行号	整数型
x	整数型
文件名	文本型
文件内容	文本型

文件名 ＝ 编辑框1.内容
文件内容 ＝ 字节集_到文本 (读入文件 (文件名))
文本 ＝ 分割文本 (文件内容, #换行符, )
如果 (取数组成员数 (文本) ≥ 2)
置随机数种子 (123123)
行号 ＝ 取随机数 (1, 取数组成员数 (文本))
编辑框2.内容 ＝ 文本 [行号]
删除成员 (文本, 行号, )
文件内容 ＝ “”
计次循环首 (取数组成员数 (文本), x)
文件内容 ＝ 文件内容 ＋ 文本 [x] ＋ #换行符
计次循环尾 ()
写到文件 (文件名, 到字节集 (文件内容))

信息框 (“至少要2行！”, 32, “提示”, )

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 行号, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件内容, 文本型<br /> <br /> 文件名 ＝ 编辑框1.内容<br /> 文件内容 ＝ 字节集_到文本 (读入文件 (文件名))<br /> <br /> 文本 ＝ 分割文本 (文件内容, #换行符, )<br /> <br /> .如果 (取数组成员数 (文本) ≥ 2)<br />     置随机数种子 (123123)<br /> <br />     行号 ＝ 取随机数 (1, 取数组成员数 (文本))<br />     编辑框2.内容 ＝ 文本 [行号]<br /> <br />     删除成员 (文本, 行号, )<br /> <br />     文件内容 ＝ “”<br />     .计次循环首 (取数组成员数 (文本), x)<br />         文件内容 ＝ 文件内容 ＋ 文本 [x] ＋ #换行符<br />     .计次循环尾 ()<br /> <br />     写到文件 (文件名, 到字节集 (文件内容))<br /> <br /> <br /> .否则<br />     信息框 (“至少要2行！”, 32, “提示”, )

frankiy

加强学习。1213123123123

fzw666

frankiy 发表于 2025-7-8 13:39
加强学习。1213123123123

可以在原文件删除吗哥，就是不通过编辑框，编辑框只显示取到的那一行，然后在文档里删除读到的那一行

frankiy

fzw666 发表于 2025-7-8 13:41
可以在原文件删除吗哥，就是不通过编辑框，编辑框只显示取到的那一行，然后在文档里删除读到的那一行 ...

文件发出来撒。·····

fzw666

frankiy 发表于 2025-7-8 13:41
文件发出来撒。·····

就是随便文件就可以，每次都取一行，然后删除文件中对应的那一行