怎么从一段文字中提取有用信息

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我现在有一个变量，为手术名称，surg。是一个字符型的变量，取值如 "左上肺切除","子宫切除术" "乳腺癌根治术"等。我另创建了一个身体各部位器官的名称库，也把它赋值给一个变量organ, 取值为"脑，肾，肝脏，子宫，肺，乳腺，胃，肠，淋巴瘤，白血病"。里面的各个部位用逗号隔开，现在我想从手术名称变量来判定它属于哪个器官的手术，如“子宫切除术”，通过search  organ找到子宫，生成一个新的变量取名为var,值为子宫。如“左上肺切除术”,var对应变量值为"肺"，求高手告诉怎么做？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：有用信息 search ARCH VaR 字符型 search 乳腺癌 白血病 淋巴瘤 信息

我感觉你的数据不会很多,所以随便写了一个代码,如果数据比较多的话,就需要优化一下代码.
data work.a;
        input surg $30.;
        datalines;
左上肺切除
子宫切除术
乳腺癌根治术
;
run;

data work.b;
        length id 8. organ $100.;
        input id organ $;
        datalines;
1 脑
2 肾
3 肝脏
4 子宫
5 肺
6 乳腺
7 胃
8 肠
9 淋巴瘤
10 白血病
;
run;

proc sql noprint;
        create table work.c as
                select a.*,
                        b.*
                from work.a as a,work.b as b;
quit;

data work.d;
        set work.c;
        flag = kindex(surg,organ);
run;

data work.e;
        set work.d;
        where flag > 0 ;
run;

chendonghui1987 发表于 2012-6-12 17:00
我感觉你的数据不会很多,所以随便写了一个代码,如果数据比较多的话,就需要优化一下代码.
data work.a;
        i ...

flag=kindex(surg,strip(organ))

webgu 发表于 2012-6-12 17:46
flag=kindex(surg,strip(organ))

高手啊，膜拜中，我一直在想怎么用数组,scan,和substr函数实现呢，没想到这样也行