本帖最后由 bxcbxiwadrw 于 2026-5-20 22:30 编辑
最近有点时间，除了继续深入学习，不知道写点什么，于是盯上了悬赏区
今天再写个工具，有用到的朋友可以试试看
悬赏贴地址：https://www.52pojie.cn/thread-2108019-1-1.html
功能演示：
功能非常简单,就是解决办公软件复制时的富文本格式带出问题
源码：
[Visual Basic] 纯文本查看 复制代码 .版本 2
.支持库 iext
.程序集 窗口程序集_启动窗口
.程序集变量 程序集_上次剪辑板文本, 文本型
.子程序 _时钟1_周期事件
.局部变量 原始文本, 文本型
.局部变量 清洗文本, 文本型
原始文本 ＝ 取剪辑板文本 ()
.如果真 (原始文本 ＝ 程序集_上次剪辑板文本)
返回 ()
.如果真结束
.如果真 (原始文本 ≠ “”)
程序集_上次剪辑板文本 ＝ 原始文本
写日志 (“【检测到新复制】内容长度：” ＋ 到文本 (取文本长度 (原始文本)))
清洗文本 ＝ 原始文本
清洗文本 ＝ 删全部空 (清洗文本)
清洗文本 ＝ 子文本替换 (清洗文本, 字符 (160), “”, , , 真)
清洗文本 ＝ 子文本替换 (清洗文本, 字符 (9), “”, , , 真)
清洗文本 ＝ 子文本替换 (清洗文本, 字符 (10), “”, , , 真)
清洗文本 ＝ 子文本替换 (清洗文本, 字符 (13), “”, , , 真)
.如果真 (清洗文本 ≠ 原始文本)
程序集_上次剪辑板文本 ＝ 清洗文本
置剪辑板文本 (清洗文本)
写日志 (“【清洗成功】干净文本为：” ＋ 清洗文本)
返回 ()
.如果真结束
写日志 (“内容本身无格式，无需清洗”)
返回 ()
.如果真结束
.如果真 (程序集_上次剪辑板文本 ≠ “”)
程序集_上次剪辑板文本 ＝ “”
写日志 (“检测到剪辑板被清空或复制了非文本内容”)
.如果真结束
.子程序 写日志
.参数 消息, 文本型
.局部变量 时间, 文本型
.局部变量 索引, 整数型
时间 ＝ 到文本 (取现行时间 ())
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 时间)
超级列表框1.置标题 (索引, 1, 消息)
超级列表框1.保证显示 (索引)
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 ＝ 300
工具：
26.5.18更新：
添加置顶、取消置顶、开始、暂停工具按钮选项
26.5.19更新:
超过规定字数不进行清洗
下方三个按钮添加弹窗提示以区分功能是否操作完成
26.5.20
修复因超过规定字数不进行清洗逻辑错误导致的不可用问题
wps纯文本复制助手.rar
(310.8 KB, 下载次数: 7)
| 
[复制链接]
发表于 2026-5-17 17:33
|
发表于 2026-5-17 20:27
