Замена части строки в XML

[artemavd]

Как заменить часть строки в большом XML-файле? Возникла необходимосто в изменении пути к файлам. Все бы ничего да 2500 раз менять вручную путь как-то не вариант . Вот, кусок XML файла:

<Batch BatchID="396">
−
<Doc DocNmb="1" DocType="Договор" DocStatus="" ExportImagesPath="\\Sql11\SCAN2\Scan_BWC_Контракты\Export\396\396_1_1605370.pdf">
−
<Page PageNmb="1" PageType="Договор" PageStatus="(нет ошибок)">
<Field FieldName="DocType">03</Field>
<Field FieldName="Date">19.06.2009</Field>
<Field FieldName="Name">1_1605370</Field>
<Field FieldName="NumWarnSymbols">0</Field>
<Field FieldName="Number contract">1605370</Field>
<Field FieldName="ScanDate">10.08.2010</Field>
</Page>
</Doc>
−
<Doc DocNmb="2" DocType="Реестр" DocStatus="" ExportImagesPath="\\Sql11\SCAN2\Scan_BWC_Контракты\Export\396\396_2_1605370.pdf">
−
<Page PageNmb="2" PageType="Приложение №2" PageStatus="(нет ошибок)">
<Field FieldName="DocType">02</Field>
<Field FieldName="Name">2_1605370</Field>
<Field FieldName="NumWarnSymbols">0</Field>
<Field FieldName="Number contract">1605370</Field>
<Field FieldName="ScanDate">10.08.2010</Field>
</Page>
</Doc>

....
и т.д.

нужно заменить то, что выделено красным цветом на новый путь, который я вручную укажу. Нужно как-то замутить поиск поля ExportImagesPath и произвести замену. Кто что может предложить?

[Пепел Феникса]

var Inp,OutP:Text;
     s:string;
begin
 AssignFile(Inp,'<путь>');
 AssignFile(OutP,'<путь>');
 Reset(Inp);
 Rewrite(Outp);
 while not EoF(Inp) do 
  begin
   readln(inp,s);
   s:=StringReplace(s,'ExportImagesPath="\\Sql11\SCAN2\Scan_BWC_Контракты\Export\396\396_1_1605370.pdf"'{можно в принципе и сам путь задать},'<новый путь, также с именем параметра{или без, смотря как задавал в первом}>',[rfReplaceAll,rlIgnoreCase]);
   writeln(outp,s);
  end;
 CloseFile(Outp);
 CloseFile(Inp);
end;

может я настолько самокритичен, но мне мой вариант не нравится, не знаю почему

[artemavd]

Здесь

AssignFile(Inp,'<путь>');
AssignFile(OutP,'<путь>');

указываем вместо '<путь>' файл, в котором будем делать замену?
А вот в это строчке

 s:=StringReplace(s,'ExportImagesPath="\\Sql11\SCAN2\Scan_BWC_Контракты\Export\396\396_1_1605370.pdf"'

мне не нужно, чтобы менялось 396_1_1605370.pdf . Должно меняться только то, что находится до 396_1_1605370.pdf, а уже, например, это 396_1_1605370.pdf будут иметь разные имена.

[Пепел Феникса]

Inp это исходный файл, Outp итоговый
пути соответственно.
ну тогда так

 s:=StringReplace(s,'ExportImagesPath="\\Sql11\SCAN2\Scan_BWC_Контракты\Export\396\',

[artemavd]

Отлично, Пепел , обязательно попробую. Только придется мне завтра из-за этого на работе задержаться, ноут-то мой не хочет работать (

[chertovich]

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

Еще вариант открыть в редакторе и шандарахнуть Найти/Заменить

Ага, прямо в Delphi

[artemavd]

Ну, я вот так пытаюсь сделать:

procedure TForm1.BtnReplaceClick(Sender: TObject);
var
 Inp, OutP: Text;
 s: string;
begin
 AssignFile(Inp,Form1.Edit1.Text);
 AssignFile(OutP,Form1.Edit1.Text);
 Reset(Inp);
 Rewrite(Outp);
 while not EoF(Inp) do
  begin
   readln(inp,s);
   s:=StringReplace(s, Form1.Edit4.Text,Form1.Edit3.Text,[rfReplaceAll,rlIgnoreCase]);
   writeln(outp,s);
  end;
 CloseFile(Outp);
 CloseFile(Inp);
end;

В Edit4 - путь, который меняем.
В Edit3 - путь, на который меняем.
В Edit1 - путь до файла, в котором меняем.

Но при компиляции выдается ошибка:

[Error] Unit1.pas(71): Constant or type identifier expected

И показывает на эту строчку:

 Inp, OutP: Text;

после слова Text

???

[Пепел Феникса]

помоему TextFile надо, я не использую паскалевские, потому и не помню.