VPF::Замена символов - Форум программистов

vova_km

Дата 29.2.2008, 01:05 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.10.2007
Где: УКРАЇНА, Запоріжж я

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

как, в текстовом файле, заменить 'ing' в конце слова на 'ed' ?

Данкинг

Дата 29.2.2008, 02:13 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Код


sss:='working'+' ';
sss:=stringreplace(sss,'ing ','ed ',[rfReplaceAll]);

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

There's nothing left but silent epitaphs.

Alexeis

Дата 29.2.2008, 02:24 (ссылка)

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

Загрузка ...

Амеба

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

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

Это удобно делать при помощи регулярок.

Проект приатачен

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RegExpr, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
   {$O-}
procedure TForm1.Button1Click(Sender: TObject);
var
  r : TRegExpr;
  i, lastPos : integer;

begin
  r := TRegExpr.Create;
  r.ModifierS := true;
  r.ModifierM := true;
  r.Expression := '[^\s]+ing\s';
  r.SpaceChars := r.SpaceChars + '.,:;()?!#10#13';
  i := 0; lastPos := 1;
  if r.Exec(Memo1.Text)
  then
    while (r.MatchPos[i] <> -1)
    do
      Begin
        Memo2.Text := Memo2.Text +
                      copy(Memo1.Text, lastPos,
                           r.MatchPos[i] + r.MatchLen[i] - lastPos - 4) +
                           'ed' + Memo1.Text[r.MatchPos[i] + r.MatchLen[i]-1];
        lastPos := r.MatchPos[i] + r.MatchLen[i];
        if not r.ExecNext
        then
          Begin
            Memo2.Text := Memo2.Text +
                        copy(Memo1.Text, lastPos, Length(Memo1.Text) - lastPos - 1);

            break;
          end;
      end;
end;

end.

Присоединённый файл ( Кол-во скачиваний: 4 )

reg.zip 38,68 Kb

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

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

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

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

vova_km

Дата 29.2.2008, 13:03 (ссылка)

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

Загрузка ...

Спасибо большое!

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