home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / RED.BTM < prev    next >
Text File  |  1994-10-20  |  2KB  |  89 lines
  1. :RED.BTM
  2. : See HELP below for details.
  3. : Itamar Even-Zohar, itamarez@plato.tau.ac.il
  4. : December 13, 1993
  5.  
  6. iff .%@search[ted.com]==. .or. .%@search[fv.com]==. then
  7. echo You must have both Buerg's FV, and TED 3.0 to run this batch
  8. quit
  9. endiff
  10.  
  11. if .%1==. goto help
  12.  
  13. setlocal
  14.  
  15. call settemp.btm
  16. :: (sets temp drive for program)
  17.  
  18. set arcfn=%1
  19. if %@index[%1,.] lt 0 (echo Must have extension too^goto quit)
  20. if not exist %arcfn (echo %@upper["%1"] not found^goto quit)
  21.    ::if %@ext[%arcfn]==zip set vw=pkunzip -c
  22.    if %@ext[%arcfn]==zip set vw=unzip -p
  23.    if %@ext[%arcfn]==arc set vw=pkunpak -c
  24.    if %@ext[%arcfn]==lzh set vw=lha p
  25.    if %@ext[%arcfn]==arj set vw=arj p
  26.    if %@ext[%arcfn]==zoo set vw=zoo -p
  27. set fn=%@unique[%temp]
  28. set sortfn=%@unique[%temp]
  29. shift
  30. alias red `%vw %arcfn %1 |list /s`
  31. fv %arcfn >%fn
  32. keystack 0 f8 f8 f8 f8 f8 f8 ks ctrl-pgdn up up f8 f8 f7 enter^ted %fn
  33. cls
  34. sort <%fn >%sortfn
  35. move /q %sortfn %fn
  36.  
  37. if .%1==. goto select
  38. goto fn
  39.  
  40. :select
  41. set cmdline=%@select[%fn,2,59,24,76, %@filename[%arcfn] ]
  42.    :cmdline
  43.    set cmdline=%@instr[0,12,%cmdline]
  44.    :: (this cuts the garbage from the filename)
  45.    iff .%cmdline != . then
  46.     red %cmdline
  47.        if .%1 != . goto quit
  48.        goto select
  49.     else
  50.     goto quit
  51.    endiff
  52.  
  53. :fn
  54. find /i "%1" < %fn | input %%cmdline
  55. goto cmdline
  56.  
  57. :quit
  58. del /q %fn >&nul
  59. endlocal
  60. quit
  61.  
  62. :-------------------------
  63. :help
  64. cls
  65. screen 2 0
  66. text
  67.       Allows fast reading of text files from ZIP, LZH, ARJ, ARC, and
  68.       ZOO archive formats. You may type a few dintinguishing characters
  69.       of the desired filename, or allow a pop-up menu (for all names).
  70.       Note: You must have Buerg's FV, TED 3.0 (c) and the respective
  71.       archivers for this batch to work. (FV and TED 3.0 are downloadable
  72.       from Simtel20 mirrors as FVxxx.ZIP in /msdos/arcutil, and
  73.       TED3.ZIP in /msdos/editor.)
  74.       **Itamar Even-Zohar, itamarez@plato.tau.ac.il, December 13, 1993**
  75.  
  76.      Syntax is
  77.      RED [path\]archive_name[.ext] [(a segment from) file_name]
  78.  
  79.      If no filename is specified, you will get a pop-up menu with
  80.      all the filenames in the archive. You can point and shoot, then
  81.      exit with ESC.
  82.  
  83.      Examples:
  84.      RED \docs\docs.zip df4  -- will read DF460.DOC from DOCS.ZIP
  85.      RED \docs\docs          -- will show a pop-up menu of files
  86.                                 In DOCS.ZIP
  87. endtext
  88. quit
  89.