SCOUG-Programming Mailing List Archives

<< Previous Message << >> Next Message >>

Date:	Thu, 17 Sep 1998 15:40:11 PDT
From:	"Rollin White" <rollin@scoug.com >
Reply-To:	scoug-programming@scoug.com
To:	< "scoug-programming@scoug.com" > scoug-programming@scoug.com >
Subject:	SCOUG-Programming: Calling all REXX programmings

Content Type: text/plain

On Thu, 17 Sep 1998 15:36:03 PDT, Rollin White wrote:

>Is there a clean way to collect all of the numeric data from a string. For example, given:
>
>abc123def456ghi
>
>I want 123456

I'll answer my own question. Turned out to be easier than I thought:

/* */

PARSE ARG input

Output = ''

do i = 1 to length(input)
if DATATYPE(SUBSTR(Input,i,1)) = 'NUM' then
Output = Output||SUBSTR(Input,i,1)
end

say Output

=====================================================

To unsubscribe from this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-programming".

For problems, contact the list owner at
"rollin@scoug.com".

=====================================================

Return to [ 17 | September | 1998 ]

SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group. OS/2, Workplace Shell, and IBM are registered trademarks of International Business Machines Corporation. All other trademarks remain the property of their respective owners.