Removing completely the parentheses expression

[farshidowrang]

Hi guys,

I have special names which contain parentheses. I like to remove the whole parentheses expression.

What I have is this:

166/666-C-122 PP3(ZIAN)

199/999-H-888 ZZZ(PLING)

Z-12(AAAAAAA)

Z-2T (NILGON)

And what I need is this:

166/666-C-122 PP3

199/999-H-888 ZZZ

Z-12

Z-2T

Can you please help me with it? 

Please note the space inside the names. Thank you!

Best regards 

Farshid

[ed_sas_member]

Hi @farshidowrang 

Assuming the word in parenthesis is at the end of the character expression, you can try this code:

data want;
	set have;
	var2 = trim(substr(var1, 1, index(var1,"(")-1));
run;

[yabwon]

Or maybe even something shorter:

data want;
	set have;
	var2 = scan(var1, 1, "(");
run;

All the best

Bart

[PeterClemmensen · Accepted solution]

data have;
input string :$&100.;
datalines;
166/666-C-122 PP3(ZIAN)
199/999-H-888 ZZZ(PLING)
Z-12(AAAAAAA)
Z-2T (NILGON)
;

data want;
    set have;
    newstring=prxchange('s/\(.*\)//', -1, string);
run;

Result:

string                    newstring 
166/666-C-122 PP3(ZIAN)   166/666-C-122 PP3 
199/999-H-888 ZZZ(PLING)  199/999-H-888 ZZZ 
Z-12(AAAAAAA)             Z-12 
Z-2T (NILGON)             Z-2T 

[Ksharp]

If you have such kind of data, you will get wrong result.

data have;
infile cards truncover;
input string $100.;
datalines;
166/666-C-(122) PP3(ZIAN)
199/999-H-(888) ZZZ(PLING)
Z-12(AAAAAAA)
Z-2T (NILGON)XXXX
;

data want;
    set have;
    newstring=prxchange('s/\(.*?\)//', -1, string);
run;