Nach unbestimmten String suchen

**Aphton**

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

Code:

Speichere "http://bla.de/bla.jpg" in StrUrl ab

Ermittle per Pos() " in String 1 und speichere es ab in StrPos

Inkrementiere diesen Wert per inc()

Nun lösche ab der Stelle StrUrl alles weg per Delete()

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

**DeddyH**

Für PosEx musst Du StrUtils einbinden.

**mkinzler**

Was bedeutet PosEx() geht nicht?

**Jumpy**

Warum geht denn PosEx nicht? StrUtils schon eingebunden?

**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 ?

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

AW: Nach unbestimmten String suchen

AW: Nach unbestimmten String suchen

Forumregeln

Paulh Registriert seit: 29. Mai 2011 34 Beiträge Delphi XE3 Professional	#2 AW: Nach unbestimmten String suchen 10. Aug 2011, 13:20 Danke an euch beide ihr habt mir sehr geholfen. Den Alten Pfad bekomme ich über Copy oder ? Gruß Paulh - Minecaft Server
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.660 Beiträge Delphi 12 Athens	#3 AW: Nach unbestimmten String suchen 10. Aug 2011, 13:23 Klar, einfach vor dem Delete auslesen, danach isser ja weg g. 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

Paulh Registriert seit: 29. Mai 2011 34 Beiträge Delphi XE3 Professional	#4 AW: Nach unbestimmten String suchen 10. Aug 2011, 13:24 Gut ! Gruß Paulh - Minecaft Server
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.399 Beiträge Delphi 12 Athens	#5 AW: Nach unbestimmten String suchen 10. Aug 2011, 13:40 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. Ein Therapeut entspricht 1024 Gigapeut.
	Zitat

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

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.660 Beiträge Delphi 12 Athens	#7 AW: Nach unbestimmten String suchen 11. Aug 2011, 09:36 Für PosEx musst Du StrUtils einbinden. 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

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.879 Beiträge Delphi 11 Alexandria	#8 AW: Nach unbestimmten String suchen 11. Aug 2011, 09:40 Was bedeutet PosEx() geht nicht? Markus Kinzler
	Zitat

Jumpy Registriert seit: 9. Dez 2010 Ort: Mönchengladbach 1.740 Beiträge Delphi 6 Enterprise	#9 AW: Nach unbestimmten String suchen 11. Aug 2011, 10:51 Warum geht denn PosEx nicht? StrUtils schon eingebunden? Ralph
	Zitat