CRLFを削除せずに空白行を削除することができますか？

Question

私は空白行を削除するためにトリムを使用していた：

line 1 

line 2 

が

line1 
line2 

を得るだけでなく、CRLFを削除しない

trim/lines 

を使用します。そのためにトリムを使用する別の方法がありますか？

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 
]