home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / DVD!FX17.LHA / FrexxEd / fpl / SearchCount.FPL < prev    next >
Encoding:
Text File  |  1994-11-18  |  550 b   |  25 lines
  1. export int SearchCount()
  2. {
  3.   int BufferID=DuplicateEntry();
  4.   int foundcount=0;
  5.   int currentbuffer=GetBufferID();
  6.  
  7.   if (BufferID) {
  8.     CurrentBuffer(BufferID);
  9.     GotoLine(1, 0);
  10.     while (Search()>=0)
  11.       foundcount++;
  12.     CurrentBuffer(currentbuffer);
  13.     Kill(BufferID);
  14.     Request(joinstr("\"", ReadInfo("search_buffer"), "\" is found ",
  15.                     ltostr(foundcount), " times!"),
  16.             "SearchCount", "Understood!");
  17.   }
  18.  
  19. }
  20.  
  21. /* Assign "amiga control s" to the function */
  22.  
  23. AssignKey("SearchCount();", "amiga control s");
  24.  
  25.