(彬)泪闯天涯-彗星取特定文本源码

(彬)泪闯天涯-彗星取特定文本

@泪闯天涯

.版本 2

.程序集 程序集1

.子程序 彗星取特定文本, 文本型, , 取出特定的中文、英文、数字、标点符号，By:(彬)泪闯天涯
.参数 文本参数, 文本型
.参数 保留中文, 逻辑型
.参数 保留英文, 逻辑型
.参数 保留数字, 逻辑型
.参数 保留标点, 逻辑型
.局部变量 n, 整数型
.局部变量 Asc, 整数型
.局部变量 i, 整数型
.局部变量 length, 整数型
.局部变量 strRet, 文本型
.局部变量 bRet, 逻辑型

length ＝ 取文本长度 (文本参数)
.循环判断首 ()
    Asc ＝ 取代码 (文本参数, i)
    bRet ＝ 假
    .如果真 (Asc ＜ 0)
        Asc ＝ 256 ＋ Asc
    .如果真结束
    .如果 (Asc ＜ 127)
        n ＝ 1
        .判断开始 (Asc ＞ 96 且 Asc ＜ 123)  ' a-z   97-122
            bRet ＝ 保留英文
        .判断 (Asc ＞ 64 且 Asc ＜ 91)  ' A-Z   65-90
            bRet ＝ 保留英文
        .判断 (Asc ＞ 47 且 Asc ＜ 58)  ' 0-9   48-57
            bRet ＝ 保留数字
        .默认
            bRet ＝ 保留标点
        .判断结束

    .否则
        n ＝ 2
        bRet ＝ 保留中文
    .如果结束
    .如果真 (bRet)
        strRet ＝ strRet ＋ 取文本中间 (文本参数, i, n)
    .如果真结束
    i ＝ i ＋ n
.循环判断尾 (i ≤ length)
返回 (strRet)