Hi Mike
This kind of thing might help
D msString s 20 inz('Replace - . Dash X')
D msLookFor S 4 INZ('- .X')
D miChar S 10I 0
/FREE
FOR miChar = 1 TO %LEN(msLookFor);
DOW %SCAN(%SUBST(msLookFor:miChar:1):msString) > *ZEROS;
IF %SCAN(%SUBST(msLookFor:miChar:1):msString) <
%LEN(%TRIMR(msString));
msString =
%REPLACE('':msString:%SCAN(%SUBST(msLookFor:miChar:1)
:msString):1);
ELSE;
msString = %TRIMR(%TRIMR(msString):msLookFor) ;
LEAVE;
ENDIF;
ENDDO;
ENDFOR;
RETURN;
/FREE
Martin
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Cunningham
Sent: 20 November 2008 15:19
To: 'RPG programming on the AS400 / iSeries'
Subject: Remove embedded characters in a string
Is there an easy way to remove special characters embedded in a string?
I know that %trim will remove them from before/after a string but not
inside the string. I need to be able to take a string like 'XC0-4566.999
X' and turn it into 'XC04566999X'. Removing "-", ".", blanks and
anything else not a number or letter.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
--------------------------------------------------------
This message (including any attachments) is only for the use of the person(s) for whom it is intended. It may contain Mattel confidential and/or trade secret information. If you are not the intended recipient, you should not copy, distribute or use this information for any purpose, and you should delete this message and inform the sender immediately.
midrange.com
