进来看看，我也不知道

$表示的字符都一样吗？一样的话还可以做，不一样就不好办了；
建议：可以先读入每一行数据，用find函数查找$字符，substr函数截取字符串，将数据分列
分好列后用数组拉直成向量，删除空值就ok了

都是$$$三个字符

那我的方法应该可以做，随便写了一点，你可以参考一下
data a;
input var1 $20.;
datalines;
abc$$$
ccc
dddaaa$$$xyz
ddd
;
run;

data b;
set a;
if find(var1,'$') then do;
var2=substr(var1,1,find(var1,'$')-1);
var3=substr(var1,find(var1,'$'),3);
var4=substr(var1,find(var1,'$')+3,3);
end;
else var2=var1;
drop var1;
run;

data c;
set b;
array v(3) $ var2-var4;
do i=1 to dim(v);
var=v(i);
if var ne "" then output;
end;
keep var;
run;

  data want(keep=x);
  infile 'c:\temp\temp.txt' ;
  input x $;
  if index(_infile_,'$')^=0 then do;
     length=length(_infile_);
     _length=findc(_infile_,'$','b');
      if length>_length then do;
          x=scan(_infile_,1);
          output;
          x=compress(_infile_,'$','k');
          output;
          x=scan(_infile_,-1);
                  output;
      end;
      else do;
           x=scan(_infile_,1);
          output;
          x=compress(_infile_,'$','k');
          output;
      end;
  end;
  else output;
  run;