FAQ] Как встроить в свою программу ГОРОСКОП!
размещено на форуме http://www.sql.ru/forum/actualthread.aspx?tid=277614
Бизик admin@busyman.ru ICQ# 131833549


Вот пример получения данных RSS-потока программным путем. Возможно
кому-нибудь пригодится. Очень поолезная штука. Данные берутся из
интернета.

выбор знака зодиака и вывод собственно гороскопа - это нужно переделать в том виде, как ВАМ удобно...

      Dim url As String = "http://www.hyrax.ru/cgi-bin/bn_xml.cgi"
      Dim prq As System.Net.HttpWebRequest = _
         CType(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
      Dim prp As System.Net.WebResponse = prq.GetResponse
      Dim r As New System.IO.StreamReader(prp.GetResponseStream, System.Text.Encoding.Default)
      Dim p As String = r.ReadToEnd
      r.Close()

      Dim doc As New Xml.XmlDocument
      doc.LoadXml(p)
      Dim n As Xml.XmlNode

      Dim z As comItem ' Выбор знака зодиака
      If z Is Nothing Then z = ChouseSap(Chousing.ТипыОбъектов.Элементы, , Zodiacs)
      If z Is Nothing Then Exit Sub

      Dim common As String = "", personal As String = ""

      For Each n In doc.DocumentElement.GetElementsByTagName("item")
         Dim t As String = n.ChildNodes(0).InnerText.ToUpper
         If (t Like "*" & z.Name.ToUpper & "*") And Not (t Like "*Общая*") Then
            personal = (n.ChildNodes(2).InnerText)
         End If
         If (t Like "*Общая*") Then
            common = (n.ChildNodes(2).InnerText)
         End If
      Next
      AlertI("ГОРОСКОП ДЛЯ ВСЕХ ЗНАКОВ ЗОДИАКА:" & vbNewLine & vbNewLine & _
         common & vbNewLine & vbNewLine & _
         "Для знака зодиака " & z.Name & ":" & vbNewLine & vbNewLine & " " & personal)