精易论坛

标题: 字符串检测,判断。随便看看 [打印本页]

作者: 放飞梦想321    时间: 2024-1-15 19:12
标题: 字符串检测,判断。随便看看
.版本 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))
    .判断结束


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



作者: 447485268    时间: 2024-1-15 22:03
支持开源~!感谢分享
作者: 刘文明乌猛    时间: 2024-1-15 23:14

支持开源~!感谢分享
作者: bianyuan456    时间: 2024-1-16 01:12
已经顶贴,感谢您对论坛的支持!
作者: 阿白不爱吃菜    时间: 2024-1-16 05:03
  
子程序名返回值类型公开备 注
提取网页文本文本型 
参数名类 型参考可空数组备 注
字符串文本型
变量名类 型静态数组备 注
字符串长度整数型 
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))

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


i支持库列表   支持库注释   
spec特殊功能支持库


作者: 查过    时间: 2024-1-16 07:46
感谢发布原创作品,精易因你更精彩!6666666666666
作者: 豆豆灰常开心    时间: 2024-1-16 07:50
感谢发布原创作品,精易因你更精彩!6666666666666
作者: 小虎来了    时间: 2024-1-16 08:14
感谢分享!
作者: youxigw    时间: 2024-1-16 08:20
感谢分享!
作者: 胖子葛格    时间: 2024-1-16 09:06
感谢大神分享~!
作者: 虚vs伪    时间: 2024-1-16 09:27
判断 (57 < asc 且 asc < 48)  ' 0=48
如何满足此条件   
asc既要大于57又要小于48   
作者: pipicool    时间: 2024-1-16 09:38
学习一下
作者: year1970    时间: 2024-1-16 10:24
感谢分享,学习了
作者: wh1234567    时间: 2024-1-16 10:59
感谢分享。。。
作者: wgqxj    时间: 2024-1-16 11:11
谢谢分享
作者: qqmqqg    时间: 2024-1-16 13:28
+66666666666666666666666666666
作者: 396384183    时间: 2024-1-16 14:19
支持开源~!感谢分享
作者: 清风徐来2    时间: 2024-1-16 18:22
感谢分享
作者: ttggnn    时间: 2024-1-16 20:37
支持开源~!感谢分享
作者: 胖子葛格    时间: 2024-1-17 14:06
感谢大神分享。
作者: lmwdz    时间: 2024-1-17 23:52
  进来学习学习
作者: 胖子葛格    时间: 2024-1-18 09:26

感谢大神分享
作者: mu396    时间: 2024-1-21 11:29
感谢分享,很给力!~
作者: 胖子葛格    时间: 2024-1-25 09:03
感谢大神分享
作者: shuaicheng    时间: 2024-1-27 14:19
感谢分享,很给力!~




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4