User guide

open fp = mydata;
do until eof(fp);
print readr(fp,200);;
endo;
fp = close(fp);
end;
Theoutput ... resetcommandwillcreateanauxiliaryoutputfilecalledmyda-
ta.asctoreceivetheoutput.Thewindowisturnedofftospeeduptheprocess.The
GAUSSdatafilemydata.datisopenedforreadingand200rowsarereadperiter-
ationuntiltheendofthefileisreached.Thedatareadareprintedtotheauxiliaryoutput
mydata.asconly,becausethewindowisoff.
22.1.2 General File I/O
getfwillreadafileandreturnitinastringvariable.Anykindoffilecanbereadin
thiswayaslongasitwillfitintoasinglestringvariable.
Toreadfilessequentially,usefopentoopenthefileandusefgets,fputs,and
associatedfunctionstoreadandwritethefile.Thecurrentpositioninafilecanbedeter-
minedwithftell.ThefollowingexampleusesthesefunctionstocopyanASCIItext
file:
proc copy(src, dest);
local fin, fout, str;
fin = fopen(src, "rb");
if not fin;
retp(1);
endif;
fout = fopen(dest, "wb");
if not fin;
call close(fin);
retp(2);
22-6
GAUSSUser Guide