如何删除文本空格或者多行

秋风萧瑟

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击

调试输出 (子程序_删除文本空行 (编辑框1.内容))

.子程序 子程序_删除文本空行, 文本型
.参数 待处理文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 返回结果, 文本型
.局部变量 临时文本, 文本型

文本数组 ＝ 分割文本 (待处理文本, #换行符, )
.计次循环首 (取数组成员数 (文本数组), 计次)
    临时文本 ＝ 删首尾空 (文本数组 [计次])
    .如果真 (临时文本 ≠ “”)
        返回结果 ＝ 返回结果 ＋ 临时文本 ＋ #换行符
    .如果真结束

.计次循环尾 ()
返回 (返回结果)
[/e]