分享一个文本检测非法字符的源码，挺实用

607297

  

子程序名	返回值类型	公开	备 注
文本_检测非法字符	逻辑型		如果检测到符合返回真
参数名	类 型	参考	可空	数组	备 注
待判断的内容	文本型				需要判断的内容。
非法字符	文本型				自定义非法字符组 如自定义则下面判断全部失效
数字	逻辑型				可空 如判断则真 假则不判断
小写字母	逻辑型				可空 如判断则真 假则不判断
大写字母	逻辑型				可空 如判断则真 假则不判断
符号	逻辑型				可空 如判断则真 假则不判断
汉字	逻辑型				可空 如判断则真 假则不判断

变量名	类 型	静态	数组	备 注
字符	文本型			临时存储字符变量
代码	整数型			临时存储字符代码变量
n1	整数型			起始位置 每取出一个字符则递增一个字符的长度
n2	整数型			起始位置 每取出一个字符则递增一个字符的长度
字符组	整数型		0	存储待判断内容字符码
非法组	整数型		0	存储非法字符内容的字符码
Num1	整数型			数量
Num2	整数型			数量
boo	逻辑型			返回结果

n1 ＝ 1
循环判断首 ()
字符 ＝ 取文本中间 (待判断的内容, n1, 1)
如果真 (取代码 (字符, ) ≤ 0)
字符 ＝ 取文本中间 (待判断的内容, n1, 2)
n1 ＝ n1 ＋ 1

代码 ＝ 取代码 (字符, )
如果真 (字符 ≠ “”)
加入成员 (字符组, 代码)
n1 ＝ n1 ＋ 1

循环判断尾 (字符 ≠ “”)
n1 ＝ 1
循环判断首 ()
字符 ＝ 取文本中间 (非法字符, n1, 1)
如果真 (取代码 (字符, ) ≤ 0)
字符 ＝ 取文本中间 (非法字符, n1, 2)
n1 ＝ n1 ＋ 1

代码 ＝ 取代码 (字符, )
如果真 (字符 ≠ “”)
加入成员 (非法组, 代码)
n1 ＝ n1 ＋ 1

循环判断尾 (字符 ≠ “”)
判断 (是否为空 (非法字符))
Num1 ＝ 取数组成员数 (字符组)
计次循环首 (Num1, n1)
代码 ＝ 字符组 [n1]
如果真 (数字)
如果真 (代码 ≥ 48 且 代码 ≤ 58) ' 数字
boo ＝ 真
跳出循环 ()

如果真 (小写字母)
如果真 (代码 ≥ 97 且 代码 ≤ 122) ' 小写字母
boo ＝ 真
跳出循环 ()

如果真 (大写字母)
如果真 (代码 ≥ 65 且 代码 ≤ 90) ' 大写字母
boo ＝ 真
跳出循环 ()

如果真 (符号)
如果真 (代码 ≥ 1 且 代码 ≤ 47 或 代码 ≥ 59 且 代码 ≤ 64 或 代码 ≥ 91 且 代码 ≤ 96) ' 符号
boo ＝ 真
跳出循环 ()

如果真 (汉字)
如果真 (代码 ≤ 0) ' 汉字或符号(负)
如果真 (取拼音 (字符, 1) ＝ “”)
boo ＝ 真
跳出循环 ()



计次循环尾 ()

Num1 ＝ 取数组成员数 (字符组)
Num2 ＝ 取数组成员数 (非法组)
计次循环首 (Num1, n1)
代码 ＝ 字符组 [n1]
计次循环首 (Num2, n2)
如果真 (代码 ＝ 非法组 [n2])
boo ＝ 真
跳出循环 ()

计次循环尾 ()
计次循环尾 ()
返回 (boo)

