|
沙发
楼主 |
发表于 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; |
|