home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SAMPLES.EXE / T_MMOFND.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  1.4 KB  |  61 lines
  1. *****************************************************************
  2. * Test program for MEMOFIND -- FILE = T_MMOFND.PRG
  3. *****************************************************************
  4.  
  5. * Copyright(c) 1991 -- James Occhiogrosso
  6.  
  7.  
  8. INITGLOBAL()
  9. SETCOLOR(colstd)
  10. CLEAR
  11.  
  12.  
  13. filename = "itfile"            && change the names in quotes
  14. index1   = "itfile1"           && to match your database
  15. index2   = "itfile2"
  16. memoname = "comment"
  17.  
  18. USE (filename) INDEX (index1), (index2) NEW
  19.  
  20. find_array = {}
  21. look_for = space(25)
  22. case_on = .F.
  23.  
  24. DO WHILE .T.
  25.  
  26.     CLEAR
  27.  
  28.     @ 10, 10 SAY 'Enter search text ........ ' ;
  29.              GET look_for pict "@x"
  30.     @ 11, 10 SAY 'Enable case sensitivity .. ' ;
  31.              GET case_on pict 'Y'
  32.     READ
  33.  
  34.     start = SECONDS()
  35.  
  36.     rec_found = MEMOFIND(filename, memoname, TRIM(look_for), ;
  37.                 @find_array, case_on)
  38.  
  39.     elapsed =  SECONDS() - start
  40.     @ 14, 10 SAY 'elapsed time = ' +ltrim(str(elapsed))
  41.  
  42.     IF rec_found
  43.         FOR counter = 1 TO len(find_array)
  44.             @ 18, 0
  45.             GOTO (find_array[counter])
  46.  
  47.             @ 18, 5 say 'Found at record ' + ;
  48.               LTRIM(STR(find_array[counter])) + ' Press a key.'
  49.  
  50.             INKEY(0)
  51.         NEXT
  52.     ELSE
  53.         @ 18, 0
  54.         @ 18, 10 say 'Nothing found! Press any key '
  55.         INKEY(0)
  56.     ENDIF
  57.  
  58. ENDDO
  59.  
  60. RETURN
  61.