.版本 2<br /> <br /> .子程序 文本_检测非法字符, 逻辑型, , 如果检测到符合返回真<br /> .参数 待判断的内容, 文本型, , 需要判断的内容。<br /> .参数 非法字符, 文本型, 可空, 自定义非法字符组 如自定义则下面判断全部失效<br /> .参数 数字, 逻辑型, 可空, 可空 如判断则真 假则不判断<br /> .参数 小写字母, 逻辑型, 可空, 可空 如判断则真 假则不判断<br /> .参数 大写字母, 逻辑型, 可空, 可空 如判断则真 假则不判断<br /> .参数 符号, 逻辑型, 可空, 可空 如判断则真 假则不判断<br /> .参数 汉字, 逻辑型, 可空, 可空 如判断则真 假则不判断<br /> .局部变量 字符, 文本型, , , 临时存储字符变量<br /> .局部变量 代码, 整数型, , , 临时存储字符代码变量<br /> .局部变量 n1, 整数型, , , 起始位置 每取出一个字符则递增一个字符的长度<br /> .局部变量 n2, 整数型, , , 起始位置 每取出一个字符则递增一个字符的长度<br /> .局部变量 字符组, 整数型, , "0", 存储待判断内容字符码<br /> .局部变量 非法组, 整数型, , "0", 存储非法字符内容的字符码<br /> .局部变量 Num1, 整数型, , , 数量<br /> .局部变量 Num2, 整数型, , , 数量<br /> .局部变量 boo, 逻辑型, , , 返回结果<br /> <br /> n1 ＝ 1<br /> .循环判断首 ()<br /> 字符 ＝ 取文本中间 (待判断的内容, n1, 1)<br /> <br /> .如果真 (取代码 (字符, ) ≤ 0)<br /> 字符 ＝ 取文本中间 (待判断的内容, n1, 2)<br /> n1 ＝ n1 ＋ 1<br /> .如果真结束<br /> <br /> 代码 ＝ 取代码 (字符, )<br /> <br /> .如果真 (字符 ≠ “”)<br /> 加入成员 (字符组, 代码)<br /> n1 ＝ n1 ＋ 1<br /> .如果真结束<br /> <br /> .循环判断尾 (字符 ≠ “”)<br /> <br /> n1 ＝ 1<br /> .循环判断首 ()<br /> 字符 ＝ 取文本中间 (非法字符, n1, 1)<br /> <br /> .如果真 (取代码 (字符, ) ≤ 0)<br /> 字符 ＝ 取文本中间 (非法字符, n1, 2)<br /> n1 ＝ n1 ＋ 1<br /> .如果真结束<br /> <br /> 代码 ＝ 取代码 (字符, )<br /> <br /> .如果真 (字符 ≠ “”)<br /> 加入成员 (非法组, 代码)<br /> n1 ＝ n1 ＋ 1<br /> .如果真结束<br /> <br /> .循环判断尾 (字符 ≠ “”)<br /> <br /> .判断开始 (是否为空 (非法字符))<br /> Num1 ＝ 取数组成员数 (字符组)<br /> .计次循环首 (Num1, n1)<br /> 代码 ＝ 字符组 [n1]<br /> .如果真 (数字)<br /> .如果真 (代码 ≥ 48 且 代码 ≤ 58) ' 数字<br /> boo ＝ 真<br /> 跳出循环 ()<br /> .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (小写字母)<br /> .如果真 (代码 ≥ 97 且 代码 ≤ 122) ' 小写字母<br /> boo ＝ 真<br /> 跳出循环 ()<br /> .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (大写字母)<br /> .如果真 (代码 ≥ 65 且 代码 ≤ 90) ' 大写字母<br /> boo ＝ 真<br /> 跳出循环 ()<br /> .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (符号)<br /> .如果真 (代码 ≥ 1 且 代码 ≤ 47 或 代码 ≥ 59 且 代码 ≤ 64 或 代码 ≥ 91 且 代码 ≤ 96) ' 符号<br /> boo ＝ 真<br /> 跳出循环 ()<br /> .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (汉字)<br /> .如果真 (代码 ≤ 0) ' 汉字或符号(负)<br /> .如果真 (取拼音 (字符, 1) ＝ “”)<br /> boo ＝ 真<br /> 跳出循环 ()<br /> .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .默认<br /> Num1 ＝ 取数组成员数 (字符组)<br /> Num2 ＝ 取数组成员数 (非法组)<br /> .计次循环首 (Num1, n1)<br /> 代码 ＝ 字符组 [n1]<br /> .计次循环首 (Num2, n2)<br /> .如果真 (代码 ＝ 非法组 [n2])<br /> boo ＝ 真<br /> 跳出循环 ()<br /> .如果真结束<br /> <br /> .计次循环尾 ()<br /> .计次循环尾 ()<br /> .判断结束<br /> 返回 (boo)

江南风飞扬

真怀疑你们这些大佬的脑子是怎么长得，为啥我就写不出来这么牛笔的码

外烟代购一手

这个必须顶一下了

607297

kiss筱亮 发表于 2018-3-14 14:21
**** 作者被禁止或删除 内容自动屏蔽 ****

反正不是我写的。  

xjyehonghai

谢谢分享。

kiss筱亮

这种 代码 看起来好乱.看不下去==!

qq8752213

好用不啊

蟑螂恶霸

真怀疑你们这些大佬的脑子是怎么长得，为啥我就写不出来这么牛笔的码

王者路太艰难

66666666666666666

神女软件定制

好的。够实用，支持了