Editing Scanco User Instructions (section)

===Reading from files===
Sometimes you have a list of files (for example Micro-CT scans) that are to be processed in a certain way. The obvious way is to copy-paste the code several times, changing only the name of the file, but this is error-prone and inefficient. 
*A better way is to put the list of models into a text file, and then call a subroutine on each model file. For example:
<pre>
$ CLOSE/NOLOG foo
$ OPEN/READ foo DISK3:[MICROCT.PROJECTS.OWOC.COM]MYLIST.TXT
$read_loop:
$   READ/END=done foo myline
$   CALL process_me 'myline'
$   GOTO read_loop
$done:
$ CLOSE/NOLOG foo
$ EXIT
$process_me: SUBROUTINE
$ scriptname = DISK3:[MICROCT.PROJECTS.OWOC.COM]MYSCRIPT.COM
$ SUBMIT/NOPRINT/QUE=SYS$FAST/PARAM='P1' 'scriptname'
$ EXIT
$ ENDSUBROUTINE
</pre>
*The first line closes the file handle, in case it was left open in a previous script. 
*The second opens the file "MYLIST.TXT" for reading, and assigns the open file a handle named "foo". 
*A loop reads the file line-by-line, calling a subroutine with the contents of each line. 
*When the end of the file is reached, the file is closed and the script exits.


[[Image:Redirect.jpg|15px]] [[#top|''Return to Contents'']] or [[Main_Page|''Return to Main Page'']]