ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Анализировать XML файл
7 сообщений из 7, страница 1 из 1
Анализировать XML файл
    #38016912
Дима1991
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима1991
Гость
Нужно сделать такое. мне не приходилось работать с xml в фокспро поэтому прошу помощи у вас. нужно сделать такое.

необходимо проанализировать xml файл и проверить код МКБ корректный или нет. В архиве выложил тех. задание, файл xml и таблица. Или наведите как сделать? понятия не имею вообще как данные из xml файла в фокспро вывести даже. Недавно писал тут по xml файлу, но этот xml Файл другой конфигурации полей много. Прошу помощи
...
Рейтинг: 0 / 0
29.10.2012, 13:32
| Ответить | Цитировать | Написать  
Анализировать XML файл
    #38016914
Дима1991
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима1991
Гость
Дополнение: нужно проверить корректность МКБ файла для случаев и услуг. Это поля sluch и usl в xml файле
...
Рейтинг: 0 / 0
29.10.2012, 13:34
| Ответить | Цитировать | Написать  
Анализировать XML файл
    #38017015
Дима1991
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима1991
Гость
скажите хоть как парсить этот xml файл который в архиве выложил. желательно пример если есть
...
Рейтинг: 0 / 0
29.10.2012, 14:21
| Ответить | Цитировать | Написать  
Анализировать XML файл
    #38017307
Дима1991
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима1991
Гость
нашел такой код для парсинга. у меня похожий файл только кроме usl есть еще и другие теги. как мне этот код подкорректировать под свой файл?

вот сама структура файла для которого приведен код парсинга.
 

<Test_xml>
<PAC>
<ID_PAC>1</ID_PAC>
<USL>
<ID_USL>1 </ID_USL>
</USL>
<USL>
<ID_USL>2 </ID_USL>
</USL>
<USL>
<ID_USL>3</ID_USL>
</USL>
<USL>
<ID_USL>3</ID_USL>
</USL>
<USL>
<ID_USL>3</ID_USL>
</USL>
</PAC>
<PAC>
<ID_PAC>2</ID_PAC>
<USL>
<ID_USL>1 </ID_USL>
</USL>
<USL>
<ID_USL>2 </ID_USL>
</USL>
<USL>
<ID_USL>5</ID_USL>
</USL>
<USL>
<ID_USL>7</ID_USL>
</USL>
<USL>
<ID_USL>3</ID_USL>
</USL>
</PAC>
</Test_xml>


а вот сам код парсинга:
 

CREATE CURSOR test_xml (id_pac int,id_usl int)

loXML = CREATEOBJECT("msxml2.DomDocument.3.0")
loXML.ASYNC=.F.
loXML.load("D:\......\txml1.xml")

loXMLNodes=loXML.getElementsByTagName("Test_xml/PAC")
loNodes = loXMLNodes.nextNode
FOR i=1 TO loXMLNodes.length
m.id_pac=loNodes.getElementsByTagName("ID_PAC").item(0).text
loNodes2 = loXMLNodes2.nextNode
FOR i2=1 TO loXMLNodes2.item(0).childNodes.length-1
m.id_usl=loXMLNodes2.item(i-1).childNodes.item(i2).text
SELECT test_xml
APPEND BLANK
GATHER MEMVAR
loNodes2 = loXMLNodes2.nextNode
endf
loNodes = loXMLNodes.nextNode
endf

RELEASE loXML
SELECT test_xml
brow
...
Рейтинг: 0 / 0
29.10.2012, 16:09
| Ответить | Цитировать | Написать  
Анализировать XML файл
    #38017978
Дима1991
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима1991
Гость
никто не может даже навести на мысль? что использовать вообще? какие функции? Структура файла примерно такова:

 

<zl_list>

<zap>

<pacient>
<fam>Воробьев</fam>
</pacient>

<sluch>

<id>111</id>

<usl>
<id_strah>rt23</id_strah>
</usl>

</sluch>

</zap>

</zl_list>
...
Рейтинг: 0 / 0
30.10.2012, 08:03
| Ответить | Цитировать | Написать  
Анализировать XML файл
    #38017988
Дима1991
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дима1991
Гость
подойдет ли XMLTOCURSOR() ? для такой структуры файла? думал сделать так: в курсор1 вывести данные из тегов sluch, в курсор2 вывести данные тегов usl а в курсор3 вывести данные пациентов. и уже работать как курсорами. Правильно ли это будет?
...
Рейтинг: 0 / 0
30.10.2012, 08:16
| Ответить | Цитировать | Написать  
Анализировать XML файл
    #38018737
Grin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grin
Участник
2Дима1991,

Вот Вам еще один пример
взял Ваш xml из соседнего поста, немножко его усложнил

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
CREATE CURSOR test_xml (pacient char(60),sluch_id int,id_strah char(10))

loXML = CREATEOBJECT("msxml2.DomDocument.3.0")
loXML.ASYNC=.F.
loXML.load("D:\.......\test2.xml")

loXMLNodes=loXML.getElementsByTagName("zl_list/zap")
loNodes = loXMLNodes.nextNode
FOR i=1 TO loXMLNodes.length
	m.pacient=loNodes.getElementsByTagName("pacient").item(0).text
	m.sluch_id =loNodes.getElementsByTagName("sluch/id").item(0).text
	m.id_strah=loNodes.getElementsByTagName("sluch/usl/id_strah").item(0).text
	SELECT test_xml 
	APPEND BLANK 
	GATHER MEMVAR 
	loNodes = loXMLNodes.nextNode
endf 

RELEASE loXML 
SELECT test_xml 
brow



еще раз, совет, почитайте букварь что делают команды APPEND BLANK и GATHER MEMVAR
...
Рейтинг: 0 / 0
30.10.2012, 14:44
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Анализировать XML файл
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=38017307&tid=1583371]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 267ms
total:  396ms
созд. / загр.: 396ms
x
x
Закрыть


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