>Private lcFilename, lcStore, lcAlias,lnLength,lnTemp,lcCaption,temp,words
>#DEFINE CRLF CHR(13)+CHR(10)
>lcAlias=SELECT()
>lcCaption=_VFP.CAPTION
>dimension TEMP(1,1)
>dimension WORDS(3)
>WORDS(1)='DRIVER='
>WORDS(2)='DEVICE='
>WORDS(3)='OUTPUT='
>
>CD reports
>
>do RemovePrinterInfo with 'FRX'
>do RemovePrinterInfo with 'LBX'
>
>CD ...
>use
>_VFP.CAPTION = lcCaption
>
>select (lcAlias)

>PROCEDURE RemovePrinterInfo
>	LPARAMETERS lcFilter
>	lcFilter='.'+lcFilter
>
>	lnDatabases = ADIR(laDatabases, '*'+lcFilter)  && Create array
>
>	FOR nCount = 1 TO lnDatabases
>		lcFilename = STOR1(STRTRAN(laDatabases(nCount,1), lcFilter))
>		_VFP.CAPTION = "Fixing " + lcFilename + lcFilter
>		USE (lcFilename+lcFilter) IN 0 EXCLUSIVE
>		SELECT (lcFilename)
>		lnLength=ALINES(TEMP,EXPR)
>		FOR EACH lnTeller in WORDS
>			lnTemp=ASCAN(TEMP,lnTeller)
>			IF lnTemp>0
>				ADEL(TEMP,lnTemp)
>				lnLength=lnLength-1
>			ENDIF
>		ENDFOR
>		lcStore=''
>		FOR EACH lnTeller in TEMP
>			IF VARTYPE(lnTeller)='L'
>				EXIT
>			ENDIF
>			IF LEN(lcStore)>0
>				lcStore=lcLagre+CRLF
>			ENDIF
>			lcStore=lcStore+lnTeller
>		ENDFOR
>		REPLACE EXPR WITH lcStore, TAG WITH "", TAG2 WITH ""
>		? "Deleted from " + lcFilename
>		USE
>	ENDFOR
>ENDPROC