求助一个关于文本查找变色的问题

shinefeel · 发表于 7 天前

急求一个功能组件，应该不难，只是没接触过
要求如下：
程序内设置好若干个关键词
编辑框内输入一段文字后，点击按钮，在另一个编辑框内显示同样的一段文字同时对于库内的关键词标红处理

zainex · 发表于 7 天前

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
关键字	文本型	0

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

变量名	类型	静态	数组	备注
长度	整数型
字符格式	字符格式
数	整数型
值	整数型
找到	逻辑型

超级编辑框1.内容＝编辑框1.内容
字符格式.文本颜色＝ #黑色
超级编辑框1.被选择字符数＝ -1
超级编辑框1.置选择区字符格式 (字符格式)
超级编辑框1.起始选择位置＝ 0
超级编辑框1.被选择字符数＝ 1
字符格式.文本颜色＝ #红色

判断循环首 (超级编辑框1.被选择字符数 ≠ 0)

' 调试输出 (超级编辑框1.被选择文本)

计次循环首 (取数组成员数 (关键字), 数)

找到＝假

计次循环首 (取文本长度 (关键字 [数]), 值)

超级编辑框1.被选择字符数＝值

如果真 (超级编辑框1.被选择文本＝关键字 [数])

超级编辑框1.置选择区字符格式 (字符格式)

超级编辑框1.起始选择位置＝超级编辑框1.起始选择位置＋值－ 1

找到＝真

跳出循环 ()

计次循环尾 ()

如果真 (找到＝真)

跳出循环 ()

计次循环尾 ()

超级编辑框1.起始选择位置＝超级编辑框1.起始选择位置＋ 1

超级编辑框1.被选择字符数＝ 1

判断循环尾 ()

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

变量名	类型	静态	数组	备注
数	整数型
值	整数型

关键字＝ { “急”, “一个”, “一个编辑”, “框”, “词”, “处理”, “关键” }

计次循环首 (取数组成员数 (关键字), 数)

计次循环首 (取数组成员数 (关键字) －数, 值)

如果真 (取文本长度 (关键字 [值]) ＜取文本长度 (关键字 [值＋ 1]))

交换变量 (关键字 [值], 关键字 [值＋ 1])

计次循环尾 ()

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br />
.支持库 iext2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 关键字, 文本型, , "0"<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 长度, 整数型<br />
.局部变量 字符格式, 字符格式<br />
.局部变量 数, 整数型<br />
.局部变量 值, 整数型<br />
.局部变量 找到, 逻辑型<br />
<br />
超级编辑框1.内容 ＝ 编辑框1.内容<br />
字符格式.文本颜色 ＝ #黑色<br />
超级编辑框1.被选择字符数 ＝ -1<br />
超级编辑框1.置选择区字符格式 (字符格式)<br />
超级编辑框1.起始选择位置 ＝ 0<br />
超级编辑框1.被选择字符数 ＝ 1<br />
字符格式.文本颜色 ＝ #红色<br />
.判断循环首 (超级编辑框1.被选择字符数 ≠ 0)<br />
    ' 调试输出 (超级编辑框1.被选择文本)<br />
    .计次循环首 (取数组成员数 (关键字), 数)<br />
        找到 ＝ 假<br />
        .计次循环首 (取文本长度 (关键字 [数]), 值)<br />
            超级编辑框1.被选择字符数 ＝ 值<br />
            .如果真 (超级编辑框1.被选择文本 ＝ 关键字 [数])<br />
                超级编辑框1.置选择区字符格式 (字符格式)<br />
                超级编辑框1.起始选择位置 ＝ 超级编辑框1.起始选择位置 ＋ 值 － 1<br />
                找到 ＝ 真<br />
                跳出循环 ()<br />
            .如果真结束<br />
<br />
        .计次循环尾 ()<br />
        .如果真 (找到 ＝ 真)<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
    超级编辑框1.起始选择位置 ＝ 超级编辑框1.起始选择位置 ＋ 1<br />
    超级编辑框1.被选择字符数 ＝ 1<br />
.判断循环尾 ()<br />
<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 数, 整数型<br />
.局部变量 值, 整数型<br />
<br />
关键字 ＝ { “急”, “一个”, “一个编辑”, “框”, “词”, “处理”, “关键” }<br />
.计次循环首 (取数组成员数 (关键字), 数)<br />
    .计次循环首 (取数组成员数 (关键字) － 数, 值)<br />
        .如果真 (取文本长度 (关键字 [值]) ＜ 取文本长度 (关键字 [值 ＋ 1]))<br />
            交换变量 (关键字 [值], 关键字 [值 ＋ 1])<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
.计次循环尾 ()

效果:

例子.zip (1.94 KB, 下载次数: 2)