寻找文本内容改变字符颜色看示意图。适用于seo伪原创文章

忧虑天使

首先感谢大大发布的寻找选中文本

我仅增加改变寻找到的内容颜色当然也可以改变其背景颜色都是相通的。

适用于伪原创时已替换的字或句醒目提示。
也可用于其他。

文本内容改变颜色.rar (50.78 KB, 下载次数: 20)

2023-7-7 14:15 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_主窗口

子程序名	返回值类型	公开	备 注
_按钮_寻找并选中文本_被单击

变量名	类 型	静态	数组	备 注
局部_字符位置	整数型
局部_文本	文本型

超级编辑框_原文.获取焦点 ()
局部_字符位置 ＝ 寻找文本 (超级编辑框_原文.内容, 编辑框_要寻找的文本.内容, , 假)
如果 (局部_字符位置 ≠ -1)
局部_文本 ＝ 取文本左边 (超级编辑框_原文.内容, 局部_字符位置 － 1)
超级编辑框_原文.起始选择位置 ＝ 子程序_取字符数 (局部_文本)
超级编辑框_原文.被选择字符数 ＝ 子程序_取字符数 (编辑框_要寻找的文本.内容)
信息框 (“未找到指定文本!”, #错误图标, “ 友情提醒”)

子程序名	返回值类型	公开	备 注
_按钮_取字符数量_被单击

标签_显示.标题 ＝ “共有字符数：” ＋ 到文本 (子程序_取字符数 (超级编辑框_原文.内容)) ＋ “ 个”

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

变量名	类 型	静态	数组	备 注
局部_长度	整数型
局部_个数	整数型
局部_字符位置	整数型

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

判断循环尾 ()
返回 (局部_个数)

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

变量名	类 型	静态	数组	备 注
局部_字符位置	整数型
局部_文本	文本型
颜色	整数型
字符格式	字符格式
选择	整数型
颜色值	整数型

选择 ＝ 到整数 (取随机数 (1, 12))
如果真 (选择 ＝ 1)
颜色值 ＝ #红色
如果真 (选择 ＝ 2)
颜色值 ＝ #绿色
如果真 (选择 ＝ 3)
颜色值 ＝ #蓝色
如果真 (选择 ＝ 4)
颜色值 ＝ #黄色
如果真 (选择 ＝ 5)
颜色值 ＝ #粉红
如果真 (选择 ＝ 6)
颜色值 ＝ #品红
如果真 (选择 ＝ 7)
颜色值 ＝ #红色
如果真 (选择 ＝ 8)
颜色值 ＝ #绿色
如果真 (选择 ＝ 9)
颜色值 ＝ #蓝色
如果真 (选择 ＝ 10)
颜色值 ＝ #黄色
如果真 (选择 ＝ 11)
颜色值 ＝ #粉红
如果真 (选择 ＝ 12)
颜色值 ＝ #品红

局部_字符位置 ＝ 寻找文本 (超级编辑框_原文.内容, 编辑框_要寻找的文本.内容, , 假)
如果 (局部_字符位置 ≠ -1)
局部_文本 ＝ 取文本左边 (超级编辑框_原文.内容, 局部_字符位置 － 1)
超级编辑框_原文.起始选择位置 ＝ 子程序_取字符数 (局部_文本)
超级编辑框_原文.被选择字符数 ＝ 子程序_取字符数 (编辑框_要寻找的文本.内容)
信息框 (“未找到指定文本!”, #错误图标, “ 友情提醒”, )
字符格式 ＝ 超级编辑框_原文.取选择区字符格式 ()
字符格式.文本颜色 ＝ 颜色值
超级编辑框_原文.置选择区字符格式 (字符格式)

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

如果 (时钟1.时钟周期 ＞ 299)
时钟1.时钟周期 ＝ 0



时钟1.时钟周期 ＝ 300

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮1_被单击 ()

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

.版本 2<br /> .支持库 iext2<br /> <br /> .程序集 窗口程序集_主窗口<br /> <br /> .子程序 _按钮_寻找并选中文本_被单击<br /> .局部变量 局部_字符位置, 整数型<br /> .局部变量 局部_文本, 文本型<br /> <br /> 超级编辑框_原文.获取焦点 ()<br /> 局部_字符位置 ＝ 寻找文本 (超级编辑框_原文.内容, 编辑框_要寻找的文本.内容, , 假)<br /> .如果 (局部_字符位置 ≠ -1)<br />     局部_文本 ＝ 取文本左边 (超级编辑框_原文.内容, 局部_字符位置 － 1)<br />     超级编辑框_原文.起始选择位置 ＝ 子程序_取字符数 (局部_文本)<br />     超级编辑框_原文.被选择字符数 ＝ 子程序_取字符数 (编辑框_要寻找的文本.内容)<br /> .否则<br />     信息框 (“未找到指定文本!”, #错误图标, “ 友情提醒”)<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮_取字符数量_被单击<br /> <br /> 标签_显示.标题 ＝ “共有字符数：” ＋ 到文本 (子程序_取字符数 (超级编辑框_原文.内容)) ＋ “ 个”<br /> <br /> .子程序 子程序_取字符数, 整数型<br /> .参数 参数_文本, 文本型<br /> .局部变量 局部_长度, 整数型<br /> .局部变量 局部_个数, 整数型<br /> .局部变量 局部_字符位置, 整数型<br /> <br /> 局部_长度 ＝ 取文本长度 (参数_文本)<br /> 局部_个数 ＝ 局部_长度<br /> 局部_字符位置 ＝ 1<br /> .判断循环首 (局部_字符位置 ＜ 局部_长度)<br />     .如果 (取代码 (取文本中间 (参数_文本, 局部_字符位置, 1), ) ＜ 0 或 取代码 (取文本中间 (参数_文本, 局部_字符位置, 1), ) ＝ 13)<br />         局部_个数 ＝ 局部_个数 － 1<br />         局部_字符位置 ＝ 局部_字符位置 ＋ 2<br />     .否则<br />         局部_字符位置 ＝ 局部_字符位置 ＋ 1<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 返回 (局部_个数)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局部_字符位置, 整数型<br /> .局部变量 局部_文本, 文本型<br /> .局部变量 颜色, 整数型<br /> .局部变量 字符格式, 字符格式<br /> .局部变量 选择, 整数型<br /> .局部变量 颜色值, 整数型<br /> <br /> 选择 ＝ 到整数 (取随机数 (1, 12))<br /> <br /> <br /> <br /> .如果真 (选择 ＝ 1)<br />     颜色值 ＝ #红色<br /> .如果真结束<br /> .如果真 (选择 ＝ 2)<br />     颜色值 ＝ #绿色<br /> .如果真结束<br /> .如果真 (选择 ＝ 3)<br />     颜色值 ＝ #蓝色<br /> .如果真结束<br /> .如果真 (选择 ＝ 4)<br />     颜色值 ＝ #黄色<br /> .如果真结束<br /> .如果真 (选择 ＝ 5)<br />     颜色值 ＝ #粉红<br /> .如果真结束<br /> .如果真 (选择 ＝ 6)<br />     颜色值 ＝ #品红<br /> .如果真结束<br /> .如果真 (选择 ＝ 7)<br />     颜色值 ＝ #红色<br /> .如果真结束<br /> .如果真 (选择 ＝ 8)<br />     颜色值 ＝ #绿色<br /> .如果真结束<br /> .如果真 (选择 ＝ 9)<br />     颜色值 ＝ #蓝色<br /> .如果真结束<br /> .如果真 (选择 ＝ 10)<br />     颜色值 ＝ #黄色<br /> .如果真结束<br /> .如果真 (选择 ＝ 11)<br />     颜色值 ＝ #粉红<br /> .如果真结束<br /> .如果真 (选择 ＝ 12)<br />     颜色值 ＝ #品红<br /> .如果真结束<br /> <br /> 局部_字符位置 ＝ 寻找文本 (超级编辑框_原文.内容, 编辑框_要寻找的文本.内容, , 假)<br /> .如果 (局部_字符位置 ≠ -1)<br />     局部_文本 ＝ 取文本左边 (超级编辑框_原文.内容, 局部_字符位置 － 1)<br />     超级编辑框_原文.起始选择位置 ＝ 子程序_取字符数 (局部_文本)<br />     超级编辑框_原文.被选择字符数 ＝ 子程序_取字符数 (编辑框_要寻找的文本.内容)<br /> .否则<br />     信息框 (“未找到指定文本!”, #错误图标, “ 友情提醒”, )<br /> .如果结束<br /> 字符格式 ＝ 超级编辑框_原文.取选择区字符格式 ()<br /> 字符格式.文本颜色 ＝ 颜色值<br /> 超级编辑框_原文.置选择区字符格式 (字符格式)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果 (时钟1.时钟周期 ＞ 299)<br />     时钟1.时钟周期 ＝ 0<br /> <br /> .否则<br /> <br />     时钟1.时钟周期 ＝ 300<br /> .如果结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> <br /> _按钮1_被单击 ()

xia3422

打包成品下载地址回复可见

htgame

青岛市手动阀

亿万

支持开源~！感谢分享

一指温柔

学习一下

pipicool

学习一下

沈远

和支持开源

沈远

#在这里快速回复#这个不错

君九

这个不错

kyo9766

如果超级编辑框改为RTF丰富文本模式，那个寻找文件就不好用了，感谢分享

wuqingg

路过~~~~~~~~~~~~~~