XML изменение значения между тегами

@L.Lawliet · Регистрация: 30.03.2012

Author24 — интернет-сервис помощи студентам

Delphi

1
2
3

XMLDocument1.LoadFromFile(ExtractFilePath(paramstr(0))+'home.xml');
XMLDocument1.DocumentElement.ChildNodes['t'+IntToStr(type_combo.ImageIndex)].ChildNodes['d'+inttostr(day_combo.ItemIndex)].ChildNodes['n'+inttostr(AdvSmoothListBox1.SelectedItemIndex+1)].NodeValue:=homework_memo.EditValue;
XMLDocument1.SaveToFile(ExtractFilePath(paramstr(0))+'home.xml');

все равно не меняет значение

@Z3oM · 03.11.2012, 05:56

Сообщение от L.Lawliet

Delphi

1
2
3

XMLDocument1.LoadFromFile(ExtractFilePath(paramstr(0))+'home.xml');
XMLDocument1.DocumentElement.ChildNodes['t'+IntToStr(type_combo.ImageIndex)].ChildNodes['d'+inttostr(day_combo.ItemIndex)].ChildNodes['n'+inttostr(AdvSmoothListBox1.SelectedItemIndex+1)].NodeValue:=homework_memo.EditValue;
XMLDocument1.SaveToFile(ExtractFilePath(paramstr(0))+'home.xml');

все равно не меняет значение

А хотябы кусочег XML кода?

@L.Lawliet · 04.11.2012, 00:59 **[ТС]**

Нужно менять значение между тегами n1,n2 и тд

Добавлено через 8 часов 15 минут

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

А хотябы кусочег XML кода

XML

[XML]<?xml version="1.0" encoding="windows-1251"?>
<Home>
    <t0>
        <d0>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d0>
        <d1>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d1>
        <d2>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d2>
        <d3>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d3>
        <d4>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d4>
        <d5>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d5>
    </t0>
    <t1>
        <d0>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d0>
        <d1>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d1>
        <d2>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d2>
        <d3>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d3>
        <d4>
            <n1>555</n1>
            <n2>555</n2>
            <n3>555</n3>
            <n4>555</n4>
            <n5>444</n5>
            <n6>444</n6>
            <n7>444</n7>
        </d4>
        <d5>
            <n1></n1>
            <n2></n2>
            <n3></n3>
            <n4></n4>
            <n5></n5>
            <n6></n6>
            <n7></n7>
        </d5>
    </t1> 
</Home>

[/XML]

@L.Lawliet · 05.11.2012, 01:35 **[ТС]**

Кто нибудь поможет?

@Mawrat · 05.11.2012, 05:27

Если узел существует, то такой код изменит его значение:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Node : IXMLNode;
  Od : TOpenDialog;
begin
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then Od.InitialDir := ExtractFilePath(ParamStr(0));
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    ShowMessage('Файл с заданным именем не существует. Действие отменено.');
    Exit;
  end;
 
  XMLDocument1.LoadFromFile(Od.FileName);
  XMLDocument1.Active := True;
  //Запрет на автоматическое создание узлов и на автосохранение.
  XMLDocument1.Options := XMLDocument1.Options - [doNodeAutocreate, doAutoSave];
 
  Node := XMLDocument1.DocumentElement;
  Node := Node.ChildNodes.FindNode('t0');
  if Node <> nil then
    Node := Node.ChildNodes.FindNode('d0');
  if Node <> nil then
    Node := Node.ChildNodes.FindNode('n1');
  if Node <> nil then
    Node.NodeValue := 't0-d0-n1-value';
 
  //Сохраняем документ, если он изменился.
  if XMLDocument1.Modified then
    XMLDocument1.SaveToFile(Od.FileName);
end;

@L.Lawliet · 05.11.2012, 13:00 **[ТС]**

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

if Node <> nil then
* * Node.NodeValue := 't0-d0-n1-value';

а вот тут заместо value значение нужно записать ?

@Mawrat · 05.11.2012, 17:28

Да - там нужное значение надо записывать. Значение 't0-d0-n1-value' - это я для примера написал.

@L.Lawliet · 05.11.2012, 20:18 **[ТС]**

Тоже не изменяется ничего в файле

Добавлено через 34 минуты
Отдельно в новом проекте работает а в моем не работает (((((

@Mawrat · 05.11.2012, 21:10

Возможно, неправильно формируется имя узла. Надо в режиме отладки посмотреть - какие выбираются узлы. И для начала следует запустить тот код, который я выше представил - в качестве проверки.

@L.Lawliet · 05.11.2012, 23:41 **[ТС]**

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

Возможно, неправильно формируется имя узла. Надо в режиме отладки посмотреть - какие выбираются узлы. И для начала следует запустить тот код, который я выше представил - в качестве проверки

Я его пробовал , он работает. А вот когда в мой проект то не работает. Ошибок нет но изменений не происходит

Добавлено через 21 минуту
Спасибо за помощь. Ошибка была в мемо

@L.Lawliet 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 22
	05.11.2012, 01:35 [ТС]	4
	Кто нибудь поможет? 0

@L.Lawliet 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 22
	05.11.2012, 13:00 [ТС]	6
	Сообщение от Mawrat if Node <> nil then * * Node.NodeValue := 't0-d0-n1-value'; а вот тут заместо value значение нужно записать ? 0

@Mawrat 13107 / 5888 / 1707 Регистрация: 19.09.2009 Сообщений: 8,808
	05.11.2012, 17:28	7
	Да - там нужное значение надо записывать. Значение 't0-d0-n1-value' - это я для примера написал. 1

@L.Lawliet 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 22
	05.11.2012, 20:18 [ТС]	8
	Тоже не изменяется ничего в файле Добавлено через 34 минуты Отдельно в новом проекте работает а в моем не работает ((((( 0

@Mawrat 13107 / 5888 / 1707 Регистрация: 19.09.2009 Сообщений: 8,808
	05.11.2012, 21:10	9
	Возможно, неправильно формируется имя узла. Надо в режиме отладки посмотреть - какие выбираются узлы. И для начала следует запустить тот код, который я выше представил - в качестве проверки. 0

@L.Lawliet 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 22
	05.11.2012, 23:41 [ТС]	10
	Сообщение от Mawrat Возможно, неправильно формируется имя узла. Надо в режиме отладки посмотреть - какие выбираются узлы. И для начала следует запустить тот код, который я выше представил - в качестве проверки Я его пробовал , он работает. А вот когда в мой проект то не работает. Ошибок нет но изменений не происходит Добавлено через 21 минуту Спасибо за помощь. Ошибка была в мемо 0