易语言寻找文本并移动到找到的内容处

答案:1 悬赏:20 手机版

解决时间 2021-03-02 15:45

提问者网友：龅牙恐龙妹
2021-03-02 06:23

易语言寻找文本并移动到找到的内容处

最佳答案

五星知识达人网友：佘樂
2021-03-02 07:47

.版本 2
.子程序查找文本
.参数查找内容, 文本型
.参数欲查找内容, 编辑框
.参数类型, , , 1向下查找 2 向上查找
.如果真 (类型＝ 1)
寻找位置＝寻找文本 (欲查找内容.内容, 查找内容, 寻找位置, 假)
.如果真 (寻找位置＝ -1)
总在最前＝假
信息框 (“找不到 ” ＋查找内容, 0, )
返回 ()
.如果真结束
欲查找内容.获取焦点 ()
欲查找内容.起始选择位置＝寻找位置
欲查找内容.被选择字符数＝取文本长度 (查找内容)
寻找位置＝寻找位置＋取文本长度 (查找内容) ＋ 2
.如果真结束
.如果真 (类型＝ 2)
.如果 (寻找位置＝ 0)
寻找位置＝倒找文本 (欲查找内容.内容, 查找内容, , 假)
.否则
寻找位置＝倒找文本 (欲查找内容.内容, 查找内容, 寻找位置, 假)
.如果结束
.如果真 (寻找位置＝ -1)
总在最前＝假
信息框 (“找不到 ” ＋查找内容, 0, )
返回 ()
.如果真结束
欲查找内容.获取焦点 ()
欲查找内容.起始选择位置＝寻找位置
欲查找内容.被选择字符数＝取文本长度 (查找内容)
寻找位置＝寻找位置－取文本长度 (查找内容)

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！