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

按普通编辑框的方法设置超级编辑框的起始选择位置将是南辕北辙了，怎么办呢？我把“逐字分割文本”例程稍作修改就可以解决这个问题了，请看例程。

提示：超级编辑框有现成的寻找命令，超级编辑框1.寻找 (, , , )，例程保留，可以用于外部超级编辑框。

超级编辑框1.获取焦点 ()
字符位置 ＝ 寻找文本 (超级编辑框1.内容, 编辑框1.内容, , 假)
.如果真 (字符位置 ≠ -1)
文本 ＝ 取文本左边 (超级编辑框1.内容, 字符位置 － 1)
超级编辑框1.起始选择位置 ＝ 取字符数 (文本)
超级编辑框1.被选择字符数 ＝ 取字符数 (编辑框1.内容)

长度 ＝ 取文本长度 (文本)
个数 ＝ 长度
字符位置 ＝ 1
.判断循环首 (字符位置 ＜ 长度)
.如果 (取代码 (取文本中间 (文本, 字符位置, 1), ) ＜ 0 或 取代码 (取文本中间 (文本, 字符位置, 1), ) ＝ 13)
个数 ＝ 个数 － 1
字符位置 ＝ 字符位置 ＋ 2
.否则
字符位置 ＝ 字符位置 ＋ 1
.如果结束

.判断循环尾 ()
返回 (个数)