Zitat:
ich würde so vorgehen:
Erst mal mit Pos('<img') die Position des img-Tags ermitteln, von da ab nach ">" suchen und an der Position von ">" einfach Insert(Zeile,Position,'/') machen.
geht meins denn auch so wie ich es gemacht habe?
zu folgendem ergebnis bin ich gekommen:
Delphi-Quellcode:
var
i, x, StartPos, Ende: Integer;
Text: String;
begin
Text := Memo1.Lines.Text;
for i := 1 to Length(Text) do
begin
if (Text[i] = '<') then
begin
StartPos := i;
TestMemo.Lines.Add('1. Schleife: "'+Copy(Text, i, 4)+'"');
// <img gefunden?
if Copy(Text, i, 4) = '<img' then
begin
for x := StartPos to Length(Text) do
if (Text[x] = '>') then
begin
TestMemo.Lines.Add('2. Schleife: "'+Copy(Text, x, 1)+'"');
end;
end;
end;
end;
end;
wer es testen will braucht: 2 memos.
tipps im memo1 folgendes ein:
[img][/img]
bei klick auf den button kommen 2 sachen ins TestMemo.
einmal <img und das zweite ist >
damit habe ich DAS schonmal geschafft.. von (schmetaisch) C bis E zu suchen..