程序出现WARNING: The quoted string currently being processed has become more than 262 bytes long.  You
         might have unbalanced quotation marks.

data aaa;
infile  "F:\123.txt" LRECL=32767;
length x $11000.;
input x:$;
run;

data _null_;
        infile  "F:\long_string.txt" LRECL=32767;
    file  "F:\124.txt" LRECL=32767;
        length x $11000.;
        input;
        call symput('temp', _infile_);
        %put &temp;
    set aaa;
    x=tranwrd(x,'abc',"&temp");
        put x;
run;
这样运行为什么会得不到结果呢！

如果是long_string1.txt，如何把abc替换为long_string1.txt的内容呢？谢谢！

要把　long_string1.txt 中的每一行联在一起，再替换　'abc' 是这样的。
不一定是你想要的结果。

还是有bug，结果中abc还存在！

麻烦用我刚上传的123.txt试试，谢谢！

p = find(x, 'abc');  语句将找到的第一个abc的位置赋值给p。
下面的条件语句包括了p＝１的情况。但不能替换同一个字符串中的多个abc。
如果需要替换一个字符串中的多个abc，可以将替换过的 123.txt　作为原123.txt重新运行这段程序。

我上传的新123.txt文件中就含一个abc啊

options noquotelenmax;
data _null_;
   file "c:\temp.txt" ;
   infile "c:\longstring.txt"  truncover firstobs=1 end=last1;
   length temp$11000.;
   retain temp;
   do until (last1);
     input x $11000.;
         temp=cats(temp,_infile_);
   if last1 then call symput("string",temp);
   end;
   infile "c:\123.txt" truncover firstobs=1 end=last2;
   length _xyz $11000.;
     do until (last2);
           input xyz $11000.;
           if index(_infile_,'abc')^=0 then do;
             if findc(_infile_,'x','b')>3 then _xyz=cats(scan(_infile_,1,'abc'),resolve('&string'),scan(_infile_,-1,'abc'));
                 else _xyz=cats(scan(_infile_,1,'abc'),resolve('&string'));
           end;
           else _xyz=xyz;            
           put _xyz $;
         end;
run;