Форум: "Начинающим";
Текущий архив: 2016.03.06;
Скачать: [xml.tar.bz2];
ВнизTXMLDocument Найти похожие ветки
← →
Sw (2014-08-22 12:13) [0]Уважаемые мастера, помогите, пожалуйста, по работе с xml-файлом.
<?xml version="1.0"?>
<Config xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<DB>User=xxx;Password=xxx;Database=xxx;DataSource=xxx;</DB>
var n,n1:IXMLNode;
DS:string;
begin
XMLDocument1.FileName:="D:\test.xml";
XMLDocument1.Active:=true;
Showmessage(XMLDocument1.XML.Text);
n:=XMLDocument1.ChildNodes.FindNode("Config"); //имя секции
n1:=n.ChildNodes.FindNode("DB"); //имя вложенной секции
ShowMessage(n1.XML);
Мне нужно получить значение DataSource, например. Как атрибут это не работает...выходит, что типа функцией Pos по тексту....может есть другой способ?
← →
KilkennyCat © (2014-08-22 12:32) [1]http://parsing-and-i.blogspot.ru/2008/08/xml-delphi.html
← →
Inovet © (2014-08-22 12:32) [2]> [0] Sw (22.08.14 12:13)
> может есть другой способ?
TStringList
Delimiter поставить «;»
загрузить в DelimitedText
см. Values
← →
junglecat (2014-08-22 12:36) [3]как-то так?
var SL: TStringList;
SL.Delimiter := ";";
SL.Text := n1.XML;
DS := SL.Values["DataSource"];
← →
Sw (2014-08-26 06:05) [4]Ура! Получилось. Спасибочки.
SL:=TStringList.Create;
SL.Delimiter := ";";
SL.DelimitedText := n1.XML;
DS := SL.Values["DataSource"];
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2016.03.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.002 c