리 폴트 트림은 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 
]