powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / XML, XSL, XPath, XQuery [игнор отключен] [закрыт для гостей] / Проблема с загрузкой XML в Access
7 сообщений из 7, страница 1 из 1
Проблема с загрузкой XML в Access
    #36565936
major28
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
RSS загружаю в память этой ф-кцией.
Функция LoadRSS (ID_RSS As Integer) As String
'RSS загружаем в память
Dim objHTTP в качестве новой MSXML2.XMLHTTP30
Dim ул As String, журчание, I, K
Dim FileNumber
журчание = RST! URL
Call objHTTP.Open ("GET", журчание, False)
objHTTP.send 1
LoadRSS = objHTTP.responseText
Ул = objHTTP.responseText
Debug.Print ул
LoadRSS ул =
End Function

но проблема в том что некоторые ссылки грузит в таком формате
может кто подскажет какие сие получается и как это правится?

ссылка на http://www.retailer.ru/rss.php5?tag_27=1

<item>
<guid>http://www.retailer.ru/item/id/17227/</guid>
<link>http://www.retailer.ru/item/id/17227/</link>
<title>??? ??????? ? ????????? (25 ?? 14:24)</title>
<author>Retailer.Ru</author>
<description>??? ?????????? ?? ????????????? ???????????????????? ????????????</description>
</item>
<item>
<guid>http://www.retailer.ru/item/id/17221/</guid>
<link>http://www.retailer.ru/item/id/17221/</link>
<title>????? ?????? (25 ?? 13:51)</title>
<author>Retailer.Ru</author>
<description>? ?? ??????? ????? ????? ???description>
</item>
<item>
<guid>http://www.retailer.ru/item/id/17218/</guid>
<link>http://www.retailer.ru/item/id/17218/</link>
<title>???????5 ?? 13:08)</title>
<author>Retailer.Ru</author>
<description>???????????????Retailer.RU ??? Retailer magazine ?? ????? ?? ?????? ???????</description>
...
Рейтинг: 0 / 0
Проблема с загрузкой XML в Access
    #36566457
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
responseText - не стоит юзать!
используйте stream c явным указанием кодировки
...
Рейтинг: 0 / 0
Проблема с загрузкой XML в Access
    #36566552
major28
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
есть пример его использования ?
заменил responseText на responseStream
ругается ...
...
Рейтинг: 0 / 0
Проблема с загрузкой XML в Access
    #36566583
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот тут с картинками

Код: plaintext
1.
2.
3.
Dim doc As MSXML2.DOMDocument

    Set doc = New MSXML2.DOMDocument
    doc.Load objHTTP.responseXML
...
Рейтинг: 0 / 0
Проблема с загрузкой XML в Access
    #36567407
major28
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
попробовал так как описано по ссылке.
получилось не то что требуется .
принцип работы моего модуля:
1.Загружаю XML, структуру.
2.Дальше по дереву вычленяю то что мне нужно и вывожу на форму, с дальнейшей записью этого добра в таблицы
если использовать :
Dim objHTTP As New MSXML2.XMLHTTP60
Call objHTTP.Open("GET", purl, False)
objHTTP.send 1

Dim Docs As MSXML2.DOMDocument
Set Docs = New MSXML2.DOMDocument
Docs.Load objHTTP.responseXML
Debug.Print Docs.Text
LoadRSS = Docs.Text
то в результате получаю текст , без структуры. ТОже самое делает и responseStream.

насчет кодировки посмотрел кодировку xml - везде win 1251 , но одни загружаются нормально, а другие нет.
...
Рейтинг: 0 / 0
Проблема с загрузкой XML в Access
    #36567828
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
почему вы упорно пытаетесь работать с xml-структурой в виде текста?

вместо:

Код: plaintext
Docs.Text

нужно:

Код: plaintext
Docs.xml
...
Рейтинг: 0 / 0
Проблема с загрузкой XML в Access
    #36568862
major28
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо! помогло
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / XML, XSL, XPath, XQuery [игнор отключен] [закрыт для гостей] / Проблема с загрузкой XML в Access
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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