//-*- ASCII:EDT -*-
// simplegrep.edt
//////////////////
// writes all lines that contain a
// specified string into a new file %n.log
// You can then go through the lines
// using Search | Errors...
////////////////////////////

CMD("Go To Beginning Of File");
ChDir("%p");
SetSearchCurrentDoc; SetSearchCyclic(0);
SetSearchEntire(0); SetNotFoundNotify(0);
SetFindTextSelect(1);
SetTracking(0);
Menu("&Find...");
GetSel(0,0);
OpenOutput("%n.log");
WrL("All lines in file ""%p\%n%t"" containing  '%!0':"); WrL(" ");
Loop(!"IfFound(!'WrS(''%n%t(%l,%c)'');>
         CMD(''Go To Beginning Of Line''); >
         CMD(''Select To End Of Line''); >
         GetSel(0,1); WrL('':  %!1'');',>
      !'CloseOutput; Stop;>
    ');");
SetTracking(1);
LetReg(0,"");LetReg(1,"");
End;

////////////////////////////////////
// R Schlicht      <w.m.l@gmx.net>
// George Schmitz  <georges.schmitz@heitec.de>
////////////////////////////////////
$Id: simplegrep.edt,v 1.2 2001-11-13 19:07:17+01 standard Exp standard $