How to extract numbers from a numerical stream using Cache Objectscript

Question

Question

Sehinde Raji · May 21, 2021

#Beginner #Languages #ObjectScript #InterSystems IRIS

Hey I am very new to Intersystems Objectscript and I am trying to find a way of extract 4 digit numbers from a stream.

I have a stream full of results

2334

3434

5543

4334

And I am trying to remove each 4 digit grouping from the stream.

I have tried the following for loop

for i=1:1:$length(result) {

set curr = $extract(result, i)

write !, curr

set count(curr) = $get(count(curr)) + 1

}

Unfortunately the loop extracts one digit.

Does anyone have any suggestions on how to solve this ?

Product version: IRIS 2020.1

Discussion (6)0

Log in or sign up to continue

Julius Kavay · May 21, 2021

You have a string of digits... like

set result="12345678900987654321"

then you can easily extract groups of four digits as

for i=1:4:$length(result) write $extract(result,i,i+3),!

this gives you

assuming, there are no other characters between those numbers...

0 0

score 1 · Answer 1 · 2021-05-21T13:51:59-04:00

What's your linefeed symbol?

Also you have a string, not a stream.

Anyway, try this:

set nl = $$$NL
set str = "2334" _ nl _ "3434" _ nl _ "5543" _ nl _ "4334"
for i = 1:1: $length(str, nl) {
    set value = $piece(str, nl, i)
    write value, !
}

score 0 · Answer 2 · 2021-05-22T06:35:09-04:00

Sehinde Raji · May 22, 2021

Thank you very much

0 0

score 0 · Answer 3 · 2021-05-21T14:16:35-04:00

If there aren't any delimiters in your input string, then this will do it:

set result="233434345543433400110"
for i=1:4:$LENGTH(result) {
    write $E(result,i,i+3),!    
}

Output:

score 0 · Answer 4 · 2021-05-22T06:35:32-04:00

Sehinde Raji · May 22, 2021

Thank you

0 0

score 0 · Answer 5 · 2021-05-22T06:35:57-04:00

Sehinde Raji · May 22, 2021

Thank you !

0 0