易语言超级编辑框中寻找指定文本并选中的示例

超级编辑框中寻找指定文本并选中

.版本 2

.支持库 iext2

.程序集窗口程序集1

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

.子程序取字符数, 整数型

.参数文本, 文本型

.局部变量长度, 整数型

.局部变量个数, 整数型

.局部变量字符位置, 整数型

长度＝取文本长度 (文本)

个数＝长度

字符位置＝ 1

.判断循环首 (字符位置＜长度)

.如果 (取代码 (取文本中间 (文本, 字符位置, 1), ) ＜ 0 或取代码 (取文本中间 (文本, 字符位置, 1), ) ＝ 13)

个数＝个数－ 1

字符位置＝字符位置＋ 2

.否则

字符位置＝字符位置＋ 1

.如果结束

.判断循环尾 ()

返回 (个数)

.子程序 _按钮_寻找文本_被单击

.局部变量字符位置, 整数型

.局部变量文本, 文本型

超级编辑框_文本.获取焦点 ()

字符位置＝寻找文本 (超级编辑框_文本.内容, 编辑框_输入要寻找的文本.内容, , 假)

.如果真 (字符位置 ≠ -1)

文本＝取文本左边 (超级编辑框_文本.内容, 字符位置－ 1)

超级编辑框_文本.起始选择位置＝取字符数 (文本)

超级编辑框_文本.被选择字符数＝取字符数 (编辑框_输入要寻找的文本.内容)

.如果真结束

运行结果：

总结