bis zu einem bestimmten zeichen suchen?

[shadow999]

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