Nach unbestimmten String suchen

[Paulh]

Hallo DP,

Ich schon wieder..:-D

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 ? :gruebel:

[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

[DeddyH]

Für PosEx musst Du StrUtils einbinden.

[mkinzler]

Was bedeutet PosEx() geht nicht?

[Paulh]

@ mkinzler
Undefinierter Bezeichner

@ DeddyH
Danke !

[DeddyH]

Tipp: In der Delphi-Hilfe kann man bei "unbekannten Bezeichnern" in ziemlich allen Fällen die beinhaltende Unit ermitteln. Und da Du noch Delphi 2007 hast, lohnt sich die Installation von Daniels HelpBooster (ich wüsste gar nicht, wie man ohne das Ding auskommen soll), damit geht das richtig flott.

[mkinzler]

Hast du StrUtils eingebunden?

[DeddyH]

Markus, hattest Du heute noch keinen Kaffee :zwinker:? Schon das 2. Mal heute, dass Du Posts überliest (diesmal #11).

[mkinzler]

Er scheint deine Beiträge auch nicht zu Lesen!

[DeddyH]

Wieso? Ich habe StrUtils ja erst in #11 erwähnt, in #13 hat er sich bedankt. Aber ist ja auch egal, sonst werden wir noch zu sehr OT.

[Jumpy]

Warum geht denn PosEx nicht? StrUtils schon eingebunden?

[DeddyH]

:lol: 3 mal hält besser.

[himitsu]

Delphi 6

schau mal in die DP-CodeLib

ältere Delphi kennen noch kein PosEx :stupid: (das sollte aber auch via SuFu in mehreren/ganz vielen "Wo ist PosEx"-Suchthreads schonmal beantworten worden sein)

[Paulh]

Danke :mrgreen: :mrgreen:

[DeddyH]

Hab ich da eine Frage verpasst? Irgendwie passen die beiden vorherigen Posts nicht in den Zusammenhang :gruebel:

[himitsu]

Er sucht immernoch PosEx, auch nach den vielen Tipps, wo und in welcher Unit "wir" PosEx bei uns finden.
Irgendwo weiter vorne stand aber mal was von Delphi 6, welches alt genug sein könnte, um PosEx noch garnicht zu kennen.


@Paulh: Um sowas einfacher/schneller entdecken zu können, kann man in seinem DP-Profil die genutzte Delphi-Version angeben.


[edit]
ups, das "D6" war von Jumpy ... k.A. welche Version Paulh hat.

[edit]
hmm, er hat 2007 ... also das sollte PosEx doch schon kennen (glaub ich)

[Jumpy]

Zitat:

Zitat von DeddyH (Beitrag 1116192)

:lol: 3 mal hält besser.

:oops: Ähhm, ich hab auf #10 geantwortet, ohne zu sehen, dass es für den Thread schon eine zweite Seite gab. Aber zumindest hab ich die selbe Idee gehabt, wie die meisten von euch.:-D

[Paulh]

Ich check das nicht...

Edit1.text=HTML Datei.
Delphi Code:

Delphi-Quellcode:

var
anfang,ende:integer;
s,alterpfad,neuerpfad:string;
begin
form3.Height:=534;
try
memo1.Lines.LoadFromFile(edit1.Text);
except
  showmessage('Datei konnte nicht geladen werden.'#10#13+'Pfad richtig ?');
end;
if checkbox1.Checked=true then
begin
s := memo1.Lines.Text;
Anfang := PosEx('src="', s, 0);
showmessage(inttostr(anfang));
while Anfang > 0 do
  begin
    Anfang := Anfang + Length('src="');
    Ende := PosEx('"', s, Anfang);
    alterpfad:=copy(s,anfang,ende-anfang);
    Delete(s, Anfang, Ende - Anfang);
    Insert(NeuerPfad, s, Anfang);
    Anfang := PosEx('src="', s, Ende);
  end;
Memo1.Lines.Text := s;
showmessage(alterpfad);
end;
end;

HTML Datei:

Code:

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
 <title>Leer.php</title>
</head>
<body>
&nbsp;Hier kann Ihr Text mir Formatirung rein.<br>
<br>
<img style="width: 800px; height: 600px;" alt=""
 src="file:///C:/Dokumente%20und%20Einstellungen/All%20Users/Dokumente/Eigene%20Bilder/Beispielbilder/Sonnenuntergang.jpg"><br>
</body>
</html>

Anfang ist IMMER = 0

Sagt mir bin ich zu doof ?

[himitsu]

Zitat:

Delphi-Quellcode:

PosEx('src="', s, 0);

Eine 0? Strings fangen bei 1 an.

Und hast du mal im Debugger nachgesehn, ob auch wirklich das Richtige in s drinsteht?

Zitat:

Delphi-Quellcode:

if checkbox1.Checked=true then

=true ... Sowas macht man nicht! ( wo ist der Aufdiepfotenhauensmilie? )

Delphi-Quellcode:

if checkbox1.Checked then

(die Gründe wurden schon oft genug, in unzähligen Threads erklärt)

Zitat:

Delphi-Quellcode:

except
  showmessage('Datei konnte nicht geladen werden.'#10#13+'Pfad richtig ?');
end;

Pfad richtig ? ... Woher soll man das wissen, wenn du doch die "eigentliche" Fehlermeldung zerstört hast?
Eventuell fehlten auch nur die Zugriffsrechte?

Delphi-Quellcode:

except
  on E: Exception do begin
    E.Message := 'Datei konnte nicht geladen werden.' + sLineBreak + 'Pfad richtig ?' + sLineBreak + sLineBreak + E.Message;
    raise;
  end;
end;

oder laß das Try-Except einfach weg.

Außerdem würde der nachfolgende Code (bei dir) auch ausgeführt, selbst wenn keine Datei geladen wurde.

Wenn man über Try-Except die Fehlermeldung verändert, dann nur Verständlicheres hinzufügen und maximal noch Unwichtigeswichtiges entfernen oder durch eine gleichwertige Information ersetzen.

Zitat:

Delphi-Quellcode:

s := memo1.Lines.Text;

Ist zwar kein Fehler, aber nimm besser

Delphi-Quellcode:

s := Memo1.Text;

, denn .Lines zerlegt den zusammenhängenden Text im Memo in einzelne Zeilen, um ihn danach über .Lines.Text gleich wieder zusammenzusetzen.
Memo1.Text ließt dagegen direkt aus dem Memo.


Und der Windows-Zeilenumbruch nennt sich #13#10 und nicht #10#13.
CR+LF = #13#10 = #$0D#$0A = sLineBreak (unter Windows)

[Paulh]

Immer auf die Anfänger :)

Ja, in s steht das richtige drin, das Memo wird schon vorherbefüllt.

Es war die böse 0 :) Mit 1 geht es. :bounce1:

Danke