Ray Yates
: mivascript at, pcinet d0t com
09/12/2011 22:19 p.m.
09/12/2011 22:19 p.m.
This add-on to the dir() function adds a simple filter for file extensions.
<MvFUNCTIONNAME="Read_Dir"PARAMETERS="path, ext, loc, filelist var"STANDARDOUTPUTLEVEL=""><MvIFEXPR="{ dir(l.path, l.loc, l.files) LT 3 }>"<MvFUNCRETURNVALUE=""></MvIF><MvASSIGNNAME="l.extlen"VALUE="{ len(l.ext) }>"<MvCOMMENT> Ignore ./ and ../ and filter out non matching extensions </MvCOMMENT><MvFOREACHITERATOR="l.file"ARRAY="l.files"INDEX="l.pos"FIRST="{ 3 }>"<MvASSIGNNAME="l.filelen"VALUE="{ len(l.file) }>"<MvIFEXPR="{ substring(l.file, l.filelen - l.extlen + 1, l.extlen) EQ l.ext }>"<MvASSIGNNAME="l.ndx"VALUE="{ l.ndx + 1 }>"<MvASSIGNNAME="l.filelist"INDEX="{l.ndx}"VALUE="{ l.file }>"</MvIF></MvFOREACH><MvFUNCTIONRETURNVALUE="{ miva_array_collapse(l.filelist) }>"</MvFUNCTION>
 
 
