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

AdGame

学习了谢谢

415597958

细水♂流长 发表于 2017-7-19 14:18
删首尾

也可以更加简单，模式1相对复杂，但简单。模式2相对简单，但麻烦。
.版本 2
.支持库 spec

b ＝ { 9, 32, 13, 10 }
byte ＝ 到字节集 (str)
Model ＝ 2
连续赋值 (-1, p1, p2)
.计次循环首 (取字节集长度 (byte), i)
    .如果真 (Model ＝ 1 且 p1 ＝ -1)
        IsChar ＝ 假
        .计次循环首 (取字节集长度 (b), l)
            .如果真 (b [l] ＝ byte )
                IsChar ＝ 真
                跳出循环 ()
            .如果真结束

        .计次循环尾 ()
        .如果真 (取反 (IsChar))
            p1 ＝ i
        .如果真结束

    .如果真结束
    .如果真 (Model ＝ 2 且 p1 ＝ -1)
        .如果真 (byte ≠ b [1] 且 byte ≠ b [2] 且 byte ≠ b [3] 且 byte ≠ b [4])
            p1 ＝ i
        .如果真结束

    .如果真结束
    n ＝ 取字节集长度 (byte) － i
    .如果真 (Model ＝ 1 且 p2 ＝ -1)
        IsChar ＝ 假
        .计次循环首 (取字节集长度 (b), l)
            .如果真 (b [l] ＝ byte [n])
                IsChar ＝ 真
                跳出循环 ()
            .如果真结束

        .计次循环尾 ()
        .如果真 (取反 (IsChar))
            p2 ＝ n
        .如果真结束

    .如果真结束
    .如果真 (Model ＝ 2 且 p2 ＝ -1)
        .如果真 (byte [n] ≠ b [1] 且 byte [n] ≠ b [2] 且 byte [n] ≠ b [3] 且 byte [n] ≠ b [4])
            p2 ＝ n
        .如果真结束

    .如果真结束
    .如果真 (p1 ≠ -1 且 p2 ≠ -1)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
调试输出 (到文本 (取字节集中间 (byte, p1, p2 － p1 ＋ 1)))

415597958

细水♂流长 发表于 2017-7-19 14:18
删首尾

也可以更加简单，模式1相对复杂，但简单。模式2相对简单，但麻烦。

  

b ＝ { 9, 32, 13, 10 }
byte ＝ 到字节集 (str)
Model ＝ 2
连续赋值 (-1, p1, p2)
计次循环首 (取字节集长度 (byte), i)
如果真 (Model ＝ 1 且 p1 ＝ -1)
IsChar ＝ 假
计次循环首 (取字节集长度 (b), l)
如果真 (b [l] ＝ byte [i])
IsChar ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (取反 (IsChar))
p1 ＝ i

如果真 (Model ＝ 2 且 p1 ＝ -1)
如果真 (byte [i] ≠ b [1] 且 byte [i] ≠ b [2] 且 byte [i] ≠ b [3] 且 byte [i] ≠ b [4])
p1 ＝ i

n ＝ 取字节集长度 (byte) － i
如果真 (Model ＝ 1 且 p2 ＝ -1)
IsChar ＝ 假
计次循环首 (取字节集长度 (b), l)
如果真 (b [l] ＝ byte [n])
IsChar ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (取反 (IsChar))
p2 ＝ n

如果真 (Model ＝ 2 且 p2 ＝ -1)
如果真 (byte [n] ≠ b [1] 且 byte [n] ≠ b [2] 且 byte [n] ≠ b [3] 且 byte [n] ≠ b [4])
p2 ＝ n

如果真 (p1 ≠ -1 且 p2 ≠ -1)
跳出循环 ()

计次循环尾 ()
调试输出 (到文本 (取字节集中间 (byte, p1, p2 － p1 ＋ 1)))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> b ＝ { 9, 32, 13, 10 }<br /> byte ＝ 到字节集 (str)<br /> Model ＝ 2<br /> 连续赋值 (-1, p1, p2)<br /> .计次循环首 (取字节集长度 (byte), i)<br />     .如果真 (Model ＝ 1 且 p1 ＝ -1)<br />         IsChar ＝ 假<br />         .计次循环首 (取字节集长度 (b), l)<br />             .如果真 (b [l] ＝ byte <i>)<br />                 IsChar ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (取反 (IsChar))<br />             p1 ＝ i<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (Model ＝ 2 且 p1 ＝ -1)<br />         .如果真 (byte <i> ≠ b [1] 且 byte <i> ≠ b [2] 且 byte <i> ≠ b [3] 且 byte <i> ≠ b [4])<br />             p1 ＝ i<br />         .如果真结束<br /> <br />     .如果真结束<br />     n ＝ 取字节集长度 (byte) － i<br />     .如果真 (Model ＝ 1 且 p2 ＝ -1)<br />         IsChar ＝ 假<br />         .计次循环首 (取字节集长度 (b), l)<br />             .如果真 (b [l] ＝ byte [n])<br />                 IsChar ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (取反 (IsChar))<br />             p2 ＝ n<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (Model ＝ 2 且 p2 ＝ -1)<br />         .如果真 (byte [n] ≠ b [1] 且 byte [n] ≠ b [2] 且 byte [n] ≠ b [3] 且 byte [n] ≠ b [4])<br />             p2 ＝ n<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (p1 ≠ -1 且 p2 ≠ -1)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (到文本 (取字节集中间 (byte, p1, p2 － p1 ＋ 1)))

