Lotsia PLM: Форум по семейству систем PLM/PDM/TDM/ERP/Workflow

Для специалистов по внедрению систем, профессиональных администраторов и пользователей.
Текущее время: 19 ноя 2018, 21:41

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 10 ] 
Автор Сообщение
СообщениеДобавлено: 15 янв 2009, 13:14 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 24 авг 2006, 08:06
Сообщения: 1646
Откуда: 55.745578,37.665825
Благодарил (а): 8 раз.
Поблагодарили: 3 раз.
вот небольшой код, я использую в действии для вывода текущего гороскопа для наших сотрудниц при старте системы :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)
Уровень администрирования - Альтернативный



Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 15 янв 2009, 15:59 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 24 авг 2006, 08:06
Сообщения: 1646
Откуда: 55.745578,37.665825
Благодарил (а): 8 раз.
Поблагодарили: 3 раз.
нет :wink: все же лучше асинхронный с проверкой готовности :wink: :wink:
если у кого есть на JScript с обработкой всех исключений-поделитесь :wink:

_________________

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



Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 20 янв 2009, 18:59 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 21 окт 2005, 15:49
Сообщения: 123
Откуда: Белоруссия, Минск
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Саша, JScript у меня конечно.. нет но за разработку просто +100. Читал настроение поднялось до нельзя... это же надо такое придумать.... все же Лоции надо задуматься о привлечении тебя в роли внештатного креатившика.... :) С окладом разумеется...

_________________
- А деньги?
- Какие деньги? - сказал Остап, открывая дверь. - Вы, кажется, спросили про какие-то деньги?
----------------------------------
SEO стало интересным


Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 20 янв 2009, 20:10 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 24 авг 2006, 08:06
Сообщения: 1646
Откуда: 55.745578,37.665825
Благодарил (а): 8 раз.
Поблагодарили: 3 раз.
пока есть музы :wink: - есть и креатив :wink: , так что кроме оклада - муза обязательна!!! :wink: иначе нет, не соглашусь :wink: :wink: :wink:

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

_________________

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



Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 21 янв 2009, 20:20 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 27 июл 2006, 22:17
Сообщения: 797
Откуда: Москва
Благодарил (а): 11 раз.
Поблагодарили: 12 раз.
Я! Первый раз! НаписАл! Скрипт! И! Он! Заработал! :D
Вернее не написал, а скопировал и вставил скрипт Александра. Саша! Ты для меня гений!

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

_________________
"Лучше меньше, да лучше" (C)


Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 21 янв 2009, 22:02 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 24 авг 2006, 08:06
Сообщения: 1646
Откуда: 55.745578,37.665825
Благодарил (а): 8 раз.
Поблагодарили: 3 раз.
Цитата:
Он! Заработал!
это как ни крути ВЫСШИЙ бал :wink: :wink: :wink: Спасиб :wink:
но не забываем конечно что в нем нет обработки исключений и режим синхронный :wink: в принципе это в данном случае и не так важно наверное :wink:

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

_________________

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



Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 21 янв 2009, 22:13 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 27 июл 2006, 22:17
Сообщения: 797
Откуда: Москва
Благодарил (а): 11 раз.
Поблагодарили: 12 раз.
Веришь, нет? Я ничего из сказанного тобой не понял!!! Кроме высшего балла :-)
Но я и не претендую на то, чтобы понять. Это не мое. Но все-таки скажи мне, откуда берется xml с классификатором?

_________________
"Лучше меньше, да лучше" (C)


Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 22 янв 2009, 07:16 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 24 авг 2006, 08:06
Сообщения: 1646
Откуда: 55.745578,37.665825
Благодарил (а): 8 раз.
Поблагодарили: 3 раз.
давай чуть позже - я сейчас как раз ставлю их в рабочую систему, после расскажу подробно :wink: :wink:

_________________

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



Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 22 янв 2009, 10:20 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 24 авг 2006, 08:06
Сообщения: 1646
Откуда: 55.745578,37.665825
Благодарил (а): 8 раз.
Поблагодарили: 3 раз.
http://www.lplm.ru/phpBB2/viewtopic.php?f=18&t=538

_________________

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



Вернуться к началу
 Профиль  
Ответить с цитатой  
СообщениеДобавлено: 22 янв 2009, 14:22 
Не в сети
Активный участник
Аватара пользователя

Зарегистрирован: 24 авг 2006, 08:06
Сообщения: 1646
Откуда: 55.745578,37.665825
Благодарил (а): 8 раз.
Поблагодарили: 3 раз.
кстати объект 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)
Уровень администрирования - Альтернативный



Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 10 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB