|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.12.2015, 12:53 | #1 |
Пользователь
Регистрация: 24.08.2015
Сообщений: 46
|
Создание в Delphi 2010 xml файла нужного формата
Ребят, столкнулся с такой проблемой - как создать в Delphi 2010 xml файл, чтобы был один корневой тег, в котором есть несколько переменных? Значения переменных будут браться из БД на SQL.
Нужно, чтобы xml файл выглядел таким образом: <?xml version="1.0" encoding="utf-16"?> <AssignmentQR text00_Вид="Документ" text01_Начальник="Начальник отдела ИТ" text02_фио="Иванов А.В." /> Именно такой формат нужен, чтобы созданные xml файлы открывались через другую программу и обрабатывались там. Пробую сделать через AddChild, но оно создает много тегов, а нужно, чтобы все было в одном. Код:
Код:
Последний раз редактировалось Stilet; 21.12.2015 в 14:07. |
21.12.2015, 13:20 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Это атрибуты. См. Attributes. Уверен, что кириллические названия прокатят?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
21.12.2015, 21:07 | #3 |
Регистрация: 06.05.2011
Сообщений: 5
|
Здравствуйте!
Подскажите как при работе с xml делать так, чтобы новый элемент добавлялся с новой строки, а не в одну строчку. Например чтобы файл формировался так: <Person> <id></id> <Family></Family> <Name></Name> </Person> А не так: <Person><id></id><Family></Family><Name></Name></Person> |
21.12.2015, 21:11 | #4 |
Регистрация: 06.05.2011
Сообщений: 5
|
Использую функцию
function SaveNews(Family,Name,:string; id:integer) : Boolean; var i : integer; Node,ValNode : IXMLNode; F:textFile; begin result:=true; XMLDoc.Active:=true; for i := 0 to XMLDoc.DocumentElement.ChildNodes.C ount - 1 do begin Node := XMLDoc.DocumentElement.ChildNodes[i]; if StrToInt(Node.ChildNodes['id'].Text)=id then begin Result:=false; Exit; end; end; Node:=XMLDoc.DocumentElement.AddChi ld('Person'); Node.Attributes['birthday']:=DateToStr(birthday); ValNode:=Node.AddChild('id'); ValNode.Text:=IntToStr(id); ValNode:=Node.AddChild('Family'); ValNode.Text:=Family; ValNode:=Node.AddChild('Name'); ValNode.Text:=Name; XMLDoc.SaveToFile(XMLDoc.FileName); end; |
21.12.2015, 21:31 | #5 |
Участник клуба
Регистрация: 21.10.2015
Сообщений: 1,361
|
Какая разница? xml-ю все равно как
Да и смотря чем смотреть файл |
21.12.2015, 21:35 | #6 |
Регистрация: 06.05.2011
Сообщений: 5
|
Просто для удобства. Все итак в принципе работает как надо, но когда открываешь все без прорамы глаз режет
|
21.12.2015, 21:38 | #7 |
Участник клуба
Регистрация: 21.10.2015
Сообщений: 1,361
|
открывайте в браузере, не будет резать
|
21.12.2015, 21:46 | #8 |
Регистрация: 06.05.2011
Сообщений: 5
|
Еслиу кого-нибудь есть варианты, я бы все таки посмотрел! Заранее спасибо.
|
22.12.2015, 16:21 | #9 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,886
|
|
23.12.2015, 13:17 | #10 |
Регистрация: 06.05.2011
Сообщений: 5
|
Спасибо! Всего лишь то одну опцию нужно подправить!
XMLDoc.Options := XMLDoc.Options + [doNodeAutoIndent]; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание XML файла из выгруженных данных | Alchi09 | Базы данных (ADO.NET, LinqToSql, ORM Entity Framework, NHibernate) | 0 | 23.08.2014 20:51 |
Поиск нужного места в XML и добавление в него нового элемента / LINQ | ganeevez | C# (си шарп) | 3 | 26.03.2014 15:52 |
Выбор нужного значения по нескольким критериям Excel 2010 | dg'uyd | Microsoft Office Excel | 2 | 22.03.2012 11:32 |
Как с файла XML картинки из формата svg , разобрать этот файл и вывести на форму | djKeysi | C# (си шарп) | 2 | 08.12.2011 12:36 |
XML формата и Delphi | S_Yevgeniy | Общие вопросы Delphi | 2 | 02.09.2009 11:35 |