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
Note: You will need to put -
ScriptingReferences=System.XML;System.XML.dll
in your Settings.ini file if it isn't there already.
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("http://www.gnpcb.org/esv/share/rss2.0/daily/") 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
ScriptingReferences=System.XML;System.XML.dll
in your Settings.ini file if it isn't there already.
Nothing special... but thought i might save someone some legwork if i shared.
Andrew
Comment