StringReplace mit Record ohne Ergebnis

[apm]

Hallo Leute!
Ich versuche gerade einen MemoText durchsuchen und verändern zu lassen.
Eigentlich kein Problem: StringReplace. Ich bekomme aber keine Umwandlung hin...

Der Record und das füllen dessen funktioniert ohne Probleme.

Delphi-Quellcode:

  type
    T_recListEigenschaft = record
      sParm, sEigenschaft: String;
    end;

Beim durchlauf des Record-Arrays komme ich aber wie gesagt nicht weiter.
Auch mit normalen String-Arrays geht es nicht. Der "normale Replace" funktioniert hingegen ohne Probleme.

Delphi-Quellcode:

        for iEins := 0 to MFile.Lines.Count - 1 do
        begin
          sInput := MFile.Lines[iEins];

          for iZwei := 0 to Length(arrResult) - 1 do
            sInput := StringReplace(
                                      sInput,
                                      arrResult[iZwei].sParm,
                                      arrResult[iZwei].sEigenschaft,
                                      [rfReplaceAll, rfIgnoreCase]
                                  );

          sInput := StringReplace(sInput, 'sFind', 'sChange', [rfReplaceAll, rfIgnoreCase]);

          MFile.Lines[iEins] := sInput;
        end;

Hat jemand ggf. eine Erklärung?
G

[hoika]

Hallo,

sieht korrekt aus.

Breakpoint (F5) / WatchPoint (F7) ??

Die iEins-Schleife könnte man auch weglassen (statt Lines.Count Lines.Text nehmen)

Heiko

[apm]

Beim Schrittweise durchgehen kann ich soweit nur feststellen, dass:

• … beide Teile des Record richtig gefüllt sind (Werte) und Anzahl stimmt
• … die richtigen Zeilen-Texte (sInput) in der Schleife benutzt werden
• … die Schleife für den Replace so oft durchläuft wie auch Werte im Record sind

[Uwe Raabe]

Zitat:

Zitat von apm (Beitrag 1259835)

Beim Schrittweise durchgehen kann ich soweit nur feststellen, dass:

• … beide Teile des Record richtig gefüllt sind (Werte) und Anzahl stimmt
• … die richtigen Zeilen-Texte (sInput) in der Schleife benutzt werden
• … die Schleife für den Replace so oft durchläuft wie auch Werte im Record sind

Und das sInput entspricht in jedem Durchlauf nicht dem erwarteten Ergebnis? Dann musst du wohl mal mit konkreten Daten kommen.

[Uwe Raabe]

Ach so: und die Delphi-Version angeben.

[Bjoerk]

Lass dir ggf. in der iZwei Schleife mal arrResult[iZwei].sParm und arrResult[iZwei].sEigenschaft anzeigen? Daß StringReplace nicht auf ganze Wörter prüft weißt du?

[apm]

Ich benutzte: Delphi 2009 Update 2 auf meinem Notebook mit Win 7 x64 SP1.
Soweit hab ich nur die Jedi-Komponenten installiert, die ich in dem Projekt aber nicht verwende.


In den Input-Zeilen stehen so Texte wie:

Zitat:

<content action_target="we_view_43773_beschreibung"><![CDATA[Nahe der 4-Tore-Stadt Neubrandenburg und der A20 befindet sich seit 1845 umgeben von Stadtmauer und Burgtor unser Mecklenburger Hof. Als idealer Ausgangspunkt für Radfahrer und Wanderer der Eiszeitroute und Entdecker des Naturschutzgebietes &bdquo;Galenbecker See&ldquo; und des Landschaftsschutzgebietes &bdquo;Brohmer Berge&ldquo; lädt Sie unser Familiengeführter Gasthof mit seinen gemütlichen Zimmern und seinem Restaurant mit frischer gutbürgerlicher Küche zum schlemmen und verweilen ein.<br/>]]></content>

Im Ursprünglichen kommt alles aus einer XML-File.


Im Record sind Elemente gespeichert wie:

Zitat:

sParm -> &bdquo;
sEigenschaft -> &quot;

