Hi,
I hope you are doing fine, I am looking for a trick in a regular expression statement.
Question:Is there a direct way to avoid placing spaces in a 'prxchange replacement part' between a wildcard and a zero?
Example:/$1 0.$4/ (use group1, followed by a zero, followed by a dot, followed by the fourth group)?
Problem: I do not want any space between '$1' and my '0' but if I write /$10.$4/ SAS wants to replace with the 10th group, followed by a dot, followed by the fourth group...
Background: I am using a regex to ensure that my lab values have a leading zero if my string looks like a number with decimals (even when preceeded by a logical operator).
data test;
length a expect $40;
a='.064'; expect='0.064'; output;
a='.064 '; expect='0.064'; output;
a=' .064 ';expect='0.064'; output;
a='<.01'; expect='<0.01'; output;
a='1.1'; expect='1.1'; output;
a='.064zzz'; expect='.064zzz'; output;
a='0'; expect='0'; output;
a='99.6'; expect='99.6'; output;
a=''; expect=''; output;
a='<3.17'; expect='<3.17'; output;
a='<3.17zzz'; expect='<3.17zzz'; output;
a='<=.17'; expect='<=0.17'; output;
a='>=.17'; expect='>=0.17'; output;
a=' <=.17'; expect='<=0.17'; output;
a=' >=.17'; expect='>=0.17'; output;
a='<>.17'; expect='<>0.17'; output;
a='<=>.17'; expect='<=>.17'; output;
a='<>.17zzz'; expect='<>.17zzz'; output;
a='.064 .064'; expect='.064 .064'; output;
a='>60'; expect='>60'; output;
run;
data test1;
set test;
length b $40;
b=a;
if prxmatch('/^\s*((<|>|=){0,2})\s*(\.)(\d+)\s*$/',a) then do;
b=strip(tranwrd(a,'.','0.'));
end;
c=prxchange('s/^\s*((<|>|=){0,2})\s*(\.)(\d+)\s*$/$1 0.$4/',1,a);
c1=prxchange('s/^\s*((<|>|=){0,2})\s*(\.)(\d+)\s*$/$1/',1,a);
c2=prxchange('s/^\s*((<|>|=){0,2})\s*(\.)(\d+)\s*$/$2/',1,a);
c3=prxchange('s/^\s*((<|>|=){0,2})\s*(\.)(\d+)\s*$/$3/',1,a);
c4=prxchange('s/^\s*((<|>|=){0,2})\s*(\.)(\d+)\s*$/$4/',1,a);
if b ne trim(expect) then FAILb='YES';
if c ne trim(expect) then FAILc='YES';
run;
/*
'^ Start of the string
\s* any number of spaces
((<|>|=){0,2}) a combination of maximal 2 operators with <,> or = (First group)
\s* any number of spaces
(\.) a dot (Third group)
(\d+) at least one digit (Fourth group)
\s* any number of spaces
$ End of the string
*/
I would like c to get the same result as b
Thanks!
________________________
- Cheers -
