易语言，怎么从txt文本中搜索到指定关键词！然后自动获取下一行的信息！

如题所述

.版本 2

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

.子程序 _按钮1_被单击
.局部变量 文本行, 整数型
.局部变量 文本, 文本型

文本 ＝ 编辑框1.内容
文本行 ＝ 文本_取文本所在行 (文本, “ccc”)
编辑框2.内容 ＝ 文本_取指定变量文本行 (文本, 文本行 ＋ 1)


.子程序 文本_取指定变量文本行, 文本型, 公开, 成功返回指定的文本行文本，失败返回空文本。
.参数 文本, 文本型
.参数 行号, 整数型
.局部变量 文本数组, 文本型, , "0"

文本数组 ＝ 分割文本 (文本, #换行符, )
.如果真 (行号 ≤ 0)
    返回 (“”)
.如果真结束
.如果真 (行号 ＞ 取数组成员数 (文本数组))
    返回 (“”)
.如果真结束
返回 (文本数组 [行号])

.子程序 文本_取文本所在行, 整数型, 公开, 查找某段字或关键中在文本中的哪一行出现，成功返回行数，失败返回0
.参数 源文本, 文本型
.参数 欲查找的文本, 文本型
.参数 是否区分大小写, 逻辑型, 可空
.局部变量 局_文本, 文本型, , "0"
.局部变量 局_计次, 整数型

局_文本 ＝ 分割文本 (源文本, #换行符, )
.计次循环首 (取数组成员数 (局_文本), 局_计次)
    .如果真 (寻找文本 (局_文本 [局_计次], 欲查找的文本, , 取反 (是否区分大小写)) ≠ -1)
        返回 (局_计次)
    .如果真结束

.计次循环尾 ()
返回 (0)

希望对你有帮助

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pqppfvfp488qqp82v2.html