415597958

细水♂流长 发表于 2017-7-19 14:18
删首尾

也可以更加简单，模式1相对复杂，但简单。模式2相对简单，但麻烦。

  

b ＝ { 9, 32, 13, 10 }
byte ＝ 到字节集 (str)
Model ＝ 2
连续赋值 (-1, p1, p2)
计次循环首 (取字节集长度 (byte), i)
如果真 (Model ＝ 1 且 p1 ＝ -1)
IsChar ＝ 假
计次循环首 (取字节集长度 (b), l)
如果真 (b [l] ＝ byte [i])
IsChar ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (取反 (IsChar))
p1 ＝ i

如果真 (Model ＝ 2 且 p1 ＝ -1)
如果真 (byte [i] ≠ b [1] 且 byte [i] ≠ b [2] 且 byte [i] ≠ b [3] 且 byte [i] ≠ b [4])
p1 ＝ i

n ＝ 取字节集长度 (byte) － i
如果真 (Model ＝ 1 且 p2 ＝ -1)
IsChar ＝ 假
计次循环首 (取字节集长度 (b), l)
如果真 (b [l] ＝ byte [n])
IsChar ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (取反 (IsChar))
p2 ＝ n

如果真 (Model ＝ 2 且 p2 ＝ -1)
如果真 (byte [n] ≠ b [1] 且 byte [n] ≠ b [2] 且 byte [n] ≠ b [3] 且 byte [n] ≠ b [4])
p2 ＝ n

如果真 (p1 ≠ -1 且 p2 ≠ -1)
跳出循环 ()

计次循环尾 ()
调试输出 (到文本 (取字节集中间 (byte, p1, p2 － p1 ＋ 1)))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> b ＝ { 9, 32, 13, 10 }<br /> byte ＝ 到字节集 (str)<br /> Model ＝ 2<br /> 连续赋值 (-1, p1, p2)<br /> .计次循环首 (取字节集长度 (byte), i)<br />     .如果真 (Model ＝ 1 且 p1 ＝ -1)<br />         IsChar ＝ 假<br />         .计次循环首 (取字节集长度 (b), l)<br />             .如果真 (b [l] ＝ byte <i>)<br />                 IsChar ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (取反 (IsChar))<br />             p1 ＝ i<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (Model ＝ 2 且 p1 ＝ -1)<br />         .如果真 (byte <i> ≠ b [1] 且 byte <i> ≠ b [2] 且 byte <i> ≠ b [3] 且 byte <i> ≠ b [4])<br />             p1 ＝ i<br />         .如果真结束<br /> <br />     .如果真结束<br />     n ＝ 取字节集长度 (byte) － i<br />     .如果真 (Model ＝ 1 且 p2 ＝ -1)<br />         IsChar ＝ 假<br />         .计次循环首 (取字节集长度 (b), l)<br />             .如果真 (b [l] ＝ byte [n])<br />                 IsChar ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (取反 (IsChar))<br />             p2 ＝ n<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (Model ＝ 2 且 p2 ＝ -1)<br />         .如果真 (byte [n] ≠ b [1] 且 byte [n] ≠ b [2] 且 byte [n] ≠ b [3] 且 byte [n] ≠ b [4])<br />             p2 ＝ n<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (p1 ≠ -1 且 p2 ≠ -1)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (到文本 (取字节集中间 (byte, p1, p2 － p1 ＋ 1)))

a深浅

415597958 发表于 2017-7-19 14:16
要这么麻烦？
.版本 2

删首尾         

415597958

要这么麻烦？
.版本 2

b ＝ { 9, 32, 13, 10 }
.计次循环首 (取字节集长度 (b), i)
    str ＝ 子文本替换 (str, 字符 (到整数 (b [i])), , , , 真)
.计次循环尾 ()