VPF::Поиск и изменение фрагмента в файле

Shad0wl0rd

Дата 26.3.2006, 20:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Как можно в большом количестве файлов (их структура одинаковая) найти и изменить фрагмент (более конкретно говоря в тексте xml <DealerContractCode>MM143</DealerContractCode> мне нужно изменить ММ143 на М144,ММ145,ММ146 и т.д.)

можно открыть файл как поток и писать в нужный байт ???- так элегантнее, чем делать прямой файловый доступ ;)И как это сделать ??
Подскажите ПОЖАЛУЙСТА? smile

Про исходники не забудьте,если можно!

Alexeis

Дата 27.3.2006, 09:10 (ссылка)

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

Загрузка ...

Амеба

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

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

Можно загрузить в TStingList, затем при помощи StingReplace с параметром [ReplaceAll] (применяя к свойству StingList.text) заменить все появления ММ143 на нужную строку (как в Microsoft Word)
Добавлено @ 09:15

Код


var
   StingList :TStingList;
Begin
  StingList := TStingList.create;
  StingList.loadfromFile('my.xml');
  StingReplace(StingList.text, ' ММ143',  'ММ144',  [ReplaceAll] );
  StingList.savetofile('Changed_my.xml');
  StingList.Free;

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

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

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

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

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