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.

[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 von 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

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

[Sherlock]

Wohl wahr
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 von Dejan Vu:

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