SAS如何读入这样的txt文件

txt文件内容如下：
abc$$$
ccc
dddaaa$$$xyz
ddd
希望得到的数据集为：
abc
$$$
ccc
dddaaa
$$$
xyz

谢谢！

进来看看，我也不知道

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

dengrong1989 发表于 2014-1-23 09:20
$表示的字符都一样吗？一样的话还可以做，不一样就不好办了；
建议：可以先读入每一行数据，用find函数查找 ...

都是$$$三个字符

dxystata 发表于 2014-1-23 09:22
都是$$$三个字符

那我的方法应该可以做，随便写了一点，你可以参考一下
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;

farmman60 发表于 2014-1-24 01:56
data want(keep=x);
  infile 'c:\temp\temp.txt' ;
  input x $;

学习了，很不错

看看

分行录入数据      input  后面加上@@    sas读入数据时不会漏掉

1. abc
   
2. $cccdddaaa
   
3. xyzddd

复制代码

希望得到的数据集为：

1. abc
   
2. cccdddaaa
   
3. $
   
4. xyz

复制代码

如果数据是以上形式，再假设是txt文档。两个宏自行调整，文本长度根据需要调整。

1. data _null_;
   
2. infile "&intxt" n=4;
   
3. file "&outtxt";
   
4. input var1 $. / var2 $. @@;
   
5. var2=scan(var2,"$",2);
   
6. input / var3 $. ;
   
7. var3=prxchange("s/ddd$//",-1, trim(var3));
   
8. put var1 /var2 /"$"/var3;
   
9. run;

复制代码

其实用一个regular expression就可以搞定的。。主要是不知道你的具体数据。。