StringReplace für eine Position

[xZise]

Also ich habe es jetzt ziemlich komplex gelöst, aber es funktioniert

Delphi-Quellcode:

  start := 1;
  found := PosEx('[url', source);
  while found > 0 do
  begin
     buffer := '';
    if source[found + 4] = ']' then // [url]
    begin
       buffer := Copy(source, found + 5, PosEx('[/url]', source, found + 1) - found - 5);
      buffer := '[url=' + buffer + ']' + buffer + '[/url]';
    end else if source[found + 4] = '=' then // [url=
     begin
      intBuffer := PosEx(']', source, found + 5);
      buffer := '[url=' + Copy(source, found + 5, intBuffer - found - 5) + ']' + Copy(source, intBuffer + 1, PosEx('[/url]', source, found) - intBuffer  - 1)  + '[/url]';
    end;
    if buffer <> '' then
    begin
      source := Copy(source, 1, found - 1) + buffer + Copy(source, found + Length(buffer) - 1, Length(source) - found - Length(buffer) + 2);
    end;

     start := found + 1;
    found := PosEx('[url', source, start);
  end;

[edit]stuffstr würde was nachher in der Zusammensetzroutine bringen[/edit]