|
发表于 2020-11-3 13:05:24
|
显示全部楼层
河北省秦皇岛市
这玩意儿用的着你开源 ? 好像是啥宝贝东西一样 .
.版本 2
.子程序 文本_取特定类型, 文本型
.参数 参数_文本参数, 文本型
.参数 参数_保留中文, 逻辑型
.参数 参数_保留英文, 逻辑型
.参数 参数_保留数字, 逻辑型
.参数 参数_保留标点, 逻辑型
.局部变量 局部_游标数据, 整数型
.局部变量 局部_字符代码, 整数型
.局部变量 局部_计次变量, 整数型
.局部变量 局部_数据长度, 整数型
.局部变量 局部_返回代码, 文本型
.局部变量 局部_是否保留, 逻辑型
局部_数据长度 = 取文本长度 (参数_文本参数)
.循环判断首 ()
局部_字符代码 = 取代码 (参数_文本参数, 局部_计次变量)
局部_是否保留 = 假
.如果真 (局部_字符代码 < 0)
局部_字符代码 = 256 + 局部_字符代码
.如果真结束
.如果 (局部_字符代码 < 127)
局部_游标数据 = 1
.判断开始 (局部_字符代码 > 96 且 局部_字符代码 < 123) ' a-z 97-122
局部_是否保留 = 参数_保留英文
.判断 (局部_字符代码 > 64 且 局部_字符代码 < 91) ' A-Z 65-90
局部_是否保留 = 参数_保留英文
.判断 (局部_字符代码 > 47 且 局部_字符代码 < 58) ' 0-9 48-57
局部_是否保留 = 参数_保留数字
.默认
局部_是否保留 = 参数_保留标点
.判断结束
.否则
局部_游标数据 = 2
局部_是否保留 = 参数_保留中文
.如果结束
.如果真 (局部_是否保留)
局部_返回代码 = 局部_返回代码 + 取文本中间 (参数_文本参数, 局部_计次变量, 局部_游标数据)
.如果真结束
局部_计次变量 = 局部_计次变量 + 局部_游标数据
.循环判断尾 (局部_计次变量 ≤ 局部_数据长度)
返回 (局部_返回代码)
|
评分
-
查看全部评分
|