用sas分离文本，求大神解答。题如下：

1425

收藏 2017-07-24

please write a SAS program to separate the text below：

One meets its destiny on the road he takes to avoid it. Your mind is like this water, my friend, when it is agitated, it becomes difficult to see, but if you allow it to settle, the answer becomes clear. Yesterday is history Tomorrow is a mystery. But today is a gift. That is why it’s called the present (the gift). Hope is a good thing, maybe the best of things, and no good thing ever dies.

Require 1: the length of each fragment can’t exceed 50;
Require 2: the word can’t be truncated.

扫码加我拉你入群

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

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

全部回复

wwang111

2017-7-24 14:49:24

data wanted;
set text;
_text=text;
array txt[*] $50 text1-text10;
i=1;
do until(_text="");
loc1=anyspace(_text,-50);
loc2=anypunct(_text,-50);
loc=max(loc1,loc2);
if loc=0 then loc=50;
txt[i]=left(substr(_text,1,loc));
_text=strip(substr(_text,loc+1));
i+1;
end;
keep text:;
run;