易语言删除首尾空白符，可以删除t r n 和空格，只支持半角

.版本 2

.子程序 删空白符, 文本型
.参数 str, 文本型
.局部变量 空白表, 字节集
.局部变量 begin, 整数型
.局部变量 end, 整数型
.局部变量 code, 整数型
.局部变量 map, 字节集
.局部变量 i, 整数型
.局部变量 begin_continue, 逻辑型
.局部变量 end_continue, 逻辑型

空白表 ＝ { 9, 32, 13, 10 }
map ＝ 取空白字节集 (256)
.计次循环首 (取字节集长度 (空白表), i)
    map [空白表 [i] ＋ 1] ＝ 1
.计次循环尾 ()

begin_continue ＝ 真
end_continue ＝ 真
begin ＝ 1
end ＝ 取文本长度 (str)
.判断循环首 (begin ＜ end 且 (begin_continue 或 end_continue))
    .如果真 (begin_continue)
        code ＝ 取代码 (str, begin)
        .判断开始 (map [code ＋ 1] ≠ 1)
            begin_continue ＝ 假
        .默认
            begin ＝ begin ＋ 1
        .判断结束

    .如果真结束

    .如果真 (end_continue)
        code ＝ 取代码 (str, end)
        .判断开始 (map [code ＋ 1] ≠ 1)
            end_continue ＝ 假
        .默认
            end ＝ end － 1
        .判断结束

    .如果真结束

.判断循环尾 ()
返回 (取文本中间 (str, begin, end － begin ＋ 1))

来源：
易语言删除首尾空白符，可以删除t r n 和空格，只支持半角_精易论坛