* Program...........: CLEANREPS.PRG * Author............: José Constant * Project...........: PROSAL * Created...........: 19/01/99 11:09:21 * Copyright.........: (c) Terre-Engineering S.A., 1999 * Compiler..........: Visual FoxPro 05.00.00.0415 for Windows *) Description.......: Cleans reports header * : Published by Josh Weiss on the Universal Thread * Calling Samples...: * Parameter List....: * Major change list.: LOCAL lcGetDIR CD (GETDIR("" , 'Où se trouvent les rapports')) SET MEMOWIDTH TO 1024 DIMENSION aFileType[2] aFileType[1]='*.FRX' aFileType[2]='*.LBX' FOR EACH cFileType IN aFileType nNumReps=ADIR(aReps,m.cFileType) WAIT WINDOW NOWAIT ALLTRIM( STR( nNumReps)) + " " + m.cFileType INKEY( 1) FOR i=1 TO nNumReps USE (aReps[i,1]) LOCATE FOR ObjType=1 IF FOUND() REPLACE TAG WITH '' REPLACE Tag2 WITH '' m.cExpr=Expr FOR j=1 TO MEMLINES(m.cExpr) m.cLine=MLINE(m.cExpr,j) IF m.cLine='ORIENTATION' EXIT ENDIF NEXT REPLACE Expr WITH IIF(m.cLine='ORIENTATION',m.cLine,'') ENDIF NEXT CLOSE DATA ALL ENDFOR CD ..José