Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Xml to Cursor / 12 сообщений из 12, страница 1 из 1
10.02.2014, 22:05
    #38556354
sejko
sejko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xml to Cursor
Я не специалист , pls объяснить а еще лучше помочь в файле вложенным преобразовать в таблицу или курсор
Очень надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2014, 14:07
    #38557092
sejko
sejko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xml to Cursor
Может все таки помочь кто ни будь, или пример !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2014, 17:06
    #38557416
Grin
Grin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xml to Cursor
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:54
    #38557506
sejko
sejko
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xml to Cursor
ругается
Member Item does not evaluate object
помоги
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2014, 18:00
    #38557512
Grin
Grin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xml to Cursor
2sejko,

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

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



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

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

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

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

А как пересохранить то
так
Код: sql
1.
2.
3.
lcMyFile = 'C:\Download\summary.xml'
lcConvFile = 'C:\Download\summary1251.xml'
StrToFile(strconv(FileToStr(lcMyFile), 11), lcConvFile)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2014, 14:08
    #38558462
Grin
Grin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xml to Cursor
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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Xml to Cursor / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 233ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1582740]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 134ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 12ms
total:  233ms
x
x
Закрыть


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