Private lcFilename, lcLagre, lcAlias,lnLengde,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 CD FORMAT\WIN\ do FjernePrinterInfo with 'FRX' do FjernePrinterInfo with 'LBX' CD ... use _VFP.CAPTION = lcCaption select (lcAlias) ************************************************************************************************************ PROCEDURE FjernePrinterInfo LPARAMETERS lcFilter lcFilter='.'+lcFilter lnDatabases = ADIR(laDatabases, '*'+lcFilter) && Create array FOR nCount = 1 TO lnDatabases lcFilename = STOR1(STRTRAN(laDatabases(nCount,1), lcFilter)) _VFP.CAPTION = "Fikser " + lcFilename + lcFilter USE (lcFilename+lcFilter) IN 0 EXCLUSIVE SELECT (lcFilename) lnLengde=ALINES(TEMP,EXPR) FOR EACH lnTeller in WORDS lnTemp=ASCAN(TEMP,lnTeller) IF lnTemp>0 ADEL(TEMP,lnTemp) lnLengde=lnLengde-1 ENDIF ENDFOR lcLagre='' FOR EACH lnTeller in TEMP IF VARTYPE(lnTeller)='L' EXIT ENDIF IF LEN(lcLagre)>0 lcLagre=lcLagre+CRLF ENDIF lcLagre=lcLagre+lnTeller ENDFOR REPLACE EXPR WITH lcLagre, TAG WITH "", TAG2 WITH "" ? "Slettet fra " + lcFilename USE ENDFOR ENDPROC