How to remove line feed and carriage return from start and end, but not from the middle of a string

Question

Question

#Code Snippet #ObjectScript #InterSystems IRIS for Health

Hello,

Thanks for reading this question.

We need to remove the line feeds and carriage returns from start and end, but not from the middle of a string

We have tested the following ways:

set output = $ZStrip("[line feed](carriage return) str [line feed](carriage return) ing [line feed](carriage return)","<>C")

But it removes also control characters which we need to preserve...

Also we have tested:

set output = $REPLACE("[line feed](carriage return) str [line feed](carriage return) ing [line feed](carriage return)",$C(13,10),"")

But it deletes line feed and carriage return at the middle of the string, so it is not what we need...

How would you recommend us to implement it.

We have read:

https://community.intersystems.com/post/trimming

https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls...

https://community.intersystems.com/post/zstrip-clean-string

https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls...

Could you help us please?

Thanks.

Product version: IRIS 2020.1

Discussion (7)3

Log in or sign up to continue

score 0 · Answer 1 · 2024-06-25T07:03:44-04:00

F Q:$c(10,13)'[$e(str)!'$L(str) s $e(str)="" // strip $c(10) and $c(13) from front

F Q:$c(10,13)'[$e(str,*)!'$l(str) s $e(str,*)="" // strip $c(10) and $c(13) from end

score 0 · Answer 2 · 2024-06-25T07:08:14-04:00

Yone Moreno Jimenez · Jun 25

There are multiple line feeds and carriage returns not only one at start and at end

0 0

score 0 · Answer 3 · 2024-06-25T07:19:40-04:00

Stuart Strickland · Jun 25

Yes, and it will remove all those from the front and all those from the end, preserving those in the middle.

0 0

score 1 · Answer 4 · 2024-06-25T07:05:30-04:00

If you know that it begins and ends with CRLF then it is as simple as:

USER>Set string = "[line feed](carriage return) str [line feed](carriage return) ing [line feed](carriage return)"
 
USER>Write $piece(string,"[line feed](carriage return)",2,*-1)
 str [line feed](carriage return) ing

score 0 · Answer 5 · 2024-06-25T07:08:24-04:00

Yone Moreno Jimenez · Jun 25

There are multiple line feeds and carriage returns not only one at start and at end

0 0

score 0 · Answer 6 · 2024-06-25T07:10:01-04:00

Ben Spead · Jun 25

Yes - this will work in that case above case (see my example which preserves all of them in the middle)

0 0

score 3 · Answer 7 · 2024-06-25T07:36:13-04:00

@Yone Moreno Jimenez
Did you try $ZSTRIP with the following arguments?

Set string = $ZSTRIP(string,"<>",$CHAR(13,10))

$ZSTRIP without a mask code in the second argument and with specific characters as the third argument will strip just those specific characters.