易语言怎么删除文本含关键词的行并删除该行附近（上下）的行数??

Question

如题所述

Answer 1

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 文本组, 文本型, , "0"

.程序集变量 文本, 文本型

.程序集变量 计次, 整数型

.子程序 __启动窗口_创建完毕

标签1.是否自动折行 ＝ 真

标签1.标题 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\文本文档.txt”))

.子程序 _按钮1_被单击

文本组 ＝ 分割文本 (标签1.标题, #换行符, )

文本 ＝ “”

.如果真 (编辑框1.内容 ＝ “”)

返回 ()

.如果真结束

.计次循环首 (取数组成员数 (文本组), 计次)

.如果真 (文本组 [计次] ＝ “”)

到循环尾 ()

.如果真结束

.如果真 (寻找文本 (文本组 [计次], 编辑框1.内容, , 假) ≠ -1)

文本组 [计次] ＝ “”

.如果真 (计次 － 1 ≥ 1)

文本组 [计次 － 1] ＝ “”

.如果真结束

.如果真 (计次 ＋ 1 ≤ 取数组成员数 (文本组))

文本组 [计次 ＋ 1] ＝ “”

.如果真结束

.如果真结束

.计次循环尾 ()

.计次循环首 (取数组成员数 (文本组), 计次)

.如果真 (文本组 [计次] ≠ “”)

文本 ＝ 文本 ＋ 文本组 [计次] ＋ #换行符

.如果真结束

.计次循环尾 ()

标签1.标题 ＝ 文本

写到文件 (取运行目录 () ＋ “\新建.txt”, 到字节集 (文本))

Answer 2

你这个文本是在文件里还是在别的什么地方呢？
简单的办法至少有两个：
第一个办法的核心命令是读入一行，不过用这个办法你必须先把文本写到文件里才行。
第二个办法的核心命令是分割文本，不过使用这个命令你必须要懂数组。

Answer 3

.版本 2
.程序集 窗口程序集1
.程序集变量 文本组, 文本型, , "0"
.程序集变量 文本, 文本型
.程序集变量 内容, 文本型
.程序集变量 计次, 整数型
.子程序 __启动窗口_创建完毕
标签1.是否自动折行 ＝ 真
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “文本文件(txt)|*.txt”
.如果真 (通用对话框1.打开 ())
标签1.标题 ＝ 到文本 (读入文件 (通用对话框1.文件名))
文本组 ＝ 分割文本 (标签1.标题, #换行符, )
.如果真结束
.子程序 _按钮1_被单击
文本 ＝ “”
.如果真 (编辑框1.内容 ＝ “”)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本组), 计次)
.如果真 (寻找文本 (文本组 [计次], 编辑框1.内容, , 假) ≠ -1)
文本 ＝ 文本 ＋ 文本组 [计次] ＋ #换行符
.如果真结束
.计次循环尾 ()
内容 ＝ 文本 ＋ 到文本 (读入文件 (取运行目录 () ＋ “\新建.txt”))
写到文件 (取运行目录 () ＋ “\新建.txt”, 到字节集 (内容))追问

求教删除含关键词的那一行和他上下两行该怎么？