Announcement

Collapse
No announcement yet.

Word of the Day Script

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    #16
    Update, they seemed to chage the RSS feed to a non https address.
    THe new script (tested to work this morning) is:

    Code:
    Imports System.IO
    'Imports System.Xml
    Sub Main(parm as object)
        Dim m_xmld As XmlDocument
        Dim m_node As XmlNode
        Dim splData As String()
        Dim Definition As String
    
    
        m_xmld = New XmlDocument
        m_xmld.Load("http://wordsmith.org/awad/rss1.xml")
    
        m_node = m_xmld.SelectSingleNode("rss/channel/item/description")
    
        splData = Split(m_node.InnerText, "*:")
    
        Definition = splData(0)
    
        m_node = m_xmld.SelectSingleNode("rss/channel/item/title")
    
        spldata(0) = m_node.InnerText
    
        hs.speak("The word of the day is,   " & splData(0) & ".    " & splData(0) & " is spelled,  <rate absspeed='-8'> <SPELL>"& splData(0) & "</rate> </SPELL><rate absspeed='0'></rate>", true)
    
    
    
        hs.Speak(",          The definition of   " & splData(0) & "  is,    " & Definition, True)
    
    End Sub
    As noted.. this worked as of today.. just posting it here for others reference.
    Regards,

    Andrew B.

    Comment

    Working...
    X