易语言提取本地txt文档中含有指定关键词的哪一行然后保存
3个回答
展开全部
.版本 2
.程序集知渣 窗口程序集1
.程序集变量 文本组, 文本型, , "0"
.程序集变量 文本, 文本型
.程序集变量 内容, 文兆握本型
.程序集变量 计次, 整数型
.子程序 __启动窗口_创建完毕
标签1.是否自动折行 = 真
通用对话框1.初始目录 = 取运行目录 ()
通用对话框1.过滤器 = “文本文件(txt)|*.txt”
.如果真 (通用对话框1.打开 ())
标签1.标题 = 到文本 (读入文件 (通用对话框1.文件名))
文本组 = 分割文本 (标签1.标题, #换行符, )
.如果真结束
.子程序 _按钮1_被单族猛庆击
文本 = “”
.如果真 (编辑框1.内容 = “”)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本组), 计次)
.如果真 (寻找文本 (文本组 [计次], 编辑框1.内容, , 假) ≠ -1)
文本 = 文本 + 文本组 [计次] + #换行符
.如果真结束
.计次循环尾 ()
内容 = 文本 + 到文本 (读入文件 (取运行目录 () + “\新建.txt”))
写到文件 (取运行目录 () + “\新建.txt”, 到字节集 (内容))
.程序集知渣 窗口程序集1
.程序集变量 文本组, 文本型, , "0"
.程序集变量 文本, 文本型
.程序集变量 内容, 文兆握本型
.程序集变量 计次, 整数型
.子程序 __启动窗口_创建完毕
标签1.是否自动折行 = 真
通用对话框1.初始目录 = 取运行目录 ()
通用对话框1.过滤器 = “文本文件(txt)|*.txt”
.如果真 (通用对话框1.打开 ())
标签1.标题 = 到文本 (读入文件 (通用对话框1.文件名))
文本组 = 分割文本 (标签1.标题, #换行符, )
.如果真结束
.子程序 _按钮1_被单族猛庆击
文本 = “”
.如果真 (编辑框1.内容 = “”)
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本组), 计次)
.如果真 (寻找文本 (文本组 [计次], 编辑框1.内容, , 假) ≠ -1)
文本 = 文本 + 文本组 [计次] + #换行符
.如果真结束
.计次循环尾 ()
内容 = 文本 + 到文本 (读入文件 (取运行目录 () + “\新建.txt”))
写到文件 (取运行目录 () + “\新建.txt”, 到字节集 (内容))
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询