** ClearFRXsettings.prg ** right now gets a single file, will modify to process entire directory Close data all lcReportFile=getFile('frx','Get Report') If not empty(lcReportFile) Use (lcReportFile) in 0 alias frxReport Select frxReport Locate FOR objtype = 1 AND objcode = 53 If FOUND() ** Find out how many lines in memo field. Find mline for DEVICE, OUTPUT, DRIVER delete these lines m.memolines= memlines(expr) nDeviceline=atcline("DEVICE=",expr) nOutputLine=atcline("OUTPUT=",expr) nDriverline=atcline("DRIVER=",expr) m.NewExpr="" For i = 1 to m.memolines If i#nDeviceline and i#nOutputLine and i#nDriverline m.NewExpr=m.NewExpr + mline(expr,i) +chr(013) Endif Endfor Replace expr with m.NewExpr Replace tag WITH "" Replace tag2 WITH "" Endif (Found()) Endif (not empty(lcReportFile) Use in frxReportThanks,