2002-09-07 15:47

'From: Bat'Kiro  Sep 4th, 2002, 10:55am
'search a directory of files for text in the file eg the word "compose" then
'display the files that have these results

     $INCLUDE "rapidq.inc"

     DIM file_list AS QFILESTREAM
     DIM file_search AS QFILESTREAM

     DIM filelist AS STRING :'your list of files
     DIM search_what AS STRING :'your search string

     filelist="filelist.txt" :'or another file
     search_what="Rapid-Q" : 'or another string

     file_list.OPEN(filelist,fmOpenRead)
     DO
      IF file_list.eof THEN EXIT DO
      fn$=file_list.readline
      file_search.OPEN(fn$,fmOpenRead)
      DO
       IF file_search.eof THEN EXIT DO
       lin$=file_search.readline
       IF INSTR(lin$,search_what)>0 THEN
        SHOWMESSAGE fn$
        EXIT DO
       END IF
      LOOP
      file_search.CLOSE
     LOOP
     file_list.CLOSE

2002-09-07 15:47