VB.NET Script - Bible Verse of the day

[ArbWare]

(Edited on 1-25-21) to remove some unicode characters before speaking


-------------------------------------------------------------------------------
The site i was using changed the RSS to requiring a login... so i found another RSS feed.

The new feed location is : https://www.biblegateway.com/votd/get/

The script is as follows (Edited on 1-25-21)

Imports System.IO
Imports System.Text.RegularExpressions

Sub Main(parm as object)



Dim result As String = [String].Empty

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("https://www.biblegateway.com/votd/get/")

CHverse = m_xmld.SelectSingleNode("votd/reference")

tverse = m_xmld.SelectSingleNode("votd/content")


result = tverse.InnerText

result = Replace(result, "—", " . ") ' emdash
result = Replace(result, "“", " . ")  ' left quote
result = Replace(result, "”", " . ") ' right quote



hs.speak ("The Verse for the day is from " & CHverse.InnerText.replace(":"," verse ") & ". The Verse is . . " & result ,TRUE)
'hsp.waitms(250)

hs.speak (". . . . . Again; This verse was from " & CHverse.InnerText.replace(":"," verse "),true )


End Sub

[Bill Brower]

Thanks.
I've been using Jon00 RSS feed on these:
http://feeds.feedburner.com/hl-devos-dw?format=xml
http://feeds.feedburner.com/hl-int-tv-en

It has worked well but weeding out all of the stuff you don't want spoken has been a challenge.