I normally can fix these small errors, but this one seems easy and yet I can't seem to correct it... The following is the statement in error, followed by the full script the statement is included in... This worked up until the latest version of HS2... If you can provide help, I really appreciate it!!!
Statement in error:
Text= "<ATT_IGNORE_CASE>" & Mid (page, beginning,length_paragraph) & "</ATT_IGNORE_CASE>"
Complete Script:
Sub main()
Dim d
Dim m
Dim dy
Dim page
Dim page_name
Dim length_paragraph
Dim month_name
d = Date
m = Month(d)
dy = Day(d)
month_name = MonthName(m)
If m < 10 Then
m = 0 & m
End If
hs.speak "This day in history!",True
page_name = m & dy & ".html"
page = hs.GetURL("http://features.yahoo.com/history/","/" & page_name,True,80)
beginning = InStr (page, month_name)
the_end= InStr (page, "Find out what else happened")
length_paragraph = the_end - beginning
Text= "<ATT_IGNORE_CASE>" & Mid (page, beginning,length_paragraph) & "</ATT_IGNORE_CASE>"
hs.speak Text,True
End Sub
Statement in error:
Text= "<ATT_IGNORE_CASE>" & Mid (page, beginning,length_paragraph) & "</ATT_IGNORE_CASE>"
Complete Script:
Sub main()
Dim d
Dim m
Dim dy
Dim page
Dim page_name
Dim length_paragraph
Dim month_name
d = Date
m = Month(d)
dy = Day(d)
month_name = MonthName(m)
If m < 10 Then
m = 0 & m
End If
hs.speak "This day in history!",True
page_name = m & dy & ".html"
page = hs.GetURL("http://features.yahoo.com/history/","/" & page_name,True,80)
beginning = InStr (page, month_name)
the_end= InStr (page, "Find out what else happened")
length_paragraph = the_end - beginning
Text= "<ATT_IGNORE_CASE>" & Mid (page, beginning,length_paragraph) & "</ATT_IGNORE_CASE>"
hs.speak Text,True
End Sub
Comment