Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Как открыть XML файл лежащий на сервере
|
|||
|---|---|---|---|
|
#18+
Доброго Вам времени суток Уважаемые господа при наличии времени прошу Вас помочь вот так я получаю данные XML файла ------------------------------------------ Set myXML = New MSXML2.DOMDocument myXML.Load "C:\6-az-1.xml" Set selection = myXML.selectNodes("/Blocktest/test") Text1.Text = myXML.documentElement.childNodes().Item(0).Text ----------------------------------------------------------------- подскажите пожалуйста как изменить вот эту строку - myXML.Load "C:\6-az-1.xml" чтобы обратиться к XML файлу лежащему на сервере грубо говоря необходимо вот это - myXML.Load "http://www.ttt.ru/temp.xml" С Уважением Намик ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.09.2009, 18:15 |
|
||
|
Как открыть XML файл лежащий на сервере
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.09.2009, 11:21 |
|
||
|
Как открыть XML файл лежащий на сервере
|
|||
|---|---|---|---|
|
#18+
Благодарю Вас за ответ я так и указывал - но не получалось а вот об этом я не знал MSXML.XMLHTTP. еще раз благодарю С Уважением Намик ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.09.2009, 11:54 |
|
||
|
Как открыть XML файл лежащий на сервере
|
|||
|---|---|---|---|
|
#18+
я посмотрел описание MSXML2.xmlhttp в MSDN сделал вот так Dim xmlhttpMY As New MSXML2.xmlhttp myXML.Load xmlhttpMY.open("", "http://www.test1.ru/6-az-01.xml", False) выдает ошибку Expected function or variable подскажите пожалуйста что я делаю не так С Уважением Намик ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.09.2009, 12:50 |
|
||
|
Как открыть XML файл лежащий на сервере
|
|||
|---|---|---|---|
|
#18+
нашел Private Sub Command7_Click() Dim xmlDoc Set xmlDoc = CreateObject("Msxml2.DOMDocument") xmlDoc.async = False xmlDoc.Load ("http://www.test1.ru/6-az-01.xml") Set selection = xmlDoc.selectNodes("/Blocktest/test") kolvotestov = xmlDoc.selectNodes("/Blocktest/test").length aser = selection.Item(1).selectSingleNode("//test/headertest").Text MsgBox aser Text1.Text = xmlDoc.documentElement.childNodes().Item(1).Text End Sub вопрос закрыт С Уважением Намик ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.09.2009, 19:19 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=148&tid=2160571]: |
0ms |
get settings: |
11ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
29ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
| others: | 12ms |
| total: | 130ms |

| 0 / 0 |
