清除文本中的所有符号

lfz520 · 发表于 2021-10-6 21:00:59

https://125.confly.eu.org/forum.php?mod=viewthread&tid=14701325&extra=
上一个贴跟大家讨论了一下清除符号的方法，感兴趣的可以去看看当时的想法，发表后，我就开始实践，发现运行没问题，于是就把代码发了上来。
我经常遇到符号的问题，所以希望也能帮助到有同样问题的朋友。

清除所有符号.e (14.06 KB, 下载次数: 39)

子程序名	返回值类型	公开	备注
清除符号

变量名	类型	静态	数组	备注
正则	正则表达式
文本	文本型
文本数组	文本型		0
n	整数型

' //清除空白字符开始//
正则.创建 (“\r|\n|\t| |\f|\v”, )
文本＝正则.替换 (编辑框1.内容, “”, 1, , 真, 真)
' //清除空白字符结束//
编辑框1.内容＝文本
' //取出英文数字中文以外的内容---特殊符号//
正则.创建 (“[\u4e00-\u9fa5A-Za-z0-9]”, )
文本＝正则.替换 (文本, “”, 1, , 真, 真)
' //取出特殊符号完毕//
' //逐字分割特殊字符，并去重，最后的【四个源码】提取于【精易模块】//
文本_逐字分割 (文本, 文本数组)
数组_去重复 (文本数组, )
' //符号去重复完毕//
文本＝编辑框1.内容
' //清除键盘符号，防止漏掉的键盘符号//
正则.创建 (“(?=[\x21-\x7e]+)[^A-Za-z0-9]”, )
文本＝正则.替换 (文本, “”, 1, , 真, 真)
' //键盘符号清除完毕//
' //符号挨个替换//

计次循环首 (取数组成员数 (文本数组), n)

文本＝子文本替换 (文本, 文本数组 [n], “”, , , 真)

计次循环尾 ()
' //符号替换完毕//
编辑框1.内容＝文本