E2EE支持库,文本过滤器,关键字检测,测试230万字,检测关键字0ms,过滤替换15ms,应该算非常好用的了。
.版本 2
.支持库 e2ee
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 文本, 文本型
.局部变量 关键字数组, 文本型, , "0"
.局部变量 替换数组, 文本型, , "0"
.局部变量 过滤器, 文本过滤器
.局部变量 被检测文本, 文本型
.局部变量 过滤后文本, 文本型
.局部变量 映射表, 存取键值表
.局部变量 过滤后文本2, 文本型
.局部变量 文本2, 文本型
.局部变量 TXT, 文本型
.局部变量 t, 整数型
文本 = “这是一段测试文本。这个世界,有儒;有道;有佛;有妖;有术士。警校毕业的许七安幽幽醒来,发现自己身处牢狱之中,三日后流放边陲.....他起初的目的只是自保,顺便在这个没有人权的社会里当个富家翁悠闲度日。”
文本2 = “有一个警校毕业警察受到牢狱之灾。”
关键字数组 = { “牢狱”, “警校”, “自保”, “社会” }
替换数组 = { “aqa”, “bqb”, “cqc”, “dqd” }
过滤器.创建 (关键字数组, 替换数组)
过滤后文本 = 过滤器.过滤 (文本2)
过滤后文本2 = 过滤器.过滤 (文本)
映射表 = 过滤器.取映射表 ()
调试输出 (过滤器.是否包含关键字 (文本), 过滤器.是否包含关键字 (文本2), 过滤器.是否包含关键字 (“测试一下”))
调试输出 (过滤后文本)
调试输出 (过滤后文本2)
TXT = 到文本 (读入文件 (取运行目录 () + “\1.txt”))
调试输出 (取文本长度 (TXT))
t = 取启动时间 ()
调试输出 (过滤器.是否包含关键字 (TXT))
调试输出 (取启动时间 () - t)
t = 取启动时间 ()
过滤后文本 = 过滤器.过滤 (TXT)
调试输出 (取启动时间 () - t)