powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / создать xml файл
3 сообщений из 3, страница 1 из 1
создать xml файл
    #35766250
vera_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для закачки в программу мне нужно создать xml файл следующей структуры:
<?xml version="1.0" encoding="windows-1251" ?>
- <EGRUL_FOND VER="1.0">
- <UL_FOND IDDOK="1" OGRN="1062540001061" DTSTART="27.01.2006" DTEND="29.12.2008" REGNUM="035008036890">
<ORGAN KOD="035008" NAME="Наименование района" />
</UL_FOND>
</EGRUL_FOND>
Из xls таблицы. Для этого был создан макрос:

Sub xls_xml()
Set xpar = CreateObject("Msxml2.DOMDocument")
xpar.appendChild (xpar.createProcessingInstruction("xml", "version='1.0' encoding='windows-1251'"))
Set rootnode = xpar.appendChild(xpar.createElement("EGRUL_FO"))
rootnode.Text = "VER=""1.0"""
s = " IDDOK=""1"" OGRN=" & Worksheets(1).Cells(2, 1) & " DTSTART=" & Worksheets(1).Cells(2, 11) & " REGNUM=" & Worksheets(1).Cells(2, 10)
Set subnode = rootnode.appendChild(xpar.createElement("UL_FOND"))
subnode.Text = s
Set subnode2 = subnode.appendChild(xpar.createElement("ORGAN"))
subnode2.Text = " KOD=""035008"" NAME=""Наименование района"""
xpar.Save ("d:\RUP_035_25059_081230_29.XML")
End Sub

который формирует файл:
<?xml version="1.0" encoding="windows-1251" ?>
- <EGRUL_FO>
VER="1.0"
- <UL_FOND>
IDDOK="1" OGRN=2539 DTSTART= REGNUM=
<ORGAN>KOD="035008" NAME="Наименование района"</ORGAN>
</UL_FOND>
</EGRUL_FO>
Структура этого файла отличается от той структуры которая требуется (н-р после имени узла UL_FOND у меня ставится ">" , а у исходного файла пробел, наверное вследствии этого файл не принимается в программу. Не подскажет ли кто-нибудь как надо составить программу чтобы получить требуемую структуру файла
...
Рейтинг: 0 / 0
создать xml файл
    #35767022
SoftParanoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У тебя используются XML-атрибуты.
Для их создания необходимо действовать немного иначе,
например так:
Код: plaintext
1.
2.
Set rootnode = xpar.appendChild(xpar.createElement("EGRUL_FOND"))
rootnode.Attributes.setNamedItem(xpar.createAttribute("VER")).Text="1.0"
...
Рейтинг: 0 / 0
создать xml файл
    #35768355
vera_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Большое спасибо. Все получилось.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / создать xml файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]