Kbase P5766: How to remove blank space and special characters from an alphanumeric field
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
5/18/2009 |
|
Status: Unverified
GOAL:
How to remove blank space and special characters from an alphanumeric field
FACT(s) (Environment):
All Supported Operating Systems
Progress 9.x
OpenEdge 10.x
FIX:
There is not a direct function that you can use for this. You can try to compare character by character to " " and create a list of valid entries and use LOOKUP function to validate it.
The following sample code ilustrate how to accomplish this.
DEFINE VARIABLE aaa AS CHAR INITIAL "AS$te fff%t "" e$12345are".
DEFINE VARIABLE iPos AS INT.
DEFINE VARIABLE bbb AS CHAR NO-UNDO.
DEFINE VARIABLE validVal AS CHAR INITIAL "1,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,x,z".
REPEAT iPos = 1 TO LENGTH(aaa):
IF NOT SUBSTRING(aaa,iPos,1) = " " THEN
IF LOOKUP(SUBSTRING(aaa,iPos,1),validVal) <> 0 THEN
bbb = bbb + SUBSTRING(aaa,iPos,1).
END.
MESSAGE bbb
VIEW-AS ALERT-BOX INFO BUTTONS OK.