选择指定文本行

妙转人生

回答一个问题：易语言怎么取中间文本如指定行号开始，结束是 完毕
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14863649
(出处: 精易论坛)

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
总文本行集	文本型	0
文本总行数	整数型
文本行位置	整数型
当前文本行	文本型
起始行位置	整数型
结束行位置	整数型
要寻找的文本	文本型

子程序名	返回值类型	公开	备 注
_文本编辑框_内容被改变

总文本行集 ＝ 分割文本 (文本编辑框.内容, #换行符, )  ' 根据换行符分割文本，获得总文本行集合。
文本总行数 ＝ 取数组成员数 (总文本行集)  ' 获取文本的总行数。
文本所在行信息编辑框.内容 ＝ “”
计次循环首 (文本总行数, 文本行位置)  ' 循环文本的总行数次，每次循环时已循环的次数作为文本行位置。
' 本循环用于给文本每行添加对应的文本行位置。
当前文本行 ＝ 总文本行集 [文本行位置]  ' 每次循环取出 总文本行集 中的对应文本行内容，作为当前文本行。
文本所在行信息编辑框.加入文本 (“第” ＋ 到文本 (文本行位置) ＋ “行 ” ＋ 当前文本行 ＋ #换行符 )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_起始行位置编辑框_内容被改变

_结束行位置编辑框_内容被改变 ()

子程序名	返回值类型	公开	备 注
_结束行位置编辑框_内容被改变

结束行位置 ＝ 到整数 (结束行位置编辑框.内容)  ' 获取被选择的文本结束行位置。
起始行位置 ＝ 到整数 (起始行位置编辑框.内容)  ' 获取被选择的文本起始行位置。
如果真 (结束行位置 ≥ 1 且 结束行位置 ≤ 文本总行数)  ' 要是结束行位置 大于等于 1，并且 小于等于 文本总行数。
如果真 (结束行位置 ≥ 起始行位置)  ' 要是结束行位置 大于等于 上个起始行位置。
显示被选择文本编辑框.内容 ＝ “”  ' 清空上一次被选择文本。
计次循环首 (文本总行数, 文本行位置)  ' 循环文本的总行数次，每次循环时已循环的次数作为文本行位置。
' 本循环用于显示被选择的文本。
当前文本行 ＝ 总文本行集 [文本行位置]  ' 每次循环取出 总文本行集 中的对应文本行内容，作为当前文本行。
如果真 (文本行位置 ≥ 起始行位置 且 文本行位置 ≤ 结束行位置)  ' 要是本次所循环对应的文本行位置 大于等于 起始行位置，并且 小于等于 结束行位置。
显示被选择文本编辑框.加入文本 (当前文本行 ＋ #换行符 )  ' 把当前文本行作为被选择的文本行，并显示出来。

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_寻找文本编辑框_内容被改变

要寻找的文本 ＝ 寻找文本编辑框.内容  ' 获取要寻找的文本 。
文本所在行信息编辑框.内容 ＝ “”
计次循环首 (文本总行数, 文本行位置)  ' 循环文本的总行数次，每次循环时已循环的次数作为文本行位置。
' 本循环用于在总文本行中找到要寻找的文本，并把所在文本行显示出来。
当前文本行 ＝ 总文本行集 [文本行位置]  ' 每次循环取出 总文本行集 中的对应文本行内容，作为当前文本行。
如果真 (寻找文本 (当前文本行, 要寻找的文本, 1, 真) ≠ -1)  ' 要是在当前文本行中找到要寻找的文本。
文本所在行信息编辑框.加入文本 (“第” ＋ 到文本 (文本行位置) ＋ “行 ” ＋ 当前文本行 ＋ #换行符 )

计次循环尾 ()
如果真 (寻找文本编辑框.内容 ＝ “”)
文本所在行信息编辑框.内容 ＝ “”
_文本编辑框_内容被改变 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 总文本行集, 文本型, , "0"<br /> .程序集变量 文本总行数, 整数型<br /> .程序集变量 文本行位置, 整数型<br /> .程序集变量 当前文本行, 文本型<br /> .程序集变量 起始行位置, 整数型<br /> .程序集变量 结束行位置, 整数型<br /> .程序集变量 要寻找的文本, 文本型<br /> <br /> .子程序 _文本编辑框_内容被改变<br /> <br /> 总文本行集 ＝ 分割文本 (文本编辑框.内容, #换行符, )  ' 根据换行符分割文本，获得总文本行集合。<br /> 文本总行数 ＝ 取数组成员数 (总文本行集)  ' 获取文本的总行数。<br /> 文本所在行信息编辑框.内容 ＝ “”<br /> .计次循环首 (文本总行数, 文本行位置)  ' 循环文本的总行数次，每次循环时已循环的次数作为文本行位置。<br />     ' 本循环用于给文本每行添加对应的文本行位置。<br />     当前文本行 ＝ 总文本行集 [文本行位置]  ' 每次循环取出 总文本行集 中的对应文本行内容，作为当前文本行。<br />     文本所在行信息编辑框.加入文本 (“第” ＋ 到文本 (文本行位置) ＋ “行 ” ＋ 当前文本行 ＋ #换行符)<br /> .计次循环尾 ()<br /> <br /> .子程序 _起始行位置编辑框_内容被改变<br /> <br /> _结束行位置编辑框_内容被改变 ()<br /> <br /> .子程序 _结束行位置编辑框_内容被改变<br /> <br /> 结束行位置 ＝ 到整数 (结束行位置编辑框.内容)  ' 获取被选择的文本结束行位置。<br /> 起始行位置 ＝ 到整数 (起始行位置编辑框.内容)  ' 获取被选择的文本起始行位置。<br /> .如果真 (结束行位置 ≥ 1 且 结束行位置 ≤ 文本总行数)  ' 要是结束行位置 大于等于 1，并且 小于等于 文本总行数。<br />     .如果真 (结束行位置 ≥ 起始行位置)  ' 要是结束行位置 大于等于 上个起始行位置。<br />         显示被选择文本编辑框.内容 ＝ “”  ' 清空上一次被选择文本。<br />         .计次循环首 (文本总行数, 文本行位置)  ' 循环文本的总行数次，每次循环时已循环的次数作为文本行位置。<br />             ' 本循环用于显示被选择的文本。<br />             当前文本行 ＝ 总文本行集 [文本行位置]  ' 每次循环取出 总文本行集 中的对应文本行内容，作为当前文本行。<br />             .如果真 (文本行位置 ≥ 起始行位置 且 文本行位置 ≤ 结束行位置)  ' 要是本次所循环对应的文本行位置 大于等于 起始行位置，并且 小于等于 结束行位置。<br />                 显示被选择文本编辑框.加入文本 (当前文本行 ＋ #换行符)  ' 把当前文本行作为被选择的文本行，并显示出来。<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _寻找文本编辑框_内容被改变<br /> <br /> 要寻找的文本 ＝ 寻找文本编辑框.内容  ' 获取要寻找的文本 。<br /> 文本所在行信息编辑框.内容 ＝ “”<br /> .计次循环首 (文本总行数, 文本行位置)  ' 循环文本的总行数次，每次循环时已循环的次数作为文本行位置。<br />     ' 本循环用于在总文本行中找到要寻找的文本，并把所在文本行显示出来。<br />     当前文本行 ＝ 总文本行集 [文本行位置]  ' 每次循环取出 总文本行集 中的对应文本行内容，作为当前文本行。<br />     .如果真 (寻找文本 (当前文本行, 要寻找的文本, 1, 真) ≠ -1)  ' 要是在当前文本行中找到要寻找的文本。<br />         文本所在行信息编辑框.加入文本 (“第” ＋ 到文本 (文本行位置) ＋ “行 ” ＋ 当前文本行 ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (寻找文本编辑框.内容 ＝ “”)<br />     文本所在行信息编辑框.内容 ＝ “”<br />     _文本编辑框_内容被改变 ()<br /> .如果真结束

选择指定文本行.e (11.39 KB, 下载次数: 12)

2025-9-9 09:51 上传

点击文件名下载附件
已修复在更新 要被选择的文本 时，文本所在行信息 会错误保留上一次的 要被选择的文本 问题
修复方式：在 _文本编辑框_内容被改变 子程序内的第二行代码后面插入修复代码 文本所在行信息编辑框.内容 ＝ “” 即可。

lm88818

感谢分享，很给力！~

红葡萄

{:7_458:}{:7_458:}

红葡萄

6666666666666666666666666666666

红葡萄

好东西，谢谢分享！

z618

感谢大神分享

红葡萄

哈哈哈哈哈

lyjzyq

感谢大神分享

lyjzyq

感谢大神分享

lyjzyq

感谢大神分享

胖子葛格

感谢大神分享