字符串检测，判断。随便看看

放飞梦想321 · 发表于 2024-1-15 19:12:59

.版本 2
.支持库 spec

.子程序提取网页文本, 文本型
.参数字符串, 文本型
.局部变量字符串长度, 整数型
.局部变量 i, 整数型
.局部变量返回字符串, 文本型
.局部变量检到中文, 整数型
.局部变量 asc, 整数型

字符串长度＝取文本长度 (字符串)
.计次循环首 (字符串长度, i)
asc ＝取代码 (字符串, i)
.判断开始 (取代码 (字符串, i) ＜ 0)  ' 中文检测，长度，2个字符
      .如果 (检到中文＝ 1)  ' 取2个字符用到的判断
         检到中文＝ 0
      .否则
         检到中文＝ 1
         返回字符串＝返回字符串＋取文本中间 (字符串, i, 2)
         调试输出 (“检测到中文汉字：”, asc, 取文本中间 (字符串, i, 2))
      .如果结束

.判断 (asc ≥ 65 且 asc ≤ 90)  ' A-Z
      调试输出 (“检测到大写字母A-Z：”, asc, 取文本中间 (字符串, i, 1))
      返回字符串＝返回字符串＋取文本中间 (字符串, i, 1)
.判断 (asc ≥ 97 且 asc ≤ 122)  ' a-z
      调试输出 (“检测到小写字母a-z：”, asc, 取文本中间 (字符串, i, 1))
      返回字符串＝返回字符串＋取文本中间 (字符串, i, 1)

.判断 (57 ＜ asc 且 asc ＜ 48)  ' 0=48
      调试输出 (“检测到数字0-9：”, asc, 取文本中间 (字符串, i, 1))
      返回字符串＝返回字符串＋取文本中间 (字符串, i, 1)
.判断 (取代码 (字符串, i) ＝ 10)  ' 非中文检测，长度，1个字符
      调试输出 (“检测到 #换行符：”, asc, 取文本中间 (字符串, i, 1))
      返回字符串＝返回字符串＋ #换行符
.默认
      返回字符串＝返回字符串＋取文本中间 (字符串, i, 1)
      调试输出 (“检测到标点符号：”, asc, 取文本中间 (字符串, i, 1))
.判断结束

.计次循环尾 ()
调试输出 (返回字符串)
返回 (返回字符串)

shuaicheng · 发表于 2024-1-27 14:19:07

感谢分享，很给力！~

胖子葛格 · 发表于 2024-1-25 09:03:27

感谢大神分享

mu396 · 发表于 2024-1-21 11:29:45

感谢分享，很给力！~

胖子葛格 · 发表于 2024-1-18 09:26:28

感谢大神分享

lmwdz · 发表于 2024-1-17 23:52:59

进来学习学习

胖子葛格 · 发表于 2024-1-17 14:06:04

感谢大神分享。

ttggnn · 发表于 2024-1-16 20:37:05

支持开源~！感谢分享

清风徐来2 · 发表于 2024-1-16 18:22:29

感谢分享

396384183 · 发表于 2024-1-16 14:19:35

支持开源~！感谢分享

		自动登录	找回密码
密码			注册

[易源码分享] 字符串检测，判断。随便看看

评分