可以反弹修剪删除空白行而不删除CRLF？

Question

我想用装饰来删除空行：

line 1 

line 2 

得到

line1 
line2 

但使用

trim/lines 

并同时删除CRLF。那么是否有另一种使用trim的方法？

Answer 1

replace/all {Line1^/^/Line2} {^/^/} {^/} 

Answer 2

你可以使用PARSE：

parse string-with-newlines [ 
    any [ 
      crlf remove some crlf 
     | newline remove some newline 
     | skip 
    ] 
] 

它可能会更快，虽然使用的字符集：

text: complement charset crlf 
parse string-with-newlines [ 
    any [ 
      some text 
     | crlf any crlf 
     | newline remove any newline 
    ] 
] 

Answer 3

没有办法只是装饰，但这里有removeach，也是一个解决方案，还删除了领先的LF

trim-emptyline: func [ 
    str [string!] 
    /local lfb4 lfnow c 
] [ 
    lfb4: true 
    remove-each c str [also all [lfnow: lf = c lfb4] lfb4: lfnow] 
    str 
]