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

Question

Question

Yone Moreno · Jun 25, 2024

#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")ObjectScript
ObjectScript

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),"")
ObjectScript
ObjectScript

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 Jun 25, 2024 to Stuart Strickland

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, 2024 to Yone Moreno

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 Jun 25, 2024 to Ben Spead

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, 2024 to Yone Moreno

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
Did you try $ZSTRIP with the following arguments?

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

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