Xml to Cursor / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Xml to Cursor

12 сообщений из 12, страница 1 из 1

Xml to Cursor

#38556354

sejko

Гость

Я не специалист , pls объяснить а еще лучше помочь в файле вложенным преобразовать в таблицу или курсор
Очень надо

...

Рейтинг:

0 / 0

10.02.2014, 22:05

| Ответить | Цитировать | Написать

Xml to Cursor

#38557092

sejko

Гость

Может все таки помочь кто ни будь, или пример !

...

Рейтинг:

0 / 0

11.02.2014, 14:07

| Ответить | Цитировать | Написать

Xml to Cursor

#38557416

Grin

Участник

Сообщения: 111

Рейтинг: 0 / 0

XML файл должен содержать заголовок

Код: sql

<?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

Гость

ругается
Member Item does not evaluate object
помоги

...

Рейтинг:

0 / 0

11.02.2014, 17:54

| Ответить | Цитировать | Написать

Xml to Cursor

#38557512

Grin

Участник

Сообщения: 111

Рейтинг: 0 / 0

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

Гость

с твоим вариантом работает, а как сделать с моим

...

Рейтинг:

0 / 0

11.02.2014, 18:06

| Ответить | Цитировать | Написать

Xml to Cursor

#38557522

Grin

Участник

Сообщения: 111

Рейтинг: 0 / 0

GrinXML файл должен содержать заголовок

Код: sql

<?xml version="1.0" encoding="utf-8"?>

...

Рейтинг:

0 / 0

11.02.2014, 18:10

| Ответить | Цитировать | Написать

Xml to Cursor

#38557557

Grin

Участник

Сообщения: 111

Рейтинг: 0 / 0

sejko,

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

после пересохранения твоего файла в ANSI, код заработал

...

Рейтинг:

0 / 0

11.02.2014, 18:29

| Ответить | Цитировать | Написать

Xml to Cursor

#38557663

sejko

Гость

Нет , мне надо в первозданном виде
чтоб экспортировать или просканировать

...

Рейтинг:

0 / 0

11.02.2014, 19:59

| Ответить | Цитировать | Написать

Xml to Cursor

#38557667

sejko

Гость

Grin,

А как пересохранить то

...

Рейтинг:

0 / 0

11.02.2014, 20:00

| Ответить | Цитировать | Написать

Xml to Cursor

#38557670

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

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

Участник

Сообщения: 111

Рейтинг: 0 / 0

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

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&gotonew=1&tid=1582740]:	0ms
get settings:	6ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	61ms
get topic data:	9ms
get first new msg:	6ms
get forum data:	2ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	11ms

total:	157ms