Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 06.01.2014, 14:05
a big hit a big hit вне форума
Прохожий
 
Регистрация: 06.01.2014
Сообщения: 5
Версия Delphi: borland delphi
Репутация: 10
По умолчанию Как изменить файл xml

Подскажите пожалуйста
как программно
изменить значение
money="507396"
в этом xml файле
Вложения
Тип файла: zip careerSavegame.zip (5.3 Кбайт, 11 просмотров)
Ответить с цитированием
  #2  
Старый 06.01.2014, 14:13
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Радость

это ж обычный текстовый файл, если через IXMLDOMDocument не хочется.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
a big hit (06.01.2014)
  #3  
Старый 06.01.2014, 16:08
a big hit a big hit вне форума
Прохожий
 
Регистрация: 06.01.2014
Сообщения: 5
Версия Delphi: borland delphi
Репутация: 10
По умолчанию Как изменить файл xml

Код:
var s:tstringlist;
begin
 s:=tstringlist.create;
 s.LoadFromFile('c:\careerSavegame.xml');
s.text:=StringReplace
(s.Text,'money="507396','money="1000000"',
[rfreplaceall]);
 s.SaveToFile('c:\careerSavegame.xml');
end.
Админ: Пользуемся тегами для оформления кода!

Вот я сделал так все работает значение 507396 изменяется на 1000000 а как сделать если мне не известно первое значение

Последний раз редактировалось Admin, 06.01.2014 в 17:07.
Ответить с цитированием
  #4  
Старый 06.01.2014, 16:33
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Через TXMLDocument можно так:
Код:
uses
  XMLDoc, XMLIntf;
.....
procedure TForm1.Button1Click(Sender: TObject);
var
  xml: TXMLDocument;
  Node: IXMLNode;
begin
  xml := TXMLDocument.Create(Application);
  try
    xml.LoadFromFile('careerSavegame.xml');
    Node := xml.ChildNodes.FindNode('careerSavegame');
    if Assigned(Node) then
    begin
      Node.Attributes['money'] := 1000000;
      xml.SaveToFile('careerSavegame.xml');
    end;
  finally
    xml.Free;
  end;
end;
Ответить с цитированием
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
a big hit (06.01.2014)
  #5  
Старый 06.01.2014, 17:13
a big hit a big hit вне форума
Прохожий
 
Регистрация: 06.01.2014
Сообщения: 5
Версия Delphi: borland delphi
Репутация: 10
По умолчанию Как изменить файл xml

Что то не получается все проходит без ошибок но ничего не изменяется
Ответить с цитированием
  #6  
Старый 06.01.2014, 17:16
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от a big hit
Что то не получается все проходит без ошибок но ничего не изменяется
Я этот код проверял на твоём файле - у меня нормально менялось.
Ответить с цитированием
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
a big hit (06.01.2014)
  #7  
Старый 06.01.2014, 17:34
a big hit a big hit вне форума
Прохожий
 
Регистрация: 06.01.2014
Сообщения: 5
Версия Delphi: borland delphi
Репутация: 10
По умолчанию Как изменить файл xml

Все спасибо заработало, просто я не досмотрел что он сохраняется в папку с проектом надо было просто путь поменять
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:10.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025