home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / FINDTEXT / FINDTEXT.PRG < prev    next >
Encoding:
Text File  |  1993-01-31  |  1.2 KB  |  43 lines
  1. ****************************************************************
  2. *     * 10/18/92                   FINDTEXT.PRG       20:50:16 *
  3. ****************************************************************
  4. *     *                                                        *
  5. *     * Description:                                           *
  6. *     *  Searches files for text                               *
  7. *     *  FINDTEXT illustrates how to use ADIR() function       *
  8. ****************************************************************
  9. SET TALK ON
  10. SET SAFETY OFF
  11. CLEAR
  12. filename = "            "
  13. srch = REPLI(" ",80)
  14. @ 10,10 SAY "Enter File skeleton: " GET filename
  15. @ 11,10 SAY "Enter Search String: " GET srch
  16. READ
  17. string = ALLTRIM(upper(srch))
  18. IF LEN(string)=0
  19.    RETURN
  20. ENDIF
  21. DECLARE ary[1]
  22. nfiles = ADIR(ary, TRIM(filename))
  23. IF nfiles > 0
  24.    FOR i = 1 TO nfiles
  25.       USE textfile
  26.       
  27.       APPEND FROM TRIM(ary[I,1]) SDF
  28.       COUNT = 0
  29.       SCAN
  30.          IF string$upper(TEXT)
  31.             COUNT=COUNT+1
  32.             ? LTRIM(STR(RECNO()))+ary[i,1]+": ",TRIM(TEXT)
  33.          ENDIF
  34.       ENDSCAN
  35.       ZAP
  36.       IF COUNT > 0
  37.          ? COUNT," occurrences found in file:",ary[i,1]
  38.          ?
  39.       ENDIF
  40.    ENDFOR
  41. ENDIF   
  42.    
  43.