原生记事本查找功能例子

.如果 (选择框_区分大小写.选中 ＝ 真)
局_区分大小写 ＝ 真
.否则
局_区分大小写 ＝ 假
.如果结束
局_欲查找内容 ＝ 编辑框_关键字.内容
编辑框_内容.获取焦点 ()
局_文本位置 ＝ 倒找文本 (编辑框_内容.内容, 局_欲查找内容, 编辑框_内容.起始选择位置 ＋ 1, 局_区分大小写)
.如果 (局_文本位置 ＝ -1)
编辑框_内容.获取焦点 ()
编辑框_内容.起始选择位置 ＝ 0
编辑框_内容.被选择字符数 ＝ 0
.否则
编辑框_内容.起始选择位置 ＝ 局_文本位置 － 1
编辑框_内容.被选择字符数 ＝ 取文本长度 (局_欲查找内容)