Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поиск и изменение фрагмента в файле

Автор: Shad0wl0rd 26.3.2006, 20:59

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

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

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

Автор: Alexeis 27.3.2006, 09:10

Можно загрузить в 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;