topic Re: How extract continous numbers in text string? in SAS Programming

How extract continous numbers in text string?

ybz12003 — Mon, 10 Feb 2020 15:53:17 GMT

Hello,

I have a challenging question. I have dataset shown below. I would like to extract the continuous numbers from all kinds of different text formats. In the end, I need the numbers without any spaces and lines. I am wondering if there is a way to do that. Thank you.

data datain;

format name $ 500.;

input name &;

cards;

CAR ID 5648MA

0009463

000-4721

  6325IL

PAUL__0065

0435KK-GGGG 1

;

run;

So, the following is results I am looking for:

5648,

0009463,

0004721,

6325,

0065,

0435.

Re: How extract continous numbers in text string?

ed_sas_member — Mon, 10 Feb 2020 15:53:06 GMT

Hi @ybz12003

What do you mean by continuous number ?

Do you mean extract all digits?

Please test:

data want;
	set datain;
	name_d = compress(name,,"dK");
run;

Re: How extract continous numbers in text string?

Tom — Mon, 10 Feb 2020 15:54:50 GMT

Please provide what you want out from each of those example values. Do you want to create a number from each string? multiple numbers? What if there are more than 15 digits in a row such that SAS cannot store it as a number?

Re: How extract continous numbers in text string?

ybz12003 — Mon, 10 Feb 2020 15:55:37 GMT

It seems like didn't apply for the last one.

Re: How extract continous numbers in text string?

ed_sas_member — Mon, 10 Feb 2020 16:03:22 GMT

Hi @ybz12003

Please try this:

data want;
	set datain;
	name_d  = prxchange('s/\b\d\b//',-1,prxchange('s/[^\d\s]//',-1,name));
run;

Re: How extract continous numbers in text string?

novinosrin — Mon, 10 Feb 2020 16:36:46 GMT

Not recommending nor ideal, but good and fun to experiment

data datain;

format name $ 500.;

input name &;

cards;
CAR ID 5648MA
0009463
000-4721
  6325IL
PAUL__0065
0435KK-GGGG 1
;

data want;
	set datain;
	_n_ = countw(name,'-','kd');
	length want $10;
	do _n_=1 to _n_;
	 want=compress(scan(name,_n_,'-','kd'),,'kd');
	 if length(want)>1 then output;
	end;
run;

Re: How extract continous numbers in text string?

ErikLund_Jensen — Mon, 10 Feb 2020 18:54:36 GMT

Hi @ybz12003

Here is a modified version of the function provided by @ed_sas_member . I modified your input to test it with more complicated input including several occurrences of single-digit or multi-digit groups.

data datain;
infile cards truncover;
input name $char100.;
cards;
CAR ID 5648MA
0009463
000-4721
1  6325IL 34 2 
PAUL__0065
1 2 3 45 abc
0435KK-GGGG 1
12
test_1_4_ 9 more
;
run;

data want; set datain;
	length num $100;
	num = compress(prxchange('s/\b\d\b//',-1,prxchange('s/[^\d]/ /',-1,name)));
run;

result: