View previous topic :: View next topic
|
Author |
Message |
avaneendra_linga
New User
Joined: 13 Dec 2006 Posts: 73 Location: Hyderabad
|
|
|
|
hi,
i have a string from this i have to get the numeric values only....
ex: 45 mainstreet apt 22c
from this i have to get output as 4522 in rexx...
can any body help on this...... |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Here is my solution:
Code: |
/* REXX */
STRING = '45 mainstreet apt 22c'
STRING = SPACE(TRANSLATE(STRING,' ','abcdefghijklmnopqrstuvwxyz'),0)
SAY STRING
EXIT |
O. |
|
Back to top |
|
|
Steve Coalbran
New User
Joined: 01 Feb 2007 Posts: 89 Location: Stockholm, Sweden
|
|
|
|
Sounds like homework for Rexx 1-01?
Code: |
SAY NUMONLY("45 mainstreet apt 22c")
EXIT
NUMONLY: RETURN SPACE(TRANSLATE(ARG(1),LEFT("",246),,
XRANGE('00'X,'EF'X)XRANGE('FA'X,'FF'X)),0)
SAY NUMONLY("45 mainstreet apt 22c")
|
gives
|
|
Back to top |
|
|
Steve Coalbran
New User
Joined: 01 Feb 2007 Posts: 89 Location: Stockholm, Sweden
|
|
|
|
Sorry, remove the last SAY line!
It can't be executed obviously, just my sloppy cut+paste! |
|
Back to top |
|
|
|