home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / database / c2dbase / cdbutil.prc < prev    next >
Encoding:
Text File  |  1985-11-28  |  1.8 KB  |  55 lines
  1. *****************
  2. PROCEDURE RECOUNT
  3. *****************
  4. *THIS PROCEDURE PROVIDES A FAST ALTERNATIVE TO DBASE'S COUNT  COMMAND.  iT GIVES
  5. *AN UNFILTERED COUNT OF THE NUMBER OF RECORD IN A .DBF FILE.  (NORMALLY, YOU CAN
  6. *HIDE CERTAIN RECORDS FROM  DBASE BY  USING THE 'SET  FILTER  TO'  COMMAND. THIS
  7. *WOULD CHANGE THE RECORD COUNT. THIS PROCEDURE INCLUDES THOSE HIDDEN RECORDS.)
  8.   PARAMETERS FILE
  9.   RUN CDBUTIL.EXE 2 &FILE
  10. RETURN
  11.  
  12. ******************
  13. PROCEDURE MEMCOUNT
  14. ******************
  15. *THIS PROCEDURE IS THE SAME AS RECOUNT,  EXCEPT THAT THE RECORD  COUNT IS PASSED
  16. *TO A USER SPECIFIED MEMORY VARIABLE.
  17.   PARAMETERS FILE,RCOUNT
  18.   RUN CDBUTIL.EXE 3 &FILE
  19.   *ESTABLISH FULL PATHNAME OF .MEM FILE
  20.   TEMP=SUBSTR(FILE,1)
  21.   SLASH=AT("\",TEMP)
  22.   POSITION=0
  23.   DO WHILE SLASH > 0
  24.     POSITION=POSITION+SLASH
  25.     TEMP=SUBSTR(FILE,1+POSITION)
  26.     SLASH=AT("\",TEMP)
  27.   ENDDO
  28.   MEMFILE=SUBSTR(FILE,1,POSITION)+'RETURN'
  29.   RESTORE FROM &MEMFILE ADDITIVE
  30.   RCOUNT=VAL(RETPARAM)
  31.   *RETPARAM IS ALWAYS RESTORED AS A STRING  
  32. RETURN
  33.  
  34. *****************
  35. PROCEDURE MEMDISP
  36. *****************
  37. *THIS PROCEDURE DISPLAYS THE MEMO FIELD(S) SPECIFIED IN THE VARIABLE RECRANGE
  38. *RECRANGE MUST BE A STRING REPRESENTING A RECORD NUMBER, RECORD RANGE, OR 
  39. *STARTING OR ENDING RECORD NUMBER.
  40.   PARAMETERS FILE,RECRANGE
  41.   RUN CDBUTIL.EXE 5 &FILE &RECRANGE
  42. RETURN
  43.  
  44. ******************
  45. PROCEDURE STRFIND
  46. ******************
  47. *THIS PROCEDURE SEARCHES THROUGH RECORDS TO FIND A KEYPHRASE. THE RECORDS
  48. *SEARCHED ARE SPECIFIED IN THE THIRD VARIABLE RECRANGE AND MUST BE A STRING
  49. *OR STRING VARIABLE REPRESENTING THE RECORD OR RECORD RANGE. THE KEYPHRASE 
  50. *IS GIVEN IN THE SECOND VARIABLE, AND THE FILE TO BE SEARCHED IS GIVEN IN
  51. *THE FIRST VARIABLE.
  52.   PARAMETERS FILE, PHRASE, RECRANGE
  53.   RUN CDBUTIL.EXE 6 &FILE &PHRASE &RECRANGE
  54. RETURN
  55.