Не судите строго!!! =))
Sub Click(Source As Button)
Set session = New NotesSession
Set ws = New notesuiworkspace
Set db = session.CurrentDatabase
Set doc=ws.CurrentDocument.Document
Set xml = CreateObject("Microsoft.XMLHTTP")
For i = 1 To ...
Select Case i
Case 1 ' Погода
url$ = "http://informer.gismeteo.ru/rss/27612.xml"
Case 2
................................................................................
..........................
End Select
w_1$ = "w" + Cstr(i) + "_1"
w_2$ = "w" + Cstr(i) + "_2"
w_3$ = "w" + Cstr(i) + "_3"
w_4$ = "w" + Cstr(i) + "_4"
Call GetWeather(url$, w_1$, w_2$, w_3$, w_4$)
Next
Call doc.Save(True, True)
End Sub
Sub GetWeather(inUrl As String, w_1 As String, w_2 As String, w_3 As String, w_4 As String)
Call xml.open("GET", inUrl, False)
Call xml.send()
w1$ = xml.responseText
w1$ = Strright(w1$, "<item>")
w2$ = w1$
w1$ = Strleft(w1$, |</item>|)
w1_t$ = Strright(w1$, "<title>")
w1_t$ = Strleft(w1_t$, |</title>|)
w1_d$ = Strright(w1$, "<description>")
w1_d$ = Strleft(w1_d$, |</description>|)
w2$ = Strright(w2$, "<item>")
w2$ = Strleft(w2$, |</item>|)
w2_t$ = Strright(w2$, "<title>")
w2_t$ = Strleft(w2_t$, |</title>|)
w2_d$ = Strright(w2$, "<description>")
w2_d$ = Strleft(w2_d$, |</description>|)
Call doc.ReplaceItemValue(w_1, Cstr(w1_t$) + "; " )
Call doc.ReplaceItemValue(w_2, Cstr(w1_d$) + "; ")
Call doc.ReplaceItemValue(w_3, Cstr(w2_t$) + "; " )
Call doc.ReplaceItemValue(w_4, Cstr(w2_d$) + "; ")
End Sub
это код кнопки на форме, база на сервере. с админами лень разбираться, лучше что нибудь придумать =)
пробовала реализовать следующим образом - шедульным агентом в базе на сервере скачивать данные и сохранять в отдельный документ, при открытии базы брать данные уже из этого дока, но у меня не получилось, как только не пробовала.
видимо потому что при создании нового дока, при открытии базы, у notesUIdocument "отсутствует" свойство Document (хотела взять текущий документ), наткнулась на форуме. или как то это можно сделать?