怎么去除（）？

shiyiming

data a;
input x $30.;
cards;
A - T-100 (1500ML(s))
A - K -50" ML
KIT-1-T(A2 MG
1000 ML
...
;
run;
我想去除x中第一个左括号及其后面的所有的内容，如下b所示
data b;
A - T-100
A - K -50" ML
KIT-1-T
1000 ML
...
请高手帮忙.
谢谢！

shiyiming

[code:dp1tvo7g]
data a;
input x $30.;
a=index(x,'(');
if a=0 then  b=x;
else b=substr(x,1,a-1);
cards;
A - T-100 (1500ML(s))
A - K -50" ML
KIT-1-T(A2 MG
1000 ML
;
[/code:dp1tvo7g]

shiyiming

[code:32a6tp9g]
data a;
input x $30.;
Y=SCAN(X,1,'(');
cards;
A - T-100 (1500ML(s))
A - K -50" ML
KIT-1-T(A2 MG
1000 ML
;
RUN;
[/code:32a6tp9g]

shiyiming

Thanks a lot.