Hallo!

Kennt ihr eine Möglichkeit, grep (oder einem anderen, möglichst kostenlosem Tool) beizubringen, das es nur die direkten Treffer ausgeben soll und nicht die ganzen enthaltenden Zeilen? Wenn ich bspw. (mit RegEx) nach MyFunction\(\d+\) suche, kriege ich ein Liste in folgender Art

markieren

Code:

Result := MyFunction(42);
if MyFunction(666) > 0 then
Result := MyFunction(11) + MyFunction(22);

Wünschen würde ich mir sowas:

markieren

Code:

MyFunction(42)
MyFunction(666)
MyFunction(11)
MyFunction(22)

Indem du das, was nicht enthalten sein soll, auch nicht in das Ergebnis aufnimmst?

> look-ahead assertion ...(?=...)
und
> look-behind assertion (?<=...)...

markieren

Code:

(?<=MyFunction\()\d+(?=\))

(?<=MyFunction\()[0-9]+(?=\))

[edit]
falsch verstanden...

Wieso sollte es denn die ganze Zeile liefern?

Wenn man nur nach "MyFunction\(\d+\)" sicht, dann bekomme man eigentlich auch nur "MyFunction(...)" raus.
Wenn nicht, dann machst du was falsch und da keiner verraten hat, wie er es macht, wissen wir auch nicht was er falsch macht.

Zitat von himitsu:

Wieso sollte es denn die ganze Zeile liefern?

Das frage ich mich auch, aber sowohl der Grep-GExpert als auch das Borland-Kommandozeilen-grep tun es.

Zitat von himitsu:

Wenn man nur nach "MyFunction\(\d+\)" sicht, dann bekomme man eigentlich auch nur "MyFunction(...)" raus.
Wenn nicht, dann machst du was falsch und da keiner verraten hat, wie er es macht, wissen wir auch nicht was er falsch macht.

Ich behaupte mal, dass ich da nichts besonderes mache. Ich schmeiße mal das Besipiel MyFunction weg - in Wirklichkeit suche ich nach Lpar^[...] . Dabei ist Lpar eine Funktion, die einen Zeiger auf ein Array zurückliefert, und ich suche nach Aufrufen der Funktion + Array-Indizierung. (Bitte keine Kommentare zu dieser Konstruktion - ist ererbt.)

Wenn ich mit GExperts-Grep nach Lpar\^\[.*\] suche, kriege ich eine Liste von Zeilen, die das Muster enthalten. Ebenso, wenn ich in der Kommandozeile grep -d+ -h+ -i+ "Lpar\^\[.*\]" *.pas eintippe. Mache ich da schon was falsch?

Wobei die GExperts-Suche und auch die delphieigene Suche (inkl. RegEx) ja genau/absichtlich darauf ausgelegt sind dir die Zeilen zu zeigen, wo das Gesuchte enthalten ist.
Was das Programm "grep" machen soll, weiß ich nicht.

Zitat von himitsu:

Wobei die GExperts-Suche und auch die delphieigene Suche (inkl. RegEx) ja genau/absichtlich darauf ausgelegt sind dir die Zeilen zu zeigen, wo das Gesuchte enthalten ist.

Das mag schon sein, aber genau das kann ich eben gerade nicht brauchen. Darum frage ich ja. Und wie ich eingangs schrieb, bin auch ja auch nicht auf diese Tools festgelegt.

als Schnellschuss, nicht optimiert

Project3 C:\temp\test.txt MyFunction(%)

zusammenfalten · markieren

Delphi-Quellcode:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
f:TextFile;
Buffer,SToken,EToken:String;

Procedure FindToken;
  var
   i,j:Integer;
  begin
     i := pos(SToken,Buffer);
     while i>0 do
      begin
        Buffer := Copy(Buffer,i+Length(SToken),Length(Buffer));
        j := Pos(EToken,Buffer);
        Writeln(SToken + Copy(Buffer,1,j));
        Buffer := Copy(Buffer,j+1,Length(Buffer));
        i := pos(SToken,Buffer);
      end;
  end;

begin
  try
    Stoken := Copy(Paramstr(2),1,Pos('%',Paramstr(2))-1);
    Etoken := Copy(Paramstr(2),Pos('%',Paramstr(2))+1,Length(Paramstr(2)));
    AssignFile(f,Paramstr(1));
    Reset(f);
    while not Eof(f) do
      begin
      ReadLn(f,Buffer);
      FindToken;
      end;
    Readln;
    CloseFile(f); 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Zitat von Bummi:

als Schnellschuss, nicht optimiert

Project3 C:\temp\test.txt MyFunction(%)

Danke, Bummi!

Ich bin mittlerweile auf eine quellcodefreie Lösung gekommen:

1. Erst grep -i+ -h+ -d+ "Lpar\^\[.*\]" *.pas > 1.txt ausführen. Dadurch habe ich eine Datei, die alle Treffer beinhaltet und muss mich nicht mehr um Wildcards in Dateinamen und Rekursion kümmern.
2. Dann z.B. in Notepad++ alle (lpar\^\[[^]]*\]) in 1.txt durch \r\n\1\r\n ersetzen. Das zerlegt mir jede Zeile, die einen Treffer enthält, in 3 (oder 5, 7, ...) Zeilen, wo in jeder zweiten Zeile nur ein Treffer steht. Die anderen Zeilen enthalten keinen Treffer.
3. Schließlich noch 1.txt speichern und grep -i+ -h+ "Lpar\^\[.*\]" 1.txt > 2.txt , um die überflüssigen Zeilen rauszuschmeißen.

Jetzt enthält 2.txt die gewünschte Liste. Nicht elegant, aber geht.

Das wäre vielleicht ein Job für den Stream Editor (SED) gewesen.
einige SED Beispiele: http://sed.sourceforge.net/sed1line_de.html

Zitat von shmia:

Das wäre vielleicht ein Job für den Stream Editor (SED) gewesen.
einige SED Beispiele: http://sed.sourceforge.net/sed1line_de.html

Boah, den hab ich ja ganz vergessen. An der Uni haben wir mit sed und awk coole Sachen gemacht...

Warum so umständlich?
Im Manual findet sich folgender Parameter:

Zitat von man grep / info grep:

-o, --only-matching
Print only the matched (non-empty) parts of a matching line, with each such part on a separate output line.

Damit wäre das Problem schon gelöst gewesen