如何读入txt全部文本内容 寻找指定内容并去除掉

a492736664

我有一个多行txt文本读入编辑框中 111111
222222
333333
444444
555555

然后查找333333

最后实现
111111
222222
444444
555555
求大哥们给弄个源码


补充内容 (2020-8-29 23:04):
最后再重新写出这个文本

合作

.版本 2

.子程序 文本_删除指定文本行, 文本型, , 删除指定文本的一行文本，返回删行后的文本
.参数 源文本, 文本型
.参数 行数, 整数型, , 输入你想删除的行数，如：想删除第3行的整行文本就直接输3
.局部变量 临时文本, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 输出文本, 文本型

输出文本 ＝ 源文本
.如果真 (寻找文本 (输出文本, #换行符, , 假) ＝ -1)
    输出文本 ＝ 输出文本 ＋ #换行符
.如果真结束
临时文本 ＝ 分割文本 (输出文本, #换行符, )
输出文本 ＝ “”
删除成员 (临时文本, 行数, )


.计次循环首 (取数组成员数 (临时文本), 计次)
    .如果 (取数组成员数 (临时文本) ≠ 计次)
        输出文本 ＝ 输出文本 ＋ 临时文本 [计次] ＋ #换行符
    .否则
        输出文本 ＝ 输出文本 ＋ 临时文本 [计次]
    .如果结束

.计次循环尾 ()

清除数组 (临时文本)
返回 (输出文本)

扯谈i

精易模块里面有命令  文本_取指定变量文本行  跟 删除指定变量文本行

chris12322

子文本替换（）就行，把#换行符 + “3333333” 替换成 “”

就是爽

  

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

变量名	类 型	静态	数组	备 注
分割	文本型		0
a	整数型

编辑框1.内容 ＝ 到文本 (读入文件 (取特定目录 (3) ＋ “\1.txt”))
分割 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (分割), a)
如果真 (寻找文本 (分割 [a], 编辑框2.内容, , 假) ≠ -1)
编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, 分割 [a] ＋ #换行符, “”, , , 真)

计次循环尾 ()
写到文件 (取特定目录 (3) ＋ “\1.txt”, 到字节集 (编辑框1.内容))

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> <br /> 编辑框1.内容 ＝ 到文本 (读入文件 (取特定目录 (3) ＋ “\1.txt”))<br /> 分割 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), a)<br />     .如果真 (寻找文本 (分割 [a], 编辑框2.内容, , 假) ≠ -1)<br />         编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, 分割 [a] ＋ #换行符, “”, , , 真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (取特定目录 (3) ＋ “\1.txt”, 到字节集 (编辑框1.内容))