Suche mittels Grep in DFM-Dateien ergibt mitunter "false negative"

[mjustin]

Vor dem Löschen von potentiell unbenutzten Datenbankobjekten schaue ich mittels GExperts Grep zuerst nach, ob dieses Objekt tatsächlich an keiner Stelle im Anwendungscode oder Tests mehr verwendet wird.

Leider ist (zumindest in Delphi 2009 noch) die Textform der DFMs nicht immer "grep-bar", weil lange Textzeilen mitten im Bezeichner umbrochen werden. Beispiel:

Delphi-Quellcode:

object qryBeispielDataSet: TSimpleDataSet
    ...
    DataSet.CommandText = 
      'select tabellen_id, feldname1, feldname2'#13#10'from view_na' +
      'me'#13#10'where bedingung'
    ...
  end

Eine grep-Suche nach Datenbankobjekt 'view_name' liefert daher keinen Treffer. Das ist aus Sicht von grep auch völlig korrekt so ;)
Wird in neueren Delphi Versionen auch noch so in Text-DFMs umbrochen?

[Dejan Vu]

Schreib Dir doch ein eigenes DFM-GREP, oder konvertiere die DFM vor dem Greppen.

[himitsu]

Oder du lässt deine DFMs binär speichern .... da wird nichts umgebrochen. :stupid:

[Sherlock]

Du könntest auch versuchen reguläre Ausdrücke bei der Suche zu verwenden. Genau für solche Fälle sind sie ja da.

Sherlock

[Namenloser]

Zitat:

Zitat von Sherlock (Beitrag 1264266)

Du könntest auch versuchen reguläre Ausdrücke bei der Suche zu verwenden. Genau für solche Fälle sind sie ja da.

Sherlock

Wobei das schon etwas hässlich wird, wenn man davon ausgehen muss, dass nach jedem Zeichen ein Umbruch sein könnte.

[Sherlock]

Wohl wahr :D
Ich bin nur froh, daß nicht nach einem Beispiel für so einen Audruck gefragt wurde. Ich würde einfach zwei bis dreimal leicht variiert suchen, und dann davon ausgehen, daß es schon schief gehen wird. Um ganz sicher zu gehen, würde ich die DB auch einfach so lassen wie sie ist. ;)

Sherlock

[himitsu]

Mist, dachte schon, man könne die Zeilenlänge irgendwo ändern, aber das ist hart einprogrammiert.

Du hättest das dann ja nur eine andere Maximallänge (möglichst groß) für ObjectResourceToText definieren brauchen
und schon gäbe es zukünftig keine Zeilenumbrüche mehr.

Delphi-Quellcode:

procedure ObjectBinaryToText(Input, Output: TStream);
  procedure ConvertValue;
  const
    LineLength = 64;

[Dejan Vu]

Was hält dich eigentlich davon ab, ein \'+\r\n\s*\' per RegEx einfach zu eliminieren?

[mjustin]

Zitat:

Zitat von Dejan Vu (Beitrag 1264343)

Was hält dich eigentlich davon ab, ein \'+\r\n\s*\' per RegEx einfach zu eliminieren?

Wenn "eliminieren" bedeutet "aus den Dateien zu entfernen": ja, eine zweistufige Verarbeitung - erst alle diese Umbrüche aus den Dateien zu löschen und dann die Suche durchführen, scheint die einzige Lösung zu sein.

Als Erweiterung für GExperts oder cnPack wäre das ganz nett. (Update: einen Feature-Vorschlag bei GEXpert.org habe ich eingereicht).

[Dejan Vu]

Check mal SED for Windows. Mit PowerScript geht das auch

[Dalai]

AFAIK arbeitet sed nur zeilenweise. Außerdem sind wir doch hier in einem Delphi-Forum ;).

MfG Dalai

[mjustin]

Zitat:

Zitat von Dalai (Beitrag 1264543)

AFAIK arbeitet sed nur zeilenweise.

Ja - und das richtige Tool wäre damit eigentlich tr...

sed: How can I replace a newline (\n)?

[BUG]

Zitat:

Zitat von Dalai (Beitrag 1264543)

Außerdem sind wir doch hier in einem Delphi-Forum ;)

Gerade Delphi-Entwickler wollen doch nicht das RAD neu erfinden :mrgreen: Ok, schlechtes Wortspiel ...

Ich merke es zur Zeit wieder deutlich, wie mächtig die Unix-Philosophie ist, wenn man sich ein bisschen mit den Tools beschäftigt (man-Pages + Google).
grep, awk, xargs, wc ... wer einmal davon gekostet hat, will nie mehr zurück.

[Dejan Vu]

Zitat:

Zitat von mjustin (Beitrag 1264544)

Zitat:

Zitat von Dalai (Beitrag 1264543)

AFAIK arbeitet sed nur zeilenweise.

Ja - und das richtige Tool wäre damit eigentlich tr...

sed: How can I replace a newline (\n)?

Äh, nö. Geht auch ohne. SED schmeißt das \n ja weg, also brauchen wir 'N' (zum zusammenbepseln von zwei Zeilen) und das Pattern \'\+\s*\' (ob das jetzt SED-Syntax ist, weiß ich nicht).

Zitat:

Zitat von SED Manual

To match a block of two or more lines, there are 3 basic choices:
(1) use the 'N' command to add the Next line to the pattern space;
(2) use the 'H' command at least twice to append the current line to the Hold space, and then retrieve the lines from the hold space with x, g, or G; or
(3) use address ranges (see section 3.3, above) to match lines between two specified addresses.

[mjustin]

Erik Berry, einer der GExpert Entwickler, hat mir vor ein paar Tagen geantwortet: den Vorschlag, bei der Grep Suche den störenden Zeilenumbruch mitten im Stringkonstanten (und daher evtl. auch mitten in Bezeichnern von DB-Objekten) zu entfernen, wurde in der Vergangenheit bereits erwogen.

Leider gibt es aktuell für die GExpert Entwicklung keine Resourcen - so dass man sich vorerst mit anderen Werkzeugen behelfen muß.

p.s. Wie sieht es mit cnWizards aus, ist dort eine Grep Suche inklusive DFM enthalten?