用迭代从string 里面drop word

怎么从一个string 里面drop 一个word, 并且把余下的word 再组成一个string.
比如
String = today is a very good day
想做一个loop,取出word one by one, 然后留下余下的生成一个string. 这个string 共有 6 个 word 所以需要取6次并会生成6 个新的 string
我现在想了一个，可是并不成功
Data all;
String='today is a very good day';
Cnt=countw(string);
Array word[cnt] $10;
Array strnew[cnt] $10;
Do i=1 to cnt;
Word=scan(string,I,' ');
Strnew=tranwrd(string,word,'');
Output
End;
Drop I;
Run;
请高手帮忙看看有没有别的方法，我的需要怎么改。多谢

1. data all;
   
2.    string = 'today is a very good day';
   
3.    n = countw(string);   
   
4.    do i = 1 to n;
   
5.         word = scan(string, i);
   
6.      string_ = string;
   
7.      substr(string_, indexw(string, scan(string, i)), length(scan(string, i)) )= ' ';
   
8.       strnew = compbl(string_); output;
   
9.    end;
   
10.   drop i string_ n;
    
11. run;

复制代码

Thanks