字符过滤易语言源码

字符过滤易语言源码

.版本 2
.支持库 OPenGL

.子程序 字符过滤, 文本型, , 过滤掉你不需要的指定字符类型。“双字节型”和“单字节型”
.参数 欲被过滤的文本, 文本型, , 欲被过滤的文本。不能为空。
.参数 欲返回的字符类型, 整数型, , 过滤后你需要返回的字符类型。0、为单字符类型，其他数值双字节型字符
.局部变量 计次, 整数型
.局部变量 返回值, 逻辑型
.局部变量 单字符文本, 文本型
.局部变量 双字符文本, 文本型

.循环判断首 ()
    返回值 ＝ 是否为双字节字符 (欲被过滤的文本, 计次 － 1)
    .判断开始 (返回值 ＝ 真)
        双字符文本 ＝ 双字符文本 ＋ 取文本中间 (欲被过滤的文本, 计次, 2)
        计次 ＝ 计次 ＋ 2
    .默认
        单字符文本 ＝ 单字符文本 ＋ 取文本中间 (欲被过滤的文本, 计次, 1)
        .如果真 (寻找文本 (欲被过滤的文本, #换行符, 计次, 假) ＝ 计次)
            双字符文本 ＝ 双字符文本 ＋ #换行符
        .如果真结束
        计次 ＝ 计次 ＋ 1
    .判断结束

.循环判断尾 (计次 ＜ 取文本长度 (欲被过滤的文本))
.判断开始 (欲返回的字符类型 ＝ 0)
    返回 (单字符文本)
.默认
    返回 (双字符文本)

@易语言入门教程