"Кусочная" замена текста в тексте

[artemavd]

Добрый вечер! Не знал как правильно дать название теме. Суть такая. Есть некий текст, в котором есть два слова: "№" и "от". Нужно найти эти слова в тексте, взять следующее, через пробел от них слова, и поменять местами. Например:
"тут какой-то текст № 123 от 20.10.2011 и так далее"
должно получиться так:
"тут какой-то текст от 20.10.2011 № 123 и так далее".
Как можно реализовать это?

[_Engine_]

function StrReplace(const S1, S2, InputStr: String): String;
var i, j : Integer;
    tS1, tS2, tS3 : String;
begin
  Result := InputStr;
  i := pos(S1, InputStr);
  j := pos(S2, InputStr);
  if (i > 0) AND (j > 0) then
  begin
    tS1 := Copy(InputStr, i, j-i);
    tS2 := Copy(InputStr, 1, i -1);
    i := j;
    for j := i + length(S2) + 1 to length(InputStr) do
     if InputStr[j] = ' '  then
       begin
         tS3 := Copy(InputStr, i, j - i + 1);
         Result := Copy(InputStr, j, length(InputStr));
         Break;
       end;
    Result := tS2 + tS3 + tS1 + Result;
  end;
end;

Пользоваться так : NewStr := StrReplace('№', 'от', OldStr);
Вариант не идеальный, но со своей задачей справляется.

[Аватар]

Сообщение от _Engine_

Пользоваться так : NewStr := StrReplace('№', 'от', OldStr);
Вариант не идеальный, но со своей задачей справляется.

Большой минус - если первый 'от' встретится раньше '№'

[_Engine_]

этот минус легко исправим добавлением в if ... and (i > j)
хотя, посмотрев внимательнее на вышеуказанную функцию, вижу еще, как минимум два недостатка .

Я не говорил, что нужно тупо скопипастить мое решение. Я лишь только указал направление для решения. Всетаки человек с дипломом, разберется.

[chertovich]

метод Replace

[_Engine_]

О, а что это за метод? Может Вы имели ввиду StringReplace, ну так приведите свою реализацию решения.

[volod3000]

Сообщение от _Engine_

О, а что это за метод?

http://www.delphisources.ru/pages/fa..._replace2.html

[chertovich]

function GetStr(const AllStr: string; Sub1: string = '№'; Sub2: string = 'от'): string;
var
  Str, A, B, Value1, Value2: string;
  Pos1: Integer;
begin
  Str := AllStr;

  Pos1 := Pos(Sub1, Str);

  if Pos1 = 0 then
    raise Exception.Create('Не найдена 1 строка');

  // Получение 1-ой части строки
  A := Trim(Copy(Str, 1, Pos1 - 1));

  Delete(Str, 1, Pos1);
  Str := Trim(Str);

  Pos1 := Pos(Sub2, Str);

  if Pos1 = 0 then
    raise Exception.Create('Не найдена 2 строка');

  Value1 := Trim(Copy(Str, 1, Pos1 - 1));

  Delete(Str, 1, Pos1 - 1 + Length(Sub2));
  Str := Trim(Str);

  Pos1 := Pos(' ', Str);

  if Pos1 = 0 then
    raise Exception.Create('Error Message');
    
  Value2 := Trim(Copy(Str, 1, Pos1 - 1));
  Delete(Str, 1, Pos1);

  B := Trim(Str);
  Result := A + ' ' + Sub2 + ' ' + Value2 + ' ' + Sub1 + ' ' + Value1 + ' ' + B; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetStr('тут какой-то текст № 123 от 20.10.2010 и так далее'));
end;

[SERG1980]

Можно самым примитивным способом

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2,s3: string;
    i:integer;
begin
 s:='тут какой-то текст № 123 от 20.10.2011 и так далее';
 s1:=Copy(s,1,Pos('№',s)-1);
 Delete(s,1,Pos('№',s)-1);
 s2:=Copy(s,1,Pos('от',s)-1);
 Delete(s,1,Pos('от',s)+2);
 s3:='от '+Copy(s,1,Pos(' ',s));
 Delete(s,1,Pos(' ',s));
 s:=s1+s3+s2+s;//результат
end;

//прикольная у тебя репутация