|
55楼
发表于 2021-5-22 05:57:30
|
只看该作者
广西壮族自治区柳州市
- .版本 2
- .支持库 spec
- .程序集 窗口程序集_启动窗口
- .子程序 __启动窗口_创建完毕
- 调试输出 (文本的错别字和正常的字去找出来 (#存在可能错别字, #正常的字))
- 编辑框1.内容 = #存在可能错别字
- 编辑框2.内容 = #正常的字
- .子程序 文本的错别字和正常的字去找出来, 文本型
- .参数 可能错别字, 文本型
- .参数 正常的字, 文本型
- .局部变量 正则, 对象
- .局部变量 更正结果, 文本型
- .局部变量 结果判断, 文本型
- 正则.创建 (“VBScript.RegExp”, )
- 正则.写属性 (“IgnoreCase”, 假) ' 匹配时不区分大小写
- 正则.写属性 (“Multiline”, 真) ' 是否匹配多行
- 正则.写属性 (“Global”, 真) ' 是否全局匹配
- 正则.写属性 (“Pattern”, “([^,。\s\x08]+)[^,。\s\x08](?=[\s\S]+?\x08[\s\S]+?(\1)([^,。\s\x08]))”)
- 更正结果 = 可能错别字 + #换行符 + 字符 (8) + 正常的字
- .循环判断首 ()
- 结果判断 = 更正结果
- 更正结果 = 正则.文本方法 (“Replace”, 更正结果, “$1$3”)
- .循环判断尾 (结果判断 ≠ 更正结果)
- 正则.写属性 (“Pattern”, “([^,。\s\x08]+)([^,。\s\x08])(?=[\s\S]+?\x08[\s\S]+?(\1[^,。\s\x08]+))”)
- 更正结果 = 正则.文本方法 (“Replace”, 更正结果, “$3”)
- 更正结果 = 取文本左边 (更正结果, 寻找文本 (更正结果, 字符 (8), , 假) - 1)
- 返回 (更正结果)
复制代码
|
|