home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 199 / 4LOGIC10.ZIP / 4LVCXTR.BTM < prev    next >
Encoding:
Text File  |  1992-06-25  |  2.1 KB  |  70 lines
  1. :*******************************************************************************
  2. : A 4LOGIC batch utilioty     A Free program. All of the code here is released
  3. :                             to the public domain.
  4. : Name: 4LVCXTR.btm  v.1.0
  5. :
  6. : Author: Brad Owen
  7. :
  8. : Description: 4LVC module to extract files from an archive.
  9. :
  10. :              **  This program cannot be run standalone  **
  11. :              **      It can only be called by 4LVC      **
  12. :
  13. :*******************************************************************************
  14. @echo off
  15.     cls
  16.     iff %_batch == 1 then
  17.         beep 400 2 350 2 400 2 350 2 400 2 350 2
  18.         echo.
  19.         echo 4LVCXTR error: This program cannot be run standalone.
  20.         quit
  21.     endiff
  22.  
  23.     if not exist %1 quit
  24.     set LVCEXT=%@upper[%@name[%@line[%1,0]]]
  25.     set LVCEXT=%@substr[%LVCEXT,5,3]
  26.     iff %@index[%LVCEXT,`.`] EQ 0 then
  27.         set LVCEXT=
  28.     endiff
  29.     iff %@index[%LVCEXT,`.`] GT 0 then
  30.         set LVCEXT=%@substr[%LVCEXT,0,%@index[%LVCEXT,`.`]]
  31.     endiff
  32.     set LVC1=%@upper[%@name[%1]]
  33.     set LVC2=%@upper[%@ext[%1]]
  34.     iff "%pword" NE "" then
  35.         echos Xtracting %LVC1.%LVC2 as %LVC1.%LVCEXT from %archpass
  36.     else
  37.         echos Xtracting %LVC1.%LVC2 as %LVC1.%LVCEXT from %nopass
  38.     endiff
  39.  
  40.  
  41.     iff "%pword" NE "" then
  42.         @PKUNZIP -o -s%pword %archpass %_cwd\4Lvc-wrk\ %LVC1.%LVC2 >&! NUL
  43.     else
  44.         @PKUNZIP -o %nopass %_cwd\4Lvc-wrk\ %LVC1.%LVC2 >&! NUL
  45.     endiff
  46.     set pword=
  47.     set LVCRC=%?
  48.     iff %LVCRC NE 0 then
  49.         beep 400 2 350 2 400 2 350 2 400 2 350 2
  50.         echo Error: PKUNZIP failed to extract the file, Return-Code: %LVCRC
  51.         pause
  52.         goto WRAPUP
  53.     endiff
  54.     iff exist %LVC1.%LVCEXT then
  55.         cls
  56.         echo Renaming existing file %LVC1.%LVCEXT to
  57.         echos %LVC1.$$$
  58.         ren /q %LVC1.%LVCEXT %LVC1.$$$ >&! NUL
  59.     else
  60.         cls
  61.         echos     (creating new file)
  62.     endiff
  63.     copy /q %_cwd\4lvc-wrk\%LVC1.%LVC2 %LVC1.%LVCEXT >&! NUL
  64.     del /q %_cwd\4Lvc-wrk\%LVC1.%LVC2 >&! NUL
  65. :WRAPUP
  66.     set LVC1=
  67.     set LVC2=
  68.     set LVCEXT=
  69.     set LVCRC=
  70.