|
Registriert seit: 29. Mai 2011
34 Beiträge
Delphi XE3 Professional
|
AW: Nach unbestimmten String suchen
13. Aug 2011, 10:48
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>
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 ?
|
|
|
Zitat
|