VPF::Как заменить I-ю подстроку строки?

Kbl4AH

Дата 19.1.2009, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

Здравствуйте.
САБЖ.
Делаю так:

Код


var
  S, SS: String;
  Pos, Count: Integer;
begin
  Delete(S, Pos, Count);
  Insert(SS, S, Pos);
end;

Можно ли сделать короче?

Alexeis

Дата 19.1.2009, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

StringReplace ?

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Kbl4AH

Дата 19.1.2009, 11:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

Цитата(Alexeis @ 19.1.2009, 11:11

)

StringReplace ?

Не пойдет - *заменяет первое или все вхождения*... а надо I-е.

Kbl4AH

Дата 19.1.2009, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

В общем, тупой я вопрос задал smile

Данкинг

Дата 19.1.2009, 12:09 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Kbl4AH @ 19.1.2009, 11:00

)

Можно ли сделать короче?

А зачем? Вроде и так код небольшой и ИМХО оптимальный всё же. smile

--------------------

There's nothing left but silent epitaphs.

Alexeis

Дата 19.1.2009, 12:12 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

Цитата(Kbl4AH @ 19.1.2009, 10:25

)

Не пойдет - *заменяет первое или все вхождения*... а надо I-е.

Так это ж от параметров зависит, не поставишь ReplaceAll будет только первое вхождение. В делфи очень богатый набор функций для работы со строками, так что икать простые решения нужно.

--------------------

Kbl4AH

Дата 19.1.2009, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 4
Всего: 15

Цитата(Alexeis @ 19.1.2009, 12:12

)

Я понимаю... но мне нужно не все и не 1-е...
есть строка вида 'xxx-xxx-xxx-xx'
а мне нужно вид 'xxx-xxx-xxx xx'
вот я и спросил, как красивее сделать... но щас мне кажется, что не стоило такие глупости спрашивать... подумаешь, что 2-мя процедурами пользуюсь... нормально ведь это... можно, конечно прикрутить LastDelimiter(), но это ни к чему...

Добавлено через 47 секунд

Цитата(Данкинг @ 19.1.2009, 12:09

)

А зачем? Вроде и так код небольшой и ИМХО оптимальный всё же.

согласен)

Matematik

Дата 22.1.2009, 00:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50

Примерно так

Код


uses StrUtils;
ReplaceI(const AStr,AOldSubStr,ANewSubStr:AnsiString; AIdx:Integer):AnsiString;
begin
  p := 0;
  k := 0;
  Result := AStr;
  repeat
    Inc(k);
    p := StrUtils.PosEx(AOldSubStr, Result, p+1);
    if (AIdx=k) and (p<>0) then
    begin
      Delete(Result, p, Length(AOldSubStr));
      Insert(ANewSubStr, Result, p);
      break;
    end;    
  until p=0;
end

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »