I took the code from the "word for the day" script we discussed yesterday and found a site that does Bible Verse of the day...
It's from an ESV (english standard version)
VerseOfTheDay.vb
Nothing special... but thought i might save someone some legwork if i shared.
Andrew
It's from an ESV (english standard version)
VerseOfTheDay.vb
Code:
Imports System.IO Imports System.Xml Sub Main(parm as object) Dim m_xmld As XmlDocument Dim m_node As XmlNode Dim CHverse as xmlNode dim tverse as xmlNode m_xmld = New XmlDocument m_xmld.Load("[URL]http://www.gnpcb.org/esv/share/rss2.0/daily/[/URL]") CHverse = m_xmld.SelectSingleNode("rss/channel/item/title") tverse = m_xmld.SelectSingleNode("rss/channel/item/description") hs.speak ("The Verse for the day is from " & CHverse.InnerText &". The Verse is. . " & tverse.InnerText) End Sub
Andrew
Comment