PROCEDURE RemovePrinterInfo LPARAMETERS lcFilter lcFilter='.'+lcFilter lnDatabases = ADIR(laDatabases, '*'+lcFilter) && Create array FOR lnCount = 1 TO lnDatabases lcFilename = Proper(STRTRAN(laDatabases(lnCount,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 lnCounter in TEMP IF VARTYPE(lnCounter)='L' EXIT ENDIF IF LEN(lcStore)>0 lcStore=lcStore+CRLF ENDIF lcStore=lcStore+lnCounter ENDFOR REPLACE EXPR WITH lcLagre, TAG WITH "", TAG2 WITH "" ? "Printerinfo removed from " + lcFilename USE ENDFOR ENDPROC