可以删除\t \r \n 和空格，只支持半角 - 为帮助区

小R软件 · 发表于 2018-6-21 15:59:09

可以删除\t \r \n 和空格，只支持半角

子程序名	返回值类型	公开	备注
删首尾空_自创	文本型		可以删除\t \r \n 和空格，只支持半角
参数名	类型	参考	可空	数组	备注
str	文本型

变量名	类型	静态	数组	备注
空白表	整数型		0
i	整数型
code	整数型
k	整数型
start	整数型
end	整数型
len	整数型

空白表＝ { 9, 32, 13, 10 }
len ＝取文本长度 (str)
i ＝ 1

判断循环首 (真)

code ＝取代码 (str, i)

如果真 (code ＝ 0)

跳出循环 ()

k ＝ 0

判断循环首 (真)

k ＝ k ＋ 1

如果真 (code ＝空白表 [k])

跳出循环 ()

如果真 (k ≥ 4)

跳出循环 ()

判断循环尾 ()

如果真 (code ≠ 空白表 [k])

跳出循环 ()

i ＝ i ＋ 1

判断循环尾 ()
start ＝ i
i ＝取文本长度 (str)

判断循环首 (真)

code ＝取代码 (str, i)

如果真 (code ＝ 0)

跳出循环 ()

k ＝ 0

判断循环首 (真)

k ＝ k ＋ 1

如果真 (code ＝空白表 [k])

跳出循环 ()

如果真 (k ≥ 4)

跳出循环 ()

判断循环尾 ()

如果真 (code ≠ 空白表 [k])

跳出循环 ()

i ＝ i － 1

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

.版本 2<br />
<br />
.子程序 删首尾空_自创, 文本型, 公开, 可以删除\t \r \n 和空格，只支持半角<br />
.参数 str, 文本型<br />
.局部变量 空白表, 整数型, 静态, "0"<br />
.局部变量 i, 整数型<br />
.局部变量 code, 整数型<br />
.局部变量 k, 整数型<br />
.局部变量 start, 整数型<br />
.局部变量 end, 整数型<br />
.局部变量 len, 整数型<br />
<br />
空白表 ＝ { 9, 32, 13, 10 }<br />
len ＝ 取文本长度 (str)<br />
i ＝ 1<br />
.判断循环首 (真)<br />
    code ＝ 取代码 (str, i)<br />
    .如果真 (code ＝ 0)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    k ＝ 0<br />
    .判断循环首 (真)<br />
        k ＝ k ＋ 1<br />
        .如果真 (code ＝ 空白表 [k])<br />
            跳出循环 ()<br />
        .如果真结束<br />
        .如果真 (k ≥ 4)<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .判断循环尾 ()<br />
    .如果真 (code ≠ 空白表 [k])<br />
        跳出循环 ()<br />
    .如果真结束<br />
    i ＝ i ＋ 1<br />
.判断循环尾 ()<br />
start ＝ i<br />
i ＝ 取文本长度 (str)<br />
.判断循环首 (真)<br />
    code ＝ 取代码 (str, i)<br />
    .如果真 (code ＝ 0)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    k ＝ 0<br />
    .判断循环首 (真)<br />
        k ＝ k ＋ 1<br />
        .如果真 (code ＝ 空白表 [k])<br />
            跳出循环 ()<br />
        .如果真结束<br />
        .如果真 (k ≥ 4)<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .判断循环尾 ()<br />
    .如果真 (code ≠ 空白表 [k])<br />
        跳出循环 ()<br />
    .如果真结束<br />
    i ＝ i － 1<br />
.判断循环尾 ()<br />
end ＝ i<br />
返回 (取文本中间 (str, start, end － start ＋ 1))