一个字符处理问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

问题来自Racoon，有兴趣的折腾折腾吧。
已有数据集：

1. data have;
   
2.         infile cards truncover;
   
3.         input char $500.;
   
4. cards;
   
5. 犹解嫁东风
   
6. 我是中国人啊
   
7. 你是怎么了呢啊噢
   
8. 嗯哪
   
9. ;

复制代码

想得到的数据：
                                               char                char1

                                              犹解嫁东风          犹解
                                              犹解嫁东风          解嫁
                                              犹解嫁东风          嫁东
                                              犹解嫁东风          东风
                                              我是中国人啊        我是
                                              我是中国人啊        是中
                                              我是中国人啊        中国
                                              我是中国人啊        国人
                                              我是中国人啊        人啊
                                              你是怎么了呢啊噢    你是
                                              你是怎么了呢啊噢    是怎
                                              你是怎么了呢啊噢    怎么
                                              你是怎么了呢啊噢    么了
                                              你是怎么了呢啊噢    了呢
                                              你是怎么了呢啊噢    呢啊
                                              你是怎么了呢啊噢    啊噢
                                              嗯哪                         嗯哪

扫码加我 拉你入群

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

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

分享0 收藏4 回帖

关键词：truncover infile 我是中国人 cards Input 我是中国人

1. data _null_;
   
2.         infile cards truncover;
   
3.         input char $500.;
   
4.                 do i=1 to klength(char)-1 by 1;
   
5.                         char1=ksubstr(char,i,2);
   
6.                         put _all_;
   
7.                 end;
   
8. cards;
   
9. 犹解嫁东风
   
10. 我是中国人啊
    
11. 你是怎么了呢啊噢
    
12. 嗯哪
    
13. ;
    
14. run;

复制代码

各位老师指正

soporaeternus 发表于 2011-9-28 14:29
各位老师指正

呵呵，请教下，klength  ,ksubstr  与length，substr有什么区别？  

webgu 发表于 2011-9-28 16:30
呵呵，请教下，klength  ,ksubstr  与length，substr有什么区别？

带有k的一系列字符处理函数，都是针对双字节字符来设计的，中文、日语、汉语等都是属于双字节字符，比如“中国”，如果用length的话，会返回4，但是用klength的话，就会返回2.

1. data have;
   
2.         x=length("中国");
   
3.         y=klength("中国");
   
4.         put x y;
   
5. run;

复制代码

soporaeternus 发表于 2011-9-28 14:29
各位老师指正

哈哈。 我给racoon的代码，跟你这如出一辙，连 infile 这个语句都一样。不过我没用ksubstr，字符里只有双字节的，所以用substr也没有问题。

1. data want;
   
2.         infile cards truncover;
   
3.         input char $500. @;
   
4.                 col=1;
   
5.                 do until (ksubstr(_infile_,col,2)=" ");
   
6.                         char1=ksubstr(_infile_,col,2);
   
7.                         col+1;
   
8.                         if klength(char1)>1 then output;
   
9.                 end;
   
10. cards;
    
11. 犹解嫁东风
    
12. 我是中国人啊
    
13. 你是怎么了呢啊噢
    
14. 嗯哪
    
15. ;
    
16. run;

复制代码

or

1. data want;
   
2.         set have;
   
3.         num=1;
   
4.         do until (ksubstr(char,num,2)=" ");
   
5.                 char1=ksubstr(char,num,2);
   
6.                 num+1;
   
7.                 if klength(char1)>1 then output;
   
8.         end;
   
9. run;

复制代码

YueweiLiu 发表于 2011-9-28 21:46
or

这个_INFILE_自动变量是什么意思呀？是在input buffer 还是PDV中了？

soporaeternus 发表于 2011-9-28 14:29
各位老师指正

厉害