BookmarkSubscribeRSS Feed
RamKumar
Fluorite | Level 6

I've my inputs as below.

9161-642-524

9161-7642525

9167642526

642526

642

I need ouput as follows

09161

09161

91676

64252

00642

It means I need only 5 digits in output. If we've any speacial characters or the input record is less than 5 digits then we need to ignore those records and it should be produced with leading zeros.

I've tried this with substr and length function also with the format Z5. But it doesn't helped me either.

7 REPLIES 7
Loko
Barite | Level 11

Hello,

Here you have one solution:

proc format;

picture frm

low-high='99999';

run;

data have (keep=varwant want) ;

length want 5 ;

input varwant $30.;

dashpos=index(varwant, "-");

if 1 <= dashpos <= 5 then want=substr(varwant,1,dashpos - 1);

else want=substr(varwant,1,5);

format want frm.;

datalines;

9161-642-524

9161-7642525

9167642526

642526

642

;


Patrick
Opal | Level 21

Below is totally over the top in case this is a once-off task. If it is something you need regularly then you might consider the approach.

It is based on Base SAS(R) 9.4 Procedures Guide, Third Edition

proc fcmp outlib=work.functions.smd;

  function print_str(in_str $) $;

    r=put(input(scan(in_str,1,,'kd'),5.),z5.);

    return(r);

  endsub;

run;

options cmplib=(work.functions);

proc format;

  value $print_str (default=5) other=[print_str()];

run;

data have;

  infile datalines truncover;

  input mystring $10.;

  datalines;

9161-642-524

9161-7642525

9167642526

642526

642

;

run;

proc print data=have;

  format mystring $print_str.;

run;

user24feb
Barite | Level 11

Data A;

  Input N $;

  N5_Text=Put(Input(Substr(Scan(Compress(N),1,'-'),1,5),5.),Z5.);

  N5_Num=Input(Substr(Scan(Compress(N),1,'-'),1,5),5.); Format N5_Num Z5.;

  Datalines;

9161-642-524

9161-7642525

9167642526

642526

642

;

Run;

Patrick
Opal | Level 21

I believe you could simplify your nested functions as below:

N5_Text=put(input(scan(N,1,,'kd'),5.),z5.);

N5_Text=input(scan(N,1,,'kd'),5.);

Ksharp
Super User
data have;
  infile datalines truncover;
  input mystring $20.;
  datalines;
9161-642-524
9161-7642525
9167642526
642526
642
;
run;
data want;
 set have;
 length temp $ 5;
 temp=mystring;
 want=input(compress(temp,,'kd'),best.);
 format want z5.;
run;

Xia Keshan

Patrick
Opal | Level 21

Just to be "picky": What about a source string like "916-7642525"?

Ksharp
Super User

Not sure. Maybe I misunderstood OP's meaning .  Let OP judge it anyway .  Patrick.Matter  !

sas-innovate-2024.png

Join us for SAS Innovate April 16-19 at the Aria in Las Vegas. Bring the team and save big with our group pricing for a limited time only.

Pre-conference courses and tutorials are filling up fast and are always a sellout. Register today to reserve your seat.

 

Register now!

How to Concatenate Values

Learn how use the CAT functions in SAS to join values from multiple variables into a single value.

Find more tutorials on the SAS Users YouTube channel.

Click image to register for webinarClick image to register for webinar

Classroom Training Available!

Select SAS Training centers are offering in-person courses. View upcoming courses for:

View all other training opportunities.

Discussion stats
  • 7 replies
  • 941 views
  • 0 likes
  • 5 in conversation