Nach unbestimmten String suchen

**himitsu**

Delphi 6

schau mal in die DP-CodeLib

ältere Delphi kennen noch kein PosEx

(das sollte aber auch via SuFu in mehreren/ganz vielen "Wo ist PosEx"-Suchthreads schonmal beantworten worden sein)

**Paulh**

Danke

**DeddyH**

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

**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 von DeddyH:

3 mal hält besser.

Ä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.

**Paulh**

Ich check das nicht...

Edit1.text=HTML Datei.
Delphi Code:

zusammenfalten · markieren

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:

markieren

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:

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:

if checkbox1.Checked=true then

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

if checkbox1.Checked then (die Gründe wurden schon oft genug, in unzähligen Threads erklärt)

Zitat:

markieren

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?

markieren

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:

s := memo1.Lines.Text;

Ist zwar kein Fehler, aber nimm besser 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 = Delphi-Referenz durchsuchen

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.

Danke

Nach unbestimmten String suchen

AW: Nach unbestimmten String suchen

AW: Nach unbestimmten String suchen

AW: Nach unbestimmten String suchen

AW: Nach unbestimmten String suchen

AW: Nach unbestimmten String suchen

AW: Nach unbestimmten String suchen

AW: Nach unbestimmten String suchen

AW: Nach unbestimmten String suchen

Forumregeln

Paulh Registriert seit: 29. Mai 2011 34 Beiträge Delphi XE3 Professional	#22 AW: Nach unbestimmten String suchen 11. Aug 2011, 13:55 Danke Gruß Paulh - Minecaft Server
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.619 Beiträge Delphi 12 Athens	#23 AW: Nach unbestimmten String suchen 11. Aug 2011, 14:00 Hab ich da eine Frage verpasst? Irgendwie passen die beiden vorherigen Posts nicht in den Zusammenhang Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Jumpy Registriert seit: 9. Dez 2010 Ort: Mönchengladbach 1.736 Beiträge Delphi 6 Enterprise	#25 AW: Nach unbestimmten String suchen 11. Aug 2011, 14:11 Zitat von DeddyH: 3 mal hält besser. Ä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. Ralph
	Zitat

Paulh Registriert seit: 29. Mai 2011 34 Beiträge Delphi XE3 Professional	#28 AW: Nach unbestimmten String suchen 13. Aug 2011, 13:46 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. Danke Gruß Paulh - Minecaft Server
	Zitat