Announcement

Collapse
No announcement yet.

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