按照指定特征来拆分字符

shiyiming

举例如下：
[code:3u3qe55g]data qes;
input id x$;
length x $4000.;
cards;
101 “上海：浙江：等地：武警总队：高层：进行新一轮：调整”
102 “印度：最重通信卫星：发射升空后：火箭爆炸：星箭全毁”
;[/code:3u3qe55g]
[color=#FF0000:3u3qe55g]怎么把这句话按照‘：’来断开，
最后变为[/color:3u3qe55g]
[code:3u3qe55g]101 上海
101 浙江
101 等地
101 武警总队
101 高层
101 进行新一轮
101 调整
102 印度
102 最重通信卫星
102 发射升空后
102 火箭爆炸
102 星箭全毁[/code:3u3qe55g]

shiyiming

不知道你的分隔符是中文的冒号还是英文的冒号，下面的仅供参考。
data res;
set qes;
i=1;
do while(scan(x,i,'：') ne '');
str=scan(x,i,'：');
i+1;
output;
end;
keep id str;
run;

shiyiming

二楼给出的code跑不出的啊，可否再调整下？