文本编辑框改变颜色，多行关键字搜索高亮

集_寻找位置 ＝ 集_寻找位置 ＋ 1
超级编辑框1.获取焦点 ()
局_字符位置 ＝ 寻找文本 (超级编辑框1.内容, 编辑框1.内容, 集_寻找位置, 假)
.如果真 (局_字符位置 ≠ -1)
局_文本 ＝ 取文本左边 (超级编辑框1.内容, 局_字符位置 － 1)
超级编辑框1.起始选择位置 ＝ 子程序_取字符数 (局_文本)
超级编辑框1.被选择字符数 ＝ 子程序_取字符数 (编辑框1.内容)
集_寻找位置 ＝ 局_字符位置
dfdg (超级编辑框1, #红色, 编辑框1.内容)

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

.判断循环尾 ()