forum.boolean.name - str_replace как написать красиво?

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - str_replace как написать красиво? (http://forum.boolean.name/showthread.php?t=615)

mikes

25.01.2006 00:02

может у кого есть хорошая функция? для тех кто работал в дельфи или php,
там есть функции stringreplace и str_replace соответственно.
нужно как в php красиво и быстро. на двух циклах идёт криво.
может есть исходник?

Piligrim

27.01.2006 00:38

Код:

function ReplaceStr(const S, Srch, Replace: string): string;

var

 I: Integer;

 Source: string;

begin

 Source := S;

 Result := '';

 repeat

  I := Pos(Srch, Source);

  if I > 0 then begin

   Result := Result + Copy(Source, 1, I - 1) + Replace;

   Source := Copy(Source, I + Length(Srch), MaxInt);

  end

  else Result := Result + Source;

 until I <= 0;

end;

Это исходник под Дельфи. Чуть-чуть обработать напильником 8)

mikes

01.02.2006 00:31

Точно! Стандартный VCL. Чё-т и в мыслях небыло... Спасибо

Часовой пояс GMT +4, время: 19:25.