|
|
The UKHA-ARCHIVE IS CEASING OPERATIONS 31 DEC 2024
|
|
Latest message you have seen: RE: Wireless CBus
|
[Date Prev][Date
Next][Thread Prev][Thread Next][Date
Index][Thread Index]
RE: homeseer news script ?
- To: <ukha_d@xxxxxxx>
- Subject: RE: homeseer news script ?
- From: "Amar Nagi" <amar@xxxxxxx>
- Date: Wed, 17 Jul 2002 01:03:06 +0100
- Mailing-list: list ukha_d@xxxxxxx; contact
ukha_d-owner@xxxxxxx
- Reply-to: ukha_d@xxxxxxx
Wrote a small and compact script to speak the daily news headlines
>from
' Very Quick and simple Script to read off the news
' headlines from Yahoo.
' By Amar Nagi (17/07/2002)
'
' Please feel Free to Modify
'
Sub Main
Dim sRawWeb, iPos1,iPos2, sPara, icnt
system.speak "Here are the Main Headlines;"
' Get the Webpage
sRawWeb =
hs.GetURL("www.yahoo.com","",1,80)
'Find the positions in Page
iPos1 = InStr(1,sRawWeb,"In The News")
iPos2= InStr(1,sRawWeb,"News - ")
' Kill some ugly characters and replace with period
sPara =
Replace(Mid(sRawWeb,iPos1,iPos2-iPos1),"•;",".")
'Split the String By Period into an array
SNews=Split(sPara,".")
' Walk through the array and speak the headlines
For icnt=0 To UBound(SNews)
system.speak RTrim(LTrim(SNews(icnt)))
Next
End Sub
-----Original Message-----
From: Amar Nagi
Sent: Tue 16/07/2002 22:47
To: ukha_d@xxxxxxx
Cc:
Subject: [ukha_d] homeseer news script ?
Anyone have a news script for homeseer or a
morning greeting (wakeup) script
Home |
Main Index |
Thread Index
|
|