home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / PBWIZ19 / PBWIZ19.ZIP / ARCVIEW.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-03-01  |  3.7 KB  |  110 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |         PBWIZ  Copyright (c) 1991-1993  Thomas G. Hanlin III         |
  4. '   |                      3544 E. Southern Ave. #104                      |
  5. '   |                            Mesa, AZ 85204                            |
  6. '   |                                                                      |
  7. '   |                      PowerBASIC Wizard's Library                     |
  8. '   |                                                                      |
  9. '   +----------------------------------------------------------------------+
  10.  
  11. ' This is another simple demo of the PBWiz routines.  It allows you to
  12. ' view the files in an archive (.ARC, .ARJ, .LZH, .PAK, .ZIP, or .ZOO).
  13.  
  14. ' Syntax:
  15. '   ARCVIEW arcname[.ext] [/V]
  16.  
  17. ' The file extension for the archive is optional, although you may want to
  18. ' specify it if there is a possibility that you have two archives of the
  19. ' same name but different extensions (e.g., FOO.ARJ and FOO.ZIP).  The /V
  20. ' option allows you to specify a full listing-- without it, you will get
  21. ' a "wide format" display containing just the file names in the archive.
  22.  
  23.    $DIM ARRAY
  24.  
  25.    DECLARE SUB CloseA ()
  26.    DECLARE SUB FindFirstA (STRING, STRING, INTEGER)
  27.    DECLARE SUB FindNextA (INTEGER)
  28.    DECLARE FUNCTION GetCRCA$ ()
  29.    DECLARE FUNCTION GetDateA$ ()
  30.    DECLARE FUNCTION GetNameA$ ()
  31.    DECLARE SUB GetSizeA (LONG, LONG)
  32.    DECLARE FUNCTION GetTimeA$ ()
  33.  
  34.    DECLARE SUB GetComma (LONG, INTEGER)
  35.  
  36.    $LINK "pbwiz.pbl"
  37.  
  38.    DEFINT A-Z
  39.  
  40.    Cmd$ = LTRIM$(RTRIM$(UCASE$(COMMAND$)))
  41.    IF INSTR(Cmd$, "/?") THEN
  42.       PRINT "ARCVIEW: View Archive Demo for PBWiz by Thomas G. Hanlin III"
  43.       PRINT
  44.       PRINT "Syntax:"
  45.       PRINT "  ARCVIEW arcname[.ext] [/V]
  46.       PRINT
  47.       PRINT "Use /V for a full listing, as opposed to just a list of the files contained"
  48.       PRINT "in the archive.  ARCVIEW currently supports ARC, ARJ, EXE, LZH, PAK, ZIP,"
  49.       PRINT "and ZOO."
  50.       END
  51.    END IF
  52.    tmp = INSTR(Cmd$, "/V")
  53.    IF tmp THEN
  54.       FullView = -1
  55.       Cmd$ = LTRIM$(RTRIM$(LEFT$(Cmd$, tmp - 1) + MID$(Cmd$, tmp + 2)))
  56.    END IF
  57.    IF LEN(Cmd$) THEN
  58.       Arc$ = Cmd$
  59.    ELSE
  60.       PRINT "Please specify the name of an archive."
  61.       END
  62.    END IF
  63.  
  64.    FindFirstA Arc$, "*.*", ErrCode
  65.    IF ErrCode THEN
  66.       PRINT "Unable to open archive "; CHR$(34); Arc$; CHR$(34)
  67.       END
  68.    END IF
  69.  
  70.    IF FullView THEN
  71.       PRINT "Filename       Date       Time    CRC        Curr. Size    Orig. Size"
  72.       PRINT "------------   --------   -----   --------   -----------   -----------"
  73.    END IF
  74.  
  75.    DO
  76.       FileName$ = GetNameA$
  77.       IF FullView THEN
  78.          PRINT FileName$; SPACE$(15 - LEN(FileName$));
  79.          DateSt$ = LEFT$(GetDateA$, 6) + RIGHT$(GetDateA$, 2)
  80.          TimeSt$ = LEFT$(GetTimeA$, 5)
  81.          PRINT DateSt$; "   "; TimeSt$; "   "; GetCRCA$;
  82.          GetSizeA OriginalSize&, CurrentSize&
  83.          PrintComma CurrentSize&, 14
  84.          PrintComma OriginalSize&, 14
  85.          PRINT
  86.       ELSE
  87.          PRINT FileName$; SPACE$(16 - LEN(FileName$));
  88.       END IF
  89.       FindNextA ErrCode
  90.    LOOP UNTIL ErrCode
  91.  
  92.    CloseA
  93.  
  94.    IF NOT FullView THEN PRINT
  95.  
  96. SUB PrintComma (Number&, FieldLen)
  97.    N$ = LTRIM$(STR$(Number&))
  98.    R$ = ""
  99.    DO WHILE LEN(N$) > 3
  100.       R$ = RIGHT$(N$, 3) + "," + R$
  101.       N$ = LEFT$(N$, LEN(N$) - 3)
  102.    LOOP
  103.    IF LEN(N$) THEN R$ = N$ + "," + R$
  104.    IF RIGHT$(R$, 1) = "," THEN R$ = LEFT$(R$, LEN(R$) - 1)
  105.    IF LEN(R$) < FieldLen THEN
  106.       R$ = SPACE$(FieldLen - LEN(R$)) + R$
  107.    END IF
  108.    PRINT R$;
  109. END SUB
  110.