VPF::[Delphi] Замена слова (файлы). - Форум программистов

qwertu

Дата 26.1.2008, 20:52 (ссылка)

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

Загрузка ...

Новичок

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

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

Прочитать текстовый файл. Реализовать функцию замены одного слова на другое.(Без использования TReplaceDialog).

kemiisto

Дата 27.1.2008, 13:10 (ссылка)

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

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

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

Посмотри вот здесь:

http://delphiworld.narod.ru/base/str_replace2.html

Код неплохо закоментирован и пример использования есть. smile

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

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

kemiisto

Дата 27.1.2008, 13:30 (ссылка)

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

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

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

Вот так, например:

Код


program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Replace(Str, X, Y: string): string;
{Str - строка, в которой будет производиться замена.
 X - подстрока, которая должна быть заменена.
 Y - подстрока, на которую будет произведена заменена}
var
  buf1, buf2, buffer: string;
begin
  buf1 := '';
  buf2 := Str;
  Buffer := Str;
  while Pos(X, buf2) > 0 do
  begin
    buf2 := Copy(buf2, Pos(X, buf2), (Length(buf2) - Pos(X, buf2)) + 1);
    buf1 := Copy(Buffer, 1, Length(Buffer) - Length(buf2)) + Y;
    Delete(buf2, Pos(X, buf2), Length(X));
    Buffer := buf1 + buf2;
  end;
  Replace := Buffer;
end;  

var
  F: Text;
  s: string;
begin
  Assign(F, 'C:\1.txt');
  Reset(F);
  Readln(F, s);
  Close(F);
  s := Replace(s, 'Pascal', 'Паскаль');
  Rewrite(F);
  Writeln(F, s);
  Close(F);
end.

Добавлено через 6 минут и 51 секунду
Код:

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

project.zip 3,29 Kb

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

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

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