Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем

[Александр]

вот небольшой код, я использую в действии для вывода текущего гороскопа для наших сотрудниц при старте системы

Код: Выделить всё

Dim XML

Sub Goroskop()
 Dim xmlHTTP, Root, Find, Node, t
    find = LsVars.GetVarValue("tmp")

   'URL = "http://www.hyrax.ru/cgi-bin/bn_xml5.cgi"
   'URL = "http://www.hyrax.ru/cgi-bin/love_xml.cgi"
   'URL = "http://www.hyrax.ru/cgi-bin/mob_xml.cgi"
   'URL = "http://www.hyrax.ru/cgi-bin/biz_xml.cgi"
   URL = "http://www.hyrax.ru/cgi-bin/bn_xml2.cgi"
    
 Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")
      xmlHTTP.Open "GET", URL, false
      xmlHTTP.setRequestHeader "Content-Type", "text/xml; charset=windows-1251"
      xmlHTTP.Send

 Set XML = CreateObject("Msxml.DOMDocument")
     XML.Load xmlHTTP.responseXML
     Set Root = XML.documentElement

   For Each Node In Root.GetElementsByTagName("item")
         t = UCase(Node.childNodes(0).Text)
            If (InStr(t, UCase(Find)) > 0) And Not (InStr(t, "ОБЩАЯ") > 0) Then
               caption2 = t
               personal = (Node.childNodes(2).Text)
            End If
            If (InStr(t, "ОБЩАЯ") > 0) Then
               caption1 = t
               common = (Node.childNodes(2).Text)
            End If
   Next
  Set Root = Nothing
  Set XML = Nothing
   
   MsgBox caption1 & vbCr & common & vbCr & vbCr & caption2 & vbCr & personal, vbOKOnly, "Ваш персональный RSS гороскоп от LotsiaSoft при информационной поддержке Hyrax.ru"

End Sub

в tmp засовываем часть знака зодиака и наслаждаемся. Режим лучше синхронный xmlHTTP.Open "GET", URL, false иначе Лоция не успевает прочесть данные

Реакция пользователей не заставит себя ждать - уж поверьте!!!!!!!!!!!!

[Александр]

нет все же лучше асинхронный с проверкой готовности
если у кого есть на JScript с обработкой всех исключений-поделитесь

[Alexey]

Саша, JScript у меня конечно.. нет но за разработку просто +100. Читал настроение поднялось до нельзя... это же надо такое придумать.... все же Лоции надо задуматься о привлечении тебя в роли внештатного креатившика.... С окладом разумеется...

[Александр]

пока есть музы - есть и креатив , так что кроме оклада - муза обязательна!!! иначе нет, не соглашусь

ps
с появлением скриптового окошка мы все с большим интересом выглядываем наружу из оболочки, а там чего только нет и xml и все что хочешь в общем жизнь продолжается!

[Старик Крупский]

Я! Первый раз! НаписАл! Скрипт! И! Он! Заработал!
Вернее не написал, а скопировал и вставил скрипт Александра. Саша! Ты для меня гений!

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

[Александр]

Он! Заработал!

это как ни крути ВЫСШИЙ бал Спасиб
но не забываем конечно что в нем нет обработки исключений и режим синхронный в принципе это в данном случае и не так важно наверное

кстати поговорим о классификаторах
только что переделал свой, тот который на объектах в xml
тот разросся и грузился 8 сек, а этот 2 да еще и с наворотами
круто короче

[Старик Крупский]

Веришь, нет? Я ничего из сказанного тобой не понял!!! Кроме высшего балла
Но я и не претендую на то, чтобы понять. Это не мое. Но все-таки скажи мне, откуда берется xml с классификатором?

[Александр]

давай чуть позже - я сейчас как раз ставлю их в рабочую систему, после расскажу подробно

[Александр]

http://www.lplm.ru/phpBB2/viewtopic.php?f=18&t=538

[Александр]

кстати объект Microsoft.XMLHTTP можно не использовать
можно и одним Msxml.DOMDocument обойтись, оказалось он тоже грузит страницы
ничего не поделаешь столько объектов развелось - не знаешь что и взять то

Код: Выделить всё

 URL = "http://www.hyrax.ru/cgi-bin/bn_xml2.cgi"
 Set doc = CreateObject("Msxml.DOMDocument")
       doc.async = False
 If Not doc.Load(url) = True Then MsgBox ("Документ не загружен")

...
хотя с другой стороны первым объектом мы загрузили данные и отключились от страницы, а с одним подключены к ней на весь цикл
жаль не разбираюсь ни в скриптах ни в этой куче объектов нифига