Nach unbestimmten String suchen

[Paulh]

Hallo DP,

Ich schon wieder..

Folgendes: Ich habe eine HTML Seite, die ich in ein Memo einlese (Ist ja nicht schwer ).
Jetzt möchte ich die Seite "Bearbeiten" das heißt ich möchte aus einen <img> die Quelle auslesen und ändern:

Vorher:

Code:

<img scr="X:\XXXXXX\XXXXXXXX.jpg">

Nachher:

Code:

<img scr="http://bla.de/bla.jpg">

Problem: Ich kenne ja nicht vorher den Pfad zu der Datei .


Ich habe überhaupt keinen Plan.

[DeddyH]

Du kannst mit Pos/PosEx nach <img scr=" suchen und ab da nach dem nächsten ". Alles dazwischen dürfte der Pfad sein.

[Paulh]

@DeddyH:

Super Idee !

Kannst du mir nur noch sagen wie ich das anwende.

[DeddyH]

Aus dem Hut:

Delphi-Quellcode:

s := Memo1.Lines.Text;
Anfang := PosEx('<img scr="', s, 0);
while Anfang > 0 do
  begin
    Anfang := Anfang + Length('<img scr="');
    Ende := PosEx('"', s, Anfang);
    Delete(s, Anfang, Ende - Anfang);
    Insert(NeuerPfad, s, Anfang);
    Anfang := PosEx('<img scr="', s, Ende);
  end;
Memo1.Lines.Text := s;

Es kann sein, dass die Positionen hier nicht exakt stimmen, aber das wirst Du schon herausbekommen und kannst es ggf. korrigieren.

[Aphton]

String 1 <img scr="X:\XXXXXX\XXXXXXXX.jpg">
String 2 <img scr="http://bla.de/bla.jpg">

Code:

1. Speichere "http://bla.de/bla.jpg" in StrUrl ab
2. Ermittle per Pos() " in String 1 und speichere es ab in StrPos
3. Inkrementiere diesen Wert per inc()
4. Nun lösche ab der Stelle StrUrl alles weg per Delete()
5. StrResult = String 1 + StrUrl + '">'

[Paulh]

Danke an euch beide ihr habt mir sehr geholfen.

Den Alten Pfad bekomme ich über Copy oder ?

[DeddyH]

Klar, einfach vor dem Delete auslesen, danach isser ja weg *g*.

[Paulh]

Gut !

[himitsu]

Stichwort "HTML parsen"

Wurde vor Kurzem schonmal besprochen und wenn man da schonmal drin ist, kann man sich das gewünschte suchen lassen, ändern und es wieder als String/Datei/Stream (HTML) exportieren.

[Paulh]

Sorry das ich das Thema noch mal aufmachen muss aber, PosEx geht bei mir nicht. Ich habe Pos ausprobiert aber es kommt die Compiliermeldung:

"[DCC Fehler] Unit1.pas(33): E2034 Zu viele Parameter"



PS: Ich habe Delphi 2007