| 
 | 
沙发
 
 
 楼主 |
发表于 2003-11-7 23:21:30
|
只看该作者
 
 
 
init: 
mystring='eg'; 
rc=filename('myfile', 'd:\a.txt'); 
fileid=fopen('myfile'); 
if (fileid>0) then do; 
      rc=fsep(fileid,','); 
      do while(fread(fileid)=0); 
            rc=fget(fileid,thestring); 
            col=indexw(thestring,mystring); 
            row=fnote(fileid); 
            put thestring; 
            put row= col=; 
            end; 
      end; 
rc=fclose(fileid); 
return; |   
 
 
 
 |