精易论坛

标题: 寻找文本内容改变字符颜色看示意图。适用于seo伪原创文章 [打印本页]

作者: 忧虑天使    时间: 2023-7-7 14:14
标题: 寻找文本内容改变字符颜色看示意图。适用于seo伪原创文章
首先感谢大大发布的寻找选中文本

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

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

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

  
窗口程序集名保 留  保 留备 注
窗口程序集_主窗口   
子程序名返回值类型公开备 注
_按钮_寻找并选中文本_被单击  
变量名类 型静态数组备 注
局部_字符位置整数型 
局部_文本文本型 
超级编辑框_原文.获取焦点 ()
局部_字符位置 = 寻找文本 (超级编辑框_原文.内容, 编辑框_要寻找的文本.内容, , )
如果 (局部_字符位置 ≠ -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扩展界面支持库二




作者: 忧虑天使    时间: 2023-7-7 14:14
本帖最后由 忧虑天使 于 2023-7-7 14:15 编辑

总算把附件搞好!
作者: 396384183    时间: 2023-7-7 14:23

感谢分享
作者: crossdiy    时间: 2023-7-7 14:25
感谢分享
作者: 网络注册会员    时间: 2023-7-7 16:30
感谢分享
作者: wuqingg    时间: 2023-7-7 16:35
路过~~~~~~~~~~~~~~
作者: kyo9766    时间: 2023-7-7 16:44
如果超级编辑框改为RTF丰富文本模式,那个寻找文件就不好用了,感谢分享
作者: 君九    时间: 2023-7-7 18:35
这个不错
作者: 沈远    时间: 2023-7-7 20:50
#在这里快速回复#这个不错
作者: 沈远    时间: 2023-7-7 20:50
和支持开源
作者: pipicool    时间: 2023-7-7 21:08
学习一下
作者: 一指温柔    时间: 2023-7-8 08:34
学习一下
作者: 亿万    时间: 2023-7-10 20:57
支持开源~!感谢分享
作者: htgame    时间: 2023-7-15 02:20
青岛市手动阀
作者: xia3422    时间: 2024-6-3 08:35
打包成品下载地址回复可见




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4