* -- finds files that contain a string
* -- copyright (c) 2006 Broad Lea LLC, all rights reserved.

lparameter cstring, lIncReports

if empty(cString)
	return
endif

#DEFINE ResultsPerPage  35

on escape do rbfindend

clear
local cFirstOcc, nResults
nResults = 0

cFile = sys(2000, "*.prg")
do while not empty(cFile)
	cContents = upper(filetostr(cFile))
	if upper(cstring) $ cContents
		nOccurs = occurs(upper(cstring), cContents)
*		cFirstOcc = alltrim(substr(cContents, at(upper(cString), cContents), 30))
		? str(nOccurs,4)+" " + cFile &&+ "  " + cFirstOcc
		nResults = nResults + 1
	endif
	cFile = sys(2000, "*.prg", 1)
	if nResults >= ResultsPerPage
		nResults = 0
		wait window
		?
	endif
enddo

cFile = sys(2000, "*.sct")
do while not empty(cFile)
	cContents = upper(filetostr(cFile))
	if upper(cstring) $ cContents
		nOccurs = occurs(upper(cstring), cContents)
		? str(nOccurs,4)+" " + cFile 
		nResults = nResults + 1
	endif
	cFile = sys(2000, "*.sct", 1)
	if nResults >= ResultsPerPage
		nResults = 0
		wait window
		?
	endif
enddo

if lIncReports
	cFile = sys(2000, "*.fr?")
	do while not empty(cFile)
		cContents = upper(filetostr(cFile))
		if upper(cstring) $ cContents
			nOccurs = occurs(upper(cstring), cContents)
			? str(nOccurs,4)+" " + cFile 
		endif
		cFile = sys(2000, "*.sct", 1)
	enddo

endif

release cString
on escape

PROCEDURE rbfindend

on escape
cancel