![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
правильно, что ничего не выводит, бо как текста в этих нодах нет. Все в атрибутах сидит.
Если xml отформатирован нормально, то можно по простому: Код:
var
S : TStringList;
I : Integer;
begin
S := TStringList.Create;
S.LoadFromFile('you-file.cfg.or.xml');
For I := S.Count-1 DownTo 0 Do
If (Pos('${{EulaHtmlFile}}',S[i]) > 0) Or (Pos('${{PrivacyPolicyFile}}',S[i]) > 0) Or (Pos('${{InstallerDllDirectory}}/NVI2UI.dll',S[i]) > 0)
then S.Delete(I);
S.SavetoFile('new-file-name.cfg.or.xml');
S.Free; |
| Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Aqel (10.08.2018)
| ||