home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l180 / 2.ddi / WORDCOUN.BAS < prev   
Encoding:
BASIC Source File  |  1989-02-07  |  2.7 KB  |  79 lines
  1.   ' ************************************************
  2.   ' **  Name:          WORDCOUN                   **
  3.   ' **  Type:          Toolbox                    **
  4.   ' **  Module:        WORDCOUN.BAS               **
  5.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  6.   ' ************************************************
  7.   '
  8.   ' USAGE:           WORDCOUN filename
  9.   ' .MAK FILE:       (none)
  10.   ' PARAMETERS:      filename      Name of file to be processed
  11.   ' VARIABLES:       fileName$     Name of file from the command line
  12.   '                  sep$          List of characters defined as word separators
  13.   '                  a$            Each line from the file
  14.   '                  totalCount&   Total count of words
  15.   
  16.     DECLARE FUNCTION WordCount% (a$, sep$)
  17.   
  18.   ' Assume a filename has been given on the command line
  19.     fileName$ = COMMAND$
  20.   
  21.   ' Open the file
  22.     OPEN fileName$ FOR INPUT AS #1
  23.   
  24.   ' Define the word-separating characters as space, tab, and comma
  25.     sep$ = " " + CHR$(9) + ","
  26.   
  27.   ' Read in and process each line
  28.     DO
  29.         LINE INPUT #1, a$
  30.         totalCount& = totalCount& + WordCount%(a$, sep$)
  31.     LOOP UNTIL EOF(1)
  32.   
  33.   ' Print the results
  34.     PRINT "There are"; totalCount&; "words in "; fileName$
  35.   
  36.   ' That's all
  37.     END
  38.   
  39.   ' ************************************************
  40.   ' **  Name:          Wordcount%                 **
  41.   ' **  Type:          Function                   **
  42.   ' **  Module:        WORDCOUN.BAS               **
  43.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  44.   ' ************************************************
  45.   '
  46.   ' Returns the number of words in a string.
  47.   '
  48.   ' EXAMPLE OF USE:  WordCount% a$, sep$
  49.   ' PARAMETERS:      a$         String containing words to be counted
  50.   '                  sep$       List of word separation characters
  51.   ' VARIABLES:       count%     Count of words
  52.   '                  flag%      Indicates if scanning is currently inside of a
  53.   '                             word
  54.   '                  la%        length of a$
  55.   '                  i%         Index to each character of a$
  56.   ' MODULE LEVEL
  57.   '   DECLARATIONS:  DECLARE FUNCTION WordCount% (a$, sep$)
  58.   '
  59.     FUNCTION WordCount% (a$, sep$) STATIC
  60.         count% = 0
  61.         flag% = 0
  62.         la% = LEN(a$)
  63.         IF la% > 0 AND sep$ <> "" THEN
  64.             FOR i% = 1 TO la%
  65.                 IF INSTR(sep$, MID$(a$, i%, 1)) THEN
  66.                     IF flag% THEN
  67.                         flag% = 0
  68.                         count% = count% + 1
  69.                     END IF
  70.                 ELSE
  71.                     flag% = 1
  72.                 END IF
  73.             NEXT i%
  74.         END IF
  75.         WordCount% = count% + flag%
  76.       
  77.     END FUNCTION
  78.   
  79.