寻找文本中的关键字，

aManQ

寻找一段文本中的关键字，如果找到调到当前位置并标记，如果再次点击跳到下一个关键字
有思路，貌似实现不了，中文用是否双字节集，但是貌似效果不咋地，老板们谁给个思路啊

jr21066

来个全例子

jr21066

编辑软件?
使用超级编辑框可解决

传奇

看着怎么像 ctrl+f 呢！~

aManQ

jr21066 发表于 2018-10-14 17:03
编辑软件?
使用超级编辑框可解决

你好能否给个例子看下 这回已经蒙了

15910791922

第三方

落枫_rain

思路的话很简单啊,两种思路
1.将关键字查找到的索引位置保存到数组,每次点击查找的时候把索引+1就行
2.每次查找的时候,把跳转到的索引位置设置为查找的起点,然后这样自然就会往后查找了

aManQ

jr21066 发表于 2018-10-14 17:16
来个全例子

额额额额额

aManQ

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	整数型
字符格式	字符格式
b	双精度小数型

超级编辑框1.起始选择位置 ＝ 1
超级编辑框1.被选择字符数 ＝ 取文本长度 (超级编辑框1.内容)
字符格式.文本颜色 ＝ #黑色
字符格式.效果 ＝ 0
超级编辑框1.置选择区字符格式 (字符格式)
a ＝ 取启动时间 ()
查找文本 (编辑框1.内容)
调试输出 (取启动时间 () － a)

子程序名	返回值类型	公开	备 注
取字符数目	整数型
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
b	字节集
c	整数型
n	整数型
z	整数型
双字节	整数型

b ＝ 到字节集 (文本)
c ＝ 取字节集长度 (b)
n ＝ 1
判断循环首 (n ≤ c)
如果 (n ＋ 1 ＞ c)
z ＝ 1
如果 (b [n] ＞ 128)
z ＝ 2
双字节 ＝ 双字节 ＋ 1
如果 (b [n] ≠ 13)
z ＝ 1
如果 (b [n ＋ 1] ＝ 10)
z ＝ 2
双字节 ＝ 双字节 ＋ 1
z ＝ 1



n ＝ n ＋ z
判断循环尾 ()
返回 (双字节)

子程序名	返回值类型	公开	备 注
查找文本
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
b	整数型
字符格式	字符格式
全文本	文本型
m	整数型
n	整数型
n1	整数型
m1	整数型

全文本 ＝ 超级编辑框1.内容
b ＝ 取文本长度 (文本)
m ＝ 取字符数目 (文本)
a ＝ 寻找文本 (全文本, 文本, a ＋ 1, 假)
如果真 (a ≠ -1)
字符格式.文本颜色 ＝ #红色
字符格式.效果 ＝ #粗体
n ＝ 取字符数目 (取文本左边 (全文本, a))
超级编辑框1.起始选择位置 ＝ a － 1 － n
超级编辑框1.被选择字符数 ＝ b － m
超级编辑框1.置选择区字符格式 (字符格式)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

i支持库列表	支持库注释
iext2	扩展界面支持库二
spec	特殊功能支持库

.版本 2<br /> .支持库 iext2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 整数型<br /> .局部变量 字符格式, 字符格式<br /> .局部变量 b, 双精度小数型<br /> <br /> 超级编辑框1.起始选择位置 ＝ 1<br /> 超级编辑框1.被选择字符数 ＝ 取文本长度 (超级编辑框1.内容)<br /> 字符格式.文本颜色 ＝ #黑色<br /> 字符格式.效果 ＝ 0<br /> 超级编辑框1.置选择区字符格式 (字符格式)<br /> a ＝ 取启动时间 ()<br /> 查找文本 (编辑框1.内容)<br /> 调试输出 (取启动时间 () － a)<br /> <br /> .子程序 取字符数目, 整数型<br /> .参数 文本, 文本型<br /> .局部变量 b, 字节集<br /> .局部变量 c, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 z, 整数型<br /> .局部变量 双字节, 整数型<br /> <br /> b ＝ 到字节集 (文本)<br /> c ＝ 取字节集长度 (b)<br /> n ＝ 1<br /> .判断循环首 (n ≤ c)<br />     .如果 (n ＋ 1 ＞ c)<br />         z ＝ 1<br />     .否则<br />         .如果 (b [n] ＞ 128)<br />             z ＝ 2<br />             双字节 ＝ 双字节 ＋ 1<br />         .否则<br />             .如果 (b [n] ≠ 13)<br />                 z ＝ 1<br />             .否则<br />                 .如果 (b [n ＋ 1] ＝ 10)<br />                     z ＝ 2<br />                     双字节 ＝ 双字节 ＋ 1<br />                 .否则<br />                     z ＝ 1<br /> <br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br />     n ＝ n ＋ z<br /> .判断循环尾 ()<br /> 返回 (双字节)<br /> <br /> .子程序 查找文本<br /> .参数 文本, 文本型<br /> .局部变量 b, 整数型<br /> .局部变量 字符格式, 字符格式<br /> .局部变量 全文本, 文本型<br /> .局部变量 m, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 n1, 整数型<br /> .局部变量 m1, 整数型<br /> <br /> 全文本 ＝ 超级编辑框1.内容<br /> b ＝ 取文本长度 (文本)<br /> m ＝ 取字符数目 (文本)<br /> <br /> a ＝ 寻找文本 (全文本, 文本, a ＋ 1, 假)<br /> .如果真 (a ≠ -1)<br />     字符格式.文本颜色 ＝ #红色<br />     字符格式.效果 ＝ #粗体<br />     n ＝ 取字符数目 (取文本左边 (全文本, a))<br />     超级编辑框1.起始选择位置 ＝ a － 1 － n<br />     超级编辑框1.被选择字符数 ＝ b － m<br />     超级编辑框1.置选择区字符格式 (字符格式)<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕

aManQ

一叶风飘絮 发表于 2018-10-14 17:33
思路的话很简单啊,两种思路
1.将关键字查找到的索引位置保存到数组,每次点击查找的时候把索引+1就行
2.每 ...

谢谢 已经找到例子