求助，此类文本数据按关键字分割如何导入？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

原始数据如下(d:\1.txt):

提示1：工资错误。
工资大于1000。
提示2：年龄错误。
出生年份小于现在。
提示3：没有填写学校，
提示4：逗你玩
提示5：姓名错误。
姓名是英文？

导入后的效果
Var1                                 Var2
提示1：工资错误。            工资大于1000。
提示2：年龄错误。            出生年份小于现在。
提示3：没有填写学校，
提示4：逗你玩
提示5：姓名错误。            姓名是英文？

将包含"提示"的赋值给var1,下一行如果不包含"提示"，赋值给var2;

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：文本数据 关键字 出生年份 原始数据 VaR 关键字 英文 如何 姓名 学校

我是来挽尊的

我有个想法  比较繁琐一点，先导入 按行存成一个变量 x，然后if index（x,、"提示"）then i = _n_; output 表1;
else  output 表2;
两个表 merge  表1和表2   by i

不对不对。我再想想

1. data a;
   
2. infile "C:\users\Desktop\d.txt" firstobs=1;
   
3. informat var1 $20. var2 $20.;
   
4. input var2 $;
   
5. var1=lag(var2);
   
6. if var1='' then delete;
   
7. if kindex(var1,'提示')=0 then delete;
   
8. if kindex(var2,'提示')>0 then var2='';
   
9. run;

复制代码

data a a1;
set work.infile;
retain s 1;
if index(F1,"提示") then do;
  if _n_ ~=1 then do ;
    s= s+1; end;
    output a; end;
   else do ;
    output a1;
   end;
   run;
data b (drop = s);
merge a a 1(rename = f1 =f2);
by s;
run;

导入进来的表是work.infile  然后变量名是 f1  偷懒 直接系统直接倒淂

maomaokii 发表于 2015-3-26 09:41
data a a1;
set work.infile;
retain s 1;

多谢了{:3_52:}

mingfeng07 发表于 2015-3-26 09:37

实测可用，果然是高手。多谢