In der Replace-Schleife habe ich mir gerade nochmal die einzelnen Werte separat ausgeben lassen. Auch iO.

[himitsu]

Zitat:

Zitat von Uwe Raabe (Beitrag 1259838)

Ach so: und die Delphi-Version angeben.

Aktuellere Delphi-Versionen sollten da auch eine entsprechende Fehlermeldung ausgeben.

Du schreibst nur in einer Kopie des Records rum, welche danach nicht zurückgespeichert, sondern einfach verworfen wird. An den "eigentlichen" Recordvariablen änderst du also nichts und somit bleibt der alte Wert auch erhalten.

Fazit:
- entweder den Record rauskopieren, ändern und neu in der Liste abspeichern
- oder auf Daten-Objekte umstellen (TObjectList, eine Persistent-Collection oder Dergleichen)
- oder einen Pointer auf die Records besorgen und darüber den Inahlt ändern

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1259855)

Du schreibst nur in einer Kopie des Records rum, welche danach nicht zurückgespeichert, sondern einfach verworfen wird. An den "eigentlichen" Recordvariablen änderst du also nichts und somit bleibt der alte Wert auch erhalten.

Aber die Felder im Record werden doch gar nicht beschrieben, sondern dienen lediglich als OldPattern bzw. NewPattern für das StringReplace.

[Uwe Raabe]

Zitat:

Zitat von apm (Beitrag 1259845)

In der Replace-Schleife habe ich mir gerade nochmal die einzelnen Werte separat ausgeben lassen. Auch iO.

Jetzt wäre der Zeitpunkt für ein simples Beispielprojekt, das den Fehler zeigt.

[Bjoerk]

Wenn sowohl die Items der Liste als auch die Felder/Methoden des Records public sind kann da eigentlich nichts passieren. Vermute eher mal daß MFile.Lines später nochmal überschrieben wird oder StringReplace "wild" hin und her ersetzt?

[himitsu]

Ohhh.
Hmmmm.
Na dann würde ich wohl erstmal die Vermutung von Bjoerk teilen.

Aber wenn dem so ist, dann erkennt man das ja, wenn man den Code einfach mal schrittweise durchdebuggt. (Haltepunkt in die Schleife und nachsehen, was nach jeder Übersetzung in dem String steht)

[sx2008]

Wenn man XML-Dateien nur mit Funktionen wie StringReplace oder Regular Expressions bearbeitet dann macht man meistens etwas falsch.
Das mag für einfache XML-Dateien eine zeitlang funktionieren, aber irgendwann kommt ein Fall bei dem es nicht mehr passt.
Wenn man es dauerhaft richtig haben möchte braucht man einen XML-Parser.
http://blog.codinghorror.com/parsing...e-cthulhu-way/

[Dejan Vu]

Wäre da nicht eine XSLT angebracht(er)? Da muss man dann gar nichts mehr selber machen und sicher ist es auch noch.

[Perlsau]

Zitat:

Zitat von apm (Beitrag 1259845)

Ich benutzte: Delphi 2009 Update 2 auf meinem Notebook mit Win 7 x64 SP1.

Vielleicht wäre es hilfreich, auch die restlichen Updates für Delphi 2009 zu installieren, ebenso die beiden Hotfixes. Zusätzlich gibt es noch HelpUpdate3 und Dbx datapump fixes.

[apm]

Ich hab den Fehler soweit gefunden... Eig. schreit das schon fast nach Steinigung.
Beim zu kontrollierenden Parameter hat sich ein leerzeichen am Ende eingeschlichen. In der Übersicht der lokalen Variablen habe ich das nicht gesehen und beim separaten Ausgeben habe ich keine Identifikationszeichen davor und dahin gefügt. Entsprechend habe ich das Leerzeichen dort auch nicht gesehen... :(


Die Updates werd ich bei gelegenheit mal einspielen.
Im eigentlichen will ich darüber nur Dateinamen in der File finden und ersetzen. Daher deke ich, dass ich nicht gr. mit XML-Elementen arbeiten muss ...

Danke für eure Antworten!