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

查过

感谢发布原创作品，精易因你更精彩！6666666666666

阿白不爱吃菜

  

子程序名	返回值类型	公开	备 注
提取网页文本	文本型
参数名	类 型	参考	可空	数组	备 注
字符串	文本型

变量名	类 型	静态	数组	备 注
字符串长度	整数型
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	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> <br /> .子程序 提取网页文本, 文本型<br /> .参数 字符串, 文本型<br /> .局部变量 字符串长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 返回字符串, 文本型<br /> .局部变量 检到中文, 整数型<br /> .局部变量 asc, 整数型<br /> <br /> <br /> 字符串长度 ＝ 取文本长度 (字符串)<br /> .计次循环首 (字符串长度, i)<br />     asc ＝ 取代码 (字符串, i)<br />     .判断开始 (取代码 (字符串, i) ＜ 0)  ' 中文检测，长度，2个字符<br />         .如果 (检到中文 ＝ 1)  ' 取2个字符用到的判断<br />             检到中文 ＝ 0<br />         .否则<br />             检到中文 ＝ 1<br />             返回字符串 ＝ 返回字符串 ＋ 取文本中间 (字符串, i, 2)<br />             调试输出 (“检测到中文汉字：”, asc, 取文本中间 (字符串, i, 2))<br />         .如果结束<br /> <br /> <br />     .判断 (asc ≥ 65 且 asc ≤ 90)  ' A-Z<br />         调试输出 (“检测到大写字母A-Z：”, asc, 取文本中间 (字符串, i, 1))<br />         返回字符串 ＝ 返回字符串 ＋ 取文本中间 (字符串, i, 1)<br />     .判断 (asc ≥ 97 且 asc ≤ 122)  ' a-z<br />         调试输出 (“检测到小写字母a-z：”, asc, 取文本中间 (字符串, i, 1))<br />         返回字符串 ＝ 返回字符串 ＋ 取文本中间 (字符串, i, 1)<br /> <br /> <br />     .判断 (57 ＜ asc 且 asc ＜ 48)  ' 0=48<br />         调试输出 (“检测到数字0-9：”, asc, 取文本中间 (字符串, i, 1))<br />         返回字符串 ＝ 返回字符串 ＋ 取文本中间 (字符串, i, 1)<br />     .判断 (取代码 (字符串, i) ＝ 10)  ' 非中文检测，长度，1个字符<br />         调试输出 (“检测到 #换行符：”, asc, 取文本中间 (字符串, i, 1))<br />         返回字符串 ＝ 返回字符串 ＋ #换行符<br />     .默认<br />         返回字符串 ＝ 返回字符串 ＋ 取文本中间 (字符串, i, 1)<br />         调试输出 (“检测到标点符号：”, asc, 取文本中间 (字符串, i, 1))<br />     .判断结束<br /> <br /> <br /> .计次循环尾 ()<br /> 调试输出 (返回字符串)<br /> 返回 (返回字符串)

bianyuan456

已经顶贴，感谢您对论坛的支持！

刘文明乌猛

支持开源~！感谢分享

447485268

支持开源~！感谢分享