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

Обсуждение технических вопросов работы с системами управления базами данных (СУБД), работе с языком SQL и скриптовыми языками.
Ответить
Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

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

Сообщение Александр »

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

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

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 иначе Лоция не успевает прочесть данные

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

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

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

Сообщение Александр »

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

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

Аватара пользователя
Alexey
Активный участник
Сообщения: 123
Зарегистрирован: 21 окт 2005, 15:49
Откуда: Белоруссия, Минск
Контактная информация:

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

Сообщение Alexey »

Саша, JScript у меня конечно.. нет но за разработку просто +100. Читал настроение поднялось до нельзя... это же надо такое придумать.... все же Лоции надо задуматься о привлечении тебя в роли внештатного креатившика.... :) С окладом разумеется...
- А деньги?
- Какие деньги? - сказал Остап, открывая дверь. - Вы, кажется, спросили про какие-то деньги?
----------------------------------
SEO стало интересным
Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

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

Сообщение Александр »

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

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

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

Аватара пользователя
Старик Крупский
Активный участник
Сообщения: 803
Зарегистрирован: 27 июл 2006, 22:17
Откуда: Москва

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

Сообщение Старик Крупский »

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

Для полного счастья осталось только пролоббировать возможность вставки в атрибутивные формы окошка с потоковым видео :-)
"Лучше меньше, да лучше" (C)
Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

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

Сообщение Александр »

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

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

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

Аватара пользователя
Старик Крупский
Активный участник
Сообщения: 803
Зарегистрирован: 27 июл 2006, 22:17
Откуда: Москва

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

Сообщение Старик Крупский »

Веришь, нет? Я ничего из сказанного тобой не понял!!! Кроме высшего балла :-)
Но я и не претендую на то, чтобы понять. Это не мое. Но все-таки скажи мне, откуда берется xml с классификатором?
"Лучше меньше, да лучше" (C)
Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

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

Сообщение Александр »

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

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

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

Сообщение Александр »


Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

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

Сообщение Александр »

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

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

 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 ("Документ не загружен")
...
хотя с другой стороны первым объектом мы загрузили данные и отключились от страницы, а с одним подключены к ней на весь цикл :wink:
жаль не разбираюсь ни в скриптах ни в этой куче объектов нифига

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

Ответить