Hi mark.

02-Jun-03 11:54:40, mark lewis wrote to Renato Zambon

with these changes it should run a lot faster on big lists.

 ml> === snip ===
 ml> {at}echo off
     setlocal
 ml> set lstname=deleta.lst
 ml> set logname=deleta.log

 ml> echo. >>> %logname%
 ml> echo ----------  %_DOW %_date, FTSCHATCH Process >> %logname%

 ml> echo   %_TIME%  DELETION: Starting process... >> %logname%
 ml> if not exist %lstname% goto error1

 ml> set linecnt=%{at}lines[%lstname%]
 ml> if %linecnt% EQ -1 goto error2
 ml> iff  %linecnt% EQ 0 then
 ml>   echo   %_TIME%  DELETION: Attempting to delete 1 file. >> %logname%
 ml> else
 ml>   echo   %_TIME%  DELETION: Attempting to delete %{at}inc[%linecnt%] files.
 ml> >> %logname
 ml> endiff
 ml> set curline=0

  for x in ({at}%lstname%) do gosub loop
  goto loop_done

 ml> :loop

 set hfname=%x
 ml> set curline=%{at}inc[%curline%]

 ml> iff exist %hfname% then
 ml>   echos   %_TIME%  DELETION: Deleting %hfname% >> %logname%
       del /q %hfname% >&> %logname%
       echo. >> %logname%
 ml> else
 ml>   echo ! %_TIME%  DELETION: %hfname% not found! >> %logname%
 ml> endiff
return
:loop_done

 ml> echos   %_TIME%  DELETION: Removing input file %lstname% >> %logname%
     del /q %lstname% >&> %logname%
     echo. >> %logname%
 ml> goto end

 ml> :error1
 ml> echo ! %_TIME%  DELETION: %lstame% not found! >> %logname%
 ml> goto end

 ml> :error2
 ml> echo ! %_TIME%  DELETION: %lstame% is an empty file! >> %logname%
 ml> goto end

 ml> :end
 ml> echo   %_TIME%  DELETION: Process complete. >> %logname%

 ml> )\/(ark

 -=> Bye <=-

---
(3:640/1042)