/* remove dtime_04294967295_ord.txt */ % % stack: srch-dir prev-dir % filing dup &"\" !Zip.Basex 0 !Zip.Timex 0 !Zip.Timey % % get the list of all zip text items in a folder % % stack: srch-dir prev-dir zip-item-dir % "*.txt" exch "DescendF" false "Allz" File.DirOpen { "Allz" File.DirPrev isnull ? "curitem" log)( dup fileroot "_" 0 1 1 parse % % compare the min/sec % dup 4 right _Zip.Timey sub abs "with3" log)( 3 le { % % the min/sec are within 3 seconds % check the hours are within 10 hours % dup 10 left _Zip.Timex sub abs "with10" log)( 10 le { % % the hours are within 10 hours % delete this file % second "del" log)( del } { % % the hours are not within 10 hours % this is a different date/time file % } ifelse } { % % the min/sec are not within 3 seconds % this is a different date/time file % } ifelse "dtime" log)( dup 10 left !Zip.Timex 4 right !Zip.Timey pop } loop pop "Allz" File.DirClose "allz" log)( exch