topic Re: Delete if wrds same in the word not by substr in SAS Programming

Delete if wrds same in the word not by substr

My_SAS — Tue, 05 Jun 2012 08:15:18 GMT

data l;
input id $ 1-20;
cards;
aaaa1234a
bbbb1234b
ccccx1234c
asdf1234b
run;

I dont want to do by substr(1,1)=substr(2,1)

i want the output if the first character and last are same

output :

ccccx1234c
asdf1234b

Re: Delete if wrds same in the word not by substr

Haikuo — Tue, 05 Jun 2012 13:11:15 GMT

Your output example seems inconsistent with your description, I will just go with the latter:

data l;

input id $ 1-20;

cards;

aaaa1234a

bbbb1234b

ccccx1234c

asdf1234b

run;

data want;

set l;

if first(id)=:left(reverse(id));

run;

proc print;run;

Haikuo

Re: Delete if wrds same in the word not by substr

MikeZdeb — Tue, 05 Jun 2012 14:02:00 GMT

hi ... another idea ...

data want;

set l;

where char(id,1) eq char(right(id),20);

run;

Re: Delete if wrds same in the word not by substr

Ksharp — Wed, 06 Jun 2012 03:01:03 GMT

OR You like Perl Regular Expression :

data l;
input id $ 1-20;
cards;
aaaa1234a
bbbb1234b
ccccx1234c
asdf1234b
;
run;

 
data want;
set l;
where id=prxchange('s/(\S)(.*)(\S)/\3\2\1/o',-1,id);
run;

Ksharp

Re: Delete if wrds same in the word not by substr

My_SAS — Wed, 06 Jun 2012 07:34:45 GMT

Sory i have not framed my question properly

this is the req below

data l;
input id $ 1-20;
cards;
aaaa1234a
bbbb1234b
ccccx1234c
asdf1234b
run;

I dont want to do by substr(1,1)=substr(2,1)

i want the output if the first,second,third,foruth,fifth and last character and are not same.

output :

ccccx1234c
asdf1234b

Re: Delete if wrds same in the word not by substr

Ksharp — Wed, 06 Jun 2012 07:54:40 GMT

My_SAS wrote:

i want the output if the first,second,third,foruth,fifth and last character and are same.

output :

ccccx1234c
asdf1234b

But in the case of 'ccccx1234c"

the first, -> c

second,-> c

third,-> c

foruth-> c

,fifth-> x

last character-> c

They are different . Any other logic are you using ?

Ksharp

Re: Delete if wrds same in the word not by substr

My_SAS — Wed, 06 Jun 2012 07:56:38 GMT

i want the output if the first,second,third,foruth,fifth and last character and are NOT same.

output :

ccccx1234c
asdf1234b

Re: Delete if wrds same in the word not by substr

Ksharp — Wed, 06 Jun 2012 08:12:06 GMT

Sorry . overlook "NOT"

Oh, I undertand what you mean now.

Ksharp

Re: Delete if wrds same in the word not by substr

My_SAS — Wed, 06 Jun 2012 08:16:04 GMT

should check only the characters are same not the numerics

bbbbb1234b

bbbbb b (all the b characters are same in 1,2,3,4,5 and last obs are same)

Re: Delete if wrds same in the word not by substr

Ksharp — Wed, 06 Jun 2012 08:26:11 GMT

How about:

data l;
input id $ 1-20;
cards;
aaaa1234a
bbbb1234b
ccccx1234c
asdf1234b
;
run;

 
data want(drop=x);
set l;
x=substrn(left(id),1,1);
if not missing (compress(id,x,'d')) ;
run;

Ksharp

Message was edited by: xia keshan