Helpful SAS Snippets

extract_numeric.sas

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
**                                                                             *
** extract_numeric.sas                                                         *
**     purpose: extract numeric component from string                          *
**     todo: leading strings break pattern                                     *
**                                                                             *
`* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */


data strings;
    input str $1-11; 
    put str;
datalines;
125
0.4 foo 
.1  bar
100.111 baz
1 Hello,
12345 world
success 100
run;

data numbers;
    set strings;
    if _n_ eq 1 then do;
        re = prxparse("/(\d*)(\.*)(\d+)/");
    end;
    retain re;
    call prxsubstr(re, str, start, length);
    if start gt 0 then num = input(substrn(str, start, length), best32.);
    put num;
run;