ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Xml to Cursor
12 сообщений из 12, страница 1 из 1
Xml to Cursor
    #38556354
sejko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sejko
Гость
Я не специалист , pls объяснить а еще лучше помочь в файле вложенным преобразовать в таблицу или курсор
Очень надо
...
Рейтинг: 0 / 0
10.02.2014, 22:05
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557092
sejko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sejko
Гость
Может все таки помочь кто ни будь, или пример !
...
Рейтинг: 0 / 0
11.02.2014, 14:07
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557416
Grin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grin
Участник
XML файл должен содержать заголовок
Код: sql
1.
<?xml version="1.0" encoding="utf-8"?>



Ну и далее пример разбора XML
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
clear
m.xml=FILETOSTR('summary.xml')
loXML = CREATEOBJECT("msxml2.DomDocument")
loXML.ASYNC=.F.
loXML.loadxml(m.xml)

m.Nodes=loXML.getElementsByTagName("RepairInstructions")
m.child=m.Nodes.item(0).childNodes
? "RepairInstructions содержит тегов "+str(m.Nodes.item(0).childNodes.length)

FOR i=1 TO m.Nodes.item(0).childNodes.length
	m.child1=m.child.item(i-1).childNodes
	? i
	FOR i1=1 TO m.child1.length
		? m.child1.item(i1-1).nodeName+' ===> '+m.child1.item(i1-1).text
	endf 
endf



дальше сам копай
...
Рейтинг: 0 / 0
11.02.2014, 17:06
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557506
sejko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sejko
Гость
ругается
Member Item does not evaluate object
помоги
...
Рейтинг: 0 / 0
11.02.2014, 17:54
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557512
Grin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grin
Участник
2sejko,

Ругается потому что кривой xml
смотри код ошибки разбора xml

Код: sql
1.
2.
3.
? loXML.parseError.errorCode
? loXML.parseError.reason
? loXML.parseError.srcText



в атаче файл с которым код работает
...
Рейтинг: 0 / 0
11.02.2014, 18:00
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557518
sejko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sejko
Гость
с твоим вариантом работает, а как сделать с моим
...
Рейтинг: 0 / 0
11.02.2014, 18:06
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557522
Grin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grin
Участник
GrinXML файл должен содержать заголовок
Код: sql
1.
<?xml version="1.0" encoding="utf-8"?>
...
Рейтинг: 0 / 0
11.02.2014, 18:10
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557557
Grin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grin
Участник
sejko,

не, похоже проблема в кодировке файла
твой файл в UTF
мой в ANSI

после пересохранения твоего файла в ANSI, код заработал
...
Рейтинг: 0 / 0
11.02.2014, 18:29
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557663
sejko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sejko
Гость
Нет , мне надо в первозданном виде
чтоб экспортировать или просканировать
...
Рейтинг: 0 / 0
11.02.2014, 19:59
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557667
sejko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sejko
Гость
Grin,

А как пересохранить то
...
Рейтинг: 0 / 0
11.02.2014, 20:00
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38557670
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
sejkoGrin,

А как пересохранить то
так
Код: sql
1.
2.
3.
lcMyFile = 'C:\Download\summary.xml'
lcConvFile = 'C:\Download\summary1251.xml'
StrToFile(strconv(FileToStr(lcMyFile), 11), lcConvFile)
...
Рейтинг: 0 / 0
11.02.2014, 20:05
| Ответить | Цитировать | Написать  
Xml to Cursor
    #38558462
Grin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grin
Участник
2Dima T,

IMHO лучше обойтись без доп файлов

2sejko
вот только при конвертации, в первом байте появляется "?"
вот если этот знак вопроса откусить, тогда работает и с исходным xml

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
m.xml=STRCONV(FILETOSTR('summary1.xml'),11)
loXML = CREATEOBJECT("msxml2.DomDocument")
loXML.ASYNC=.F.
loXML.validateOnParse= .T. 
loXML.loadxml(SUBSTR(m.xml ,2,LEN(m.xml)))

m.Nodes=loXML.getElementsByTagName("RepairInstructions")
m.child=m.Nodes.item(0).childNodes
? "RepairInstructions содержит тегов "+str(m.Nodes.item(0).childNodes.length)

FOR i=1 TO m.Nodes.item(0).childNodes.length
	m.child1=m.child.item(i-1).childNodes
	? i
	FOR i1=1 TO m.child1.length
		? m.child1.item(i1-1).nodeName+' ===> '+m.child1.item(i1-1).nodeTypedValue
	endf 
endf
...
Рейтинг: 0 / 0
12.02.2014, 14:08
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Xml to Cursor
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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