Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как использовать XMLTOCURSOR в этом случае ? / 5 сообщений из 5, страница 1 из 1
18.10.2012, 07:59
    #38003549
Keeper2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как использовать XMLTOCURSOR в этом случае ?
Доброе время суток. Можно ли как-то использовать XMLTOCURSOR при таком файле ?
Начало сделал в виде простого

t_xml = LOCFILE("*.XML", "XML", "Инф. пакет:")
IF EMPTY(t_xml)
thisform.lblstatustext.forecolor = RGB(255, 0, 0)
thisform.lblstatustext.caption = "ОШИБКА! Не выбран XML-файл для загрузки!"
thisform.lblstatustext.visible = .T.
RETURN
ENDIF
t_xml = ALLTRIM(t_xml)
IF AT("\", t_xml)<>0
thname = SUBSTR(t_xml, RAT("\", t_xml)+1)
tpath = SUBSTR(t_xml, 1, RAT("\", t_xml))
ELSE
thname = t_xml
tpath = ""
ENDIF

CREATE table f:\errsrz ( ;
filename C(30), ;
nerr C(5), ;
nrecords C(5), ;
przcod C(8), ;
smocod C(5), ;
vers C(3), ;
code_erp C(1), ;
comment C(30), ;
id C(7), ;
n_rec C(4), ;
enp C(16), ;
erp C(2), ;
ogrnsmo C(15), ;
ter_st C(12), ;
dbeg C(10), ;
dend C(10), ;
npolic C(8), ;
vpolic C(1), ;
spolic C(16))

XMLTOCURSOR(t_xml, "errsrz", 512)
И вот тут при попытке XMLTOCURSOR с 512 выдает что msxml3.dll: Системная ошибка: (номер какой-то стоит)
если использовать другие параметры, то "ошибка в элементе верхнего уровня документа"
...
Рейтинг: 0 / 0
22.10.2012, 04:27
    #38007628
Keeper2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как использовать XMLTOCURSOR в этом случае ?
Совсем-совсем никак ?.. только ручками разбирать построчно ? =(
...
Рейтинг: 0 / 0
22.10.2012, 05:10
    #38007629
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как использовать XMLTOCURSOR в этом случае ?
Keeper2009,

13345033
...
Рейтинг: 0 / 0
25.10.2012, 06:32
    #38012373
Keeper2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как использовать XMLTOCURSOR в этом случае ?
Сделал так
oXA=CREATEOBJECT( "XMLAdapter")
lcXML = STRCONV(FILETOSTR(t_xml), 11)
oXA.XMLSchemaLocation="replist.xsd"
oXA.LoadXML(lcXML, .F.)
For each oXT in oXA.Tables
oXt.ToCursor()
nname=ALIAS()
IF nname == 'REP' then
COPY TO tpath+nname+[.dbf]
endif
next

схему сделал из Visual Studio 8
получаю дбфку, но там везде в поле COMMENT стоит значение MEMO. В схеме тип данных у этого COMMENT стоит STRING
<xs:attribute name="COMMENT" type="xs:string" use="required" />
как сделать что б были значения нужные в этом поле ? (там будут числа через запятую... например: 54,6)
...
Рейтинг: 0 / 0
25.10.2012, 06:46
    #38012375
Keeper2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как использовать XMLTOCURSOR в этом случае ?
Тьфу.. отбой.. это я поля типа мемо получил =))) Пардон.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как использовать XMLTOCURSOR в этом случае ? / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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