求助：如何读入这种格式的文本文件，谢谢

shiyiming

chr=tranwrd(chr,',,',',.,');
chr=tranwrd(chr,',,',',.,');

之所以写2行，是为了处理连续奇数个','的情况吧！

shiyiming

<!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D --> 我瞎写的，9999999只是想保证logicl record length的值比TXT文件的长度大，没别的意思
不知道实际应用中记录行的最大长度是什么，其实如果没有超过infile语句中linesize选项的最大值的话，直接input是完全可以的，lrecl选项好象不是必须的；
[code:1ftrnjhe]data aaa;
        infile &quot;d&#58;\aaa&#46;txt&quot; dlm=',;' dsd linesize=32767;
        input var1 $ var2-var11 @@;         
run;[/code:1ftrnjhe]
但如果长度超过32767的话，上面的方法就会报错
[code:1ftrnjhe]NOTE&#58; LOST CARD&#46;
NOTE&#58; 从 Infile &quot;d&#58;\aaa&#46;txt&quot; 中读取了 1 条记录。
      最小记录长度是 32767。
      最大记录长度是 32767。
       一行或多行被截断。[/code:1ftrnjhe]
tranwrd()函数是没法子的法子，我没想到scan()函数会把连续的2个分隔符当一个看，又没想到别的好方法

shiyiming

to hopewell
呵呵 我想的办法也是这样，其实可以把每个&quot;,&quot;号前加个空格
chr=tranwrd(chr,&quot;,&quot;,&quot; ,&quot;);

也是没有法子的法子...

shiyiming

<!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->

shiyiming

to vicky1020

倒数第二个variable不总是空，比如有的记录是“D”，其实是个字符型变量，谢谢

shiyiming

to hopewell

我的记录应该超过了linesize选项的最大值，因为我用lrecl＝1048576 大概只读了1/4的数据

shiyiming

TO: stonetj
要读入的是什么数据呀,这么大?
如果是从数据库转出的,还是直接读数据库吧,又方便还不容易出错.

shiyiming

原则上可以用fopen(fileref, 'i', 1, 'b')来设定一次读一个字符进栈，碰到逗号或者分号把栈内所有字符存入相应变量，碰到分号OUTPUT。
也可能就是不成，我瞎JB说的。[url:1acfdy5t]http&#58;//support&#46;sas&#46;com/kb/19/345&#46;html[/url:1acfdy5t]

shiyiming

to hopewell
最终还是通过数据库解决的，谢谢各位！