ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Экспорт данных в XML
7 сообщений из 7, страница 1 из 1
Экспорт данных в XML
    #37226562
WriteDevil
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WriteDevil
Гость
Прошу прощения за мою не подкованность в данном вопросе но я только начал изучать VFP и столкнулся с проблемой вывода информации из базы в XML файл используя XMLadpter.
Для вывода примерного содержания полей таблицы я использовал
Код: plaintext
1.
CURSORTOXML('cursoradapter1','prim8.xml',  1 ,  16 + 512 ,  1 , '')  
  modi file prim8.xml
я получаю XML такого вида:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
<?xml version = "1.0" encoding="Windows-1251" standalone="yes"?>  
  <VFPData>  
  	<cursoradapter1>  
  		<company>Название компании</company>  
  		<companyshort>Краткое Название компани"</companyshort>  
  		<registredaddres>Адрес</registredaddres>  
  		<streetaddres>Юр Адрес</streetaddres>  
  		<city>Город</city>  
  		<country>Страна</country>  
  	</cursoradapter1>  
  </VFPData>


А теперь необходимо используя XMLadpter получить:

Код: plaintext
1.
2.
3.
4.
5.
<License FormatVersion="1.0">  
      <Product Name="Продукт" Version="0,1" />  
      <Buyer Company="Название компании" CompanyShort="Краткое Название компании'"   
  RegistredAddress="Адрес" StreetAddress="Ю адрес" Country="Россия"/>  
      <Owner FirstName="имя " LastName="фамилия" MiddleName="отчество" />    
  </License>

Помогите пожалуйста
...
Рейтинг: 0 / 0
21.04.2011, 13:36
| Ответить | Цитировать | Написать  
Экспорт данных в XML
    #37226707
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прошелмимо
Участник
WriteDevilиспользуя XMLadpter

Вам уже пытались объяснить...


вот это - адаптер

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
create cursor product (Name v( 10 ), Version v( 5 ))
insert into product value('Продукт','1.0')
local loXMLAdapter,lcXml
loXMLAdapter = CREATEOBJECT("XMLAdapter") 
with loXMLAdapter
	store .t. to .RESPECTCURSORCP,   ;
				 .RESPECTNESTING,    ;
				 .PreserveWhiteSpace,;
				 .USECODEPAGE,       ;
				 .ForceCloseTag
	.CODEPAGE= 1251  
	.XMLSCHEMALOCATION="" 
	.XMLNAME=STRCONV("License", 5 ) 
	.AddTableSchema("Product")
	
	.TOXML("lcXml") 

endwith
? lcXml

разницу понимаете?

удачи с поиском по слову "XMLAdapter"
...
Рейтинг: 0 / 0
21.04.2011, 14:24
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Экспорт данных в XML
    #37849547
ValeoBrother
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ValeoBrother
Гость
Здравствуйте! Возникли вопросы, которые не получается решить самостоятельно, поиск результатов не дал!
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
LOCAL loXML as XMLAdapter
loXML = CREATEOBJECT('XMLAdapter')      
WITH loXML
   .RespectCursorCP = .T.
   .XMLName = STRCONV('ROWSET', 5)
   .AddTableSchema('cRLN', .T., STRCONV('ROW', 5))                      
   .XMLSchemaLocation = ''             
   .ToXML(__p_cDir + 'Example.XML', '', .T.)
ENDWITH


получается,
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 <?xml version="1.0" encoding="Windows-1251" standalone="yes" ?> 
- <ROWSET>
- <ROW>
  <batch_no>1</batch_no> 
  <doc_type>2</doc_type> 
  <doc_dt1>2012-06-22</doc_dt1> 
  <snils>4</snils> 
  <inn_person>5</inn_person> 
  <surname>6</surname> 
  <name>7</name> 
  <patronimic>8</patronimic> 
  </ROW>
  </ROWSET>


а по-хорошему требуется,
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?> 
- <ROWSET email="roga_i_kopyita@mail.ru" phone="32-31-30" author="Сидоров С.С." software="fss_payment_1.0.10" version="1.5.1">
- <ROW>
  <BATCH_NO>E_7791343453_2012_06_17:1</BATCH_NO> 
  <DOC_TYPE>1</DOC_TYPE> 
  <DOC_DT1>2012-06-17</DOC_DT1> 
  <SNILS /> 
  <INN_PERSON /> 
  <SURNAME>Васильева</SURNAME> 
  <NAME>Василиса</NAME> 
  <PERIODS /> 
  </ROW>
  </ROWSET>



1. Как добавить атрибуты в корневой узел?
...
Рейтинг: 0 / 0
22.06.2012, 06:03
| Ответить | Цитировать | Написать  
Экспорт данных в XML
    #37849774
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: ValeoBrother
> 1. Как добавить атрибуты в корневой узел?

Руками, загружать полученый XML в MSXML.DOMDocument и в нем добавлять аттрибуты.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
22.06.2012, 10:20
| Ответить | Цитировать | Написать  
Экспорт данных в XML
    #37850684
ValeoBrother
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ValeoBrother
Гость
Спасибо за помощь, буду юзать MSXML.DOMDocument.
...
Рейтинг: 0 / 0
22.06.2012, 16:46
| Ответить | Цитировать | Написать  
Экспорт данных в XML
    #37852682
ValeoBrother
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ValeoBrother
Гость
Атрибуты в корневой узел можно добавить с помощью:
Код: sql
1.
.ToXML('C:\1.xml', '" email="post@mail.ru" phone="" author="" software="" version="7.7', .T.)



Возникла друга проблема, не получается переименовать поля заглавными,
Код: sql
1.
.Tables(1).Fields(1).XMLName = STRCONV(UPPER(.Tables(1).Fields(1).XMLName), 5)


В чем может быть причина?
...
Рейтинг: 0 / 0
25.06.2012, 07:26
| Ответить | Цитировать | Написать  
Экспорт данных в XML
    #37852684
ValeoBrother
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ValeoBrother
Гость
Нашел решение .Tables(1).Fields(1).XMLName = STRCONV(UPPER(.Tables(1).Fields(1).XMLName), 1)
...
Рейтинг: 0 / 0
25.06.2012, 07:30
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Экспорт данных в XML
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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