openfile

OPENFILE Open a file in read/write mode, catching errors
  FID = OPENFILE(FILENAME,PERMISSION) opens file FILENAME
  in PERMISSION mode ('r' or 'w') and return a file identifier FID.
  File is opened in text mode: no effect on Unix but useful on Windows.

0001 function fid = openfile(filename,permission)
0002 %OPENFILE Open a file in read/write mode, catching errors
0003 %  FID = OPENFILE(FILENAME,PERMISSION) opens file FILENAME
0004 %  in PERMISSION mode ('r' or 'w') and return a file identifier FID.
0005 %  File is opened in text mode: no effect on Unix but useful on Windows.
0006 
0007 %  Copyright (C) 2004 Guillaume Flandin <Guillaume@artefact.tk>
0008 %  $Revision: 1.1 $Date: 2004/05/05 17:14:09 $
0009 
0010 [fid, errmsg] = fopen(filename,[permission 't']);
0011 if ~isempty(errmsg)
0012     switch permission
0013         case 'r'
0014             error(sprintf('Cannot open %s in read mode.',filename));
0015         case 'w'
0016             error(sprintf('Cannot open %s in write mode.',filename));
0017         otherwise
0018             error(errmsg);
0019     end
0020 end