Страница 1 из 1
Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 15 янв 2009, 13:14
Александр
вот небольшой код, я использую в действии для вывода текущего гороскопа для наших сотрудниц при старте системы
Код: Выделить всё
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 иначе Лоция не успевает прочесть данные
Реакция пользователей не заставит себя ждать - уж поверьте!!!!!!!!!!!!
Re: Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 15 янв 2009, 15:59
Александр
нет
все же лучше асинхронный с проверкой готовности
если у кого есть на JScript с обработкой всех исключений-поделитесь
Re: Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 20 янв 2009, 18:59
Alexey
Саша, JScript у меня конечно.. нет но за разработку просто +100. Читал настроение поднялось до нельзя... это же надо такое придумать.... все же Лоции надо задуматься о привлечении тебя в роли внештатного креатившика....
С окладом разумеется...
Re: Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 20 янв 2009, 20:10
Александр
пока есть музы
- есть и креатив
, так что кроме оклада - муза обязательна!!!
иначе нет, не соглашусь
ps
с появлением скриптового окошка мы все с большим интересом выглядываем наружу из оболочки, а там чего только нет и xml и все что хочешь
в общем жизнь продолжается!
Re: Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 21 янв 2009, 20:20
Старик Крупский
Я! Первый раз! НаписАл! Скрипт! И! Он! Заработал!
Вернее не написал, а скопировал и вставил скрипт Александра. Саша! Ты для меня гений!
Для полного счастья осталось только пролоббировать возможность вставки в атрибутивные формы окошка с потоковым видео
Re: Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 21 янв 2009, 22:02
Александр
Он! Заработал!
это как ни крути ВЫСШИЙ бал
Спасиб
но не забываем конечно что в нем нет обработки исключений и режим синхронный
в принципе это в данном случае и не так важно наверное
кстати поговорим о классификаторах
только что переделал свой, тот который на объектах в xml
тот разросся и грузился 8 сек, а этот 2 да еще и с наворотами
круто короче
Re: Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 21 янв 2009, 22:13
Старик Крупский
Веришь, нет? Я ничего из сказанного тобой не понял!!! Кроме высшего балла
Но я и не претендую на то, чтобы понять. Это не мое. Но все-таки скажи мне, откуда берется xml с классификатором?
Re: Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 22 янв 2009, 07:16
Александр
давай чуть позже - я сейчас как раз ставлю их в рабочую систему, после расскажу подробно
Re: Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 22 янв 2009, 10:20
Александр
Re: Скрипт: v4.30 090113 RSS рассылки в Лоции ;-) забираем
Добавлено: 22 янв 2009, 14:22
Александр
кстати объект
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 ("Документ не загружен")
...
хотя с другой стороны первым объектом мы загрузили данные и отключились от страницы, а с одним подключены к ней на весь цикл
жаль не разбираюсь ни в скриптах ни в этой куче объектов нифига