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

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