Announcement

Collapse

Contacting HomeSeer This Week

HomeSeer is open and operational this week. All orders are being processed and shipped as usual. However, some staff are working from home. If you need to contact HomeSeer for support or customer service, please use our Email or Chat options. https://homeseer.com/contact-us/
See more
See less

Word of the Day - rss'd from dictionary.com

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

  • Word of the Day - rss'd from dictionary.com

    Credits go to Rupp & Jon00. It's a combination of both their scripts!


    Sub Main
    Set objXMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
    objXMLDoc.async = false
    objXMLDoc.load("http://dictionary.reference.com/wordoftheday/wotd.rss")
    set sData = objXMLDoc.selectSingleNode("rss/channel/item/description")
    splData = split(sData.text,":")
    hs.speak ("The word of the day is, " & splData(0) &". " & splData(0) & " is spelled, " )

    For I = 1 to Len(splData(0))
    hs.speak (UCase(Mid(splData(0),I,1)))
    Next
    hs.speak (", The definition of, " & splData(0) & " ,is, " & splData(1) )

    End Sub
    Last edited by ant7797; January 30th, 2007, 07:49 PM. Reason: credits to rupp & jon00
Working...
X