Na veel geklooi met xml grabbers kreeg ik dit maar niet voor elkaar.
Zo is het volgende script ontstaan.
In homeseer gebruik ik de nederlandstalige stem Claire, een spraakopdracht moet nog wel in het engels.
Een spraakopdracht voor bijvoorbeeld rtl 4 kijken ziet er als volgt uit:
Homeautomation voice command
Ja zegt u het maar...
Television channel 4
U Kijkt naar RTL 4, nu bezig RTL Weer straks om 8 uur begint goede tijden slechte tijden.
Als je m'n script ook eens wilt testen sla dan volgende script op als tvgids.vb
- Code: Select all
Sub main(ByVal Mode As String)
' Nu & Straks op tv
' (c) Keessie 2011
Dim page
Dim tekst
Dim nubezig
Dim straks
Dim begintijd
Dim zender
Dim uur
Dim min
zender = hs.stringitem(mode,1,"|")
' Lees Tvgids in van nuoptv.nl
page = hs.GetURL("nuoptv.nl","",FALSE,80)
if len(page) = 0 then hs.writelog ("TVGIDS","Site niet gevonden")
tekst = hs.stringitem(page,2,zender)
tekst = hs.stringitem(tekst,2,"tit wit")
tekst = mid(tekst,19,30)
nubezig = hs.stringitem(tekst,1,"<")
tekst = hs.stringitem(page,3,zender)
tekst = hs.stringitem(tekst,2,"tit wit")
tekst = mid(tekst,19,30)
straks = hs.stringitem(tekst,1,"<")
tekst = hs.stringitem(page,3,zender)
tekst = hs.stringitem(tekst,2,"beg grs")
begintijd = mid(tekst,19,5)
' Maak begin tijd geschikt om uit te spreken.
uur = cint(left(begintijd,2))
min = cint(mid(begintijd,4,2))
if min < 15 and uur < 13 then begintijd = cstr(min) + " over " + cstr(uur)
if min < 15 and uur > 12 then begintijd = cstr(min) + " over " + cstr(uur-12)
if min = 0 and uur < 13 then begintijd = cstr(uur) + " uur"
if min = 0 and uur > 12 then begintijd = cstr(uur-12) + " uur"
if min = 15 and uur < 13 then begintijd = "kwart over " + cstr(uur)
if min = 15 and uur > 12 then begintijd = "kwart over " + cstr(uur-12)
if min > 15 and uur < 12 then begintijd = cstr(30-min) + " voor half " + cstr(uur+1)
if min > 15 and uur > 11 then begintijd = cstr(30-min) + " voor half " + cstr(uur-11)
if min = 30 and uur < 12 then begintijd = "half " + cstr(uur+1)
if min = 30 and uur > 11 then begintijd = "half " + cstr(uur-11)
if min > 30 and min < 45 and uur < 12 then begintijd = cstr(min-30) + " over half " + cstr(uur+1)
if min > 30 and min < 45 and uur > 11 then begintijd = cstr(min-30) + " over half " + cstr(uur-11)
if min = 45 and uur < 13 then begintijd = "kwart voor " + cstr(uur+1)
if min = 45 and uur > 12 then begintijd = "kwart voor " + cstr(uur-11)
if min > 45 and uur < 13 then begintijd = cstr(min-45) + " voor " + cstr(uur+1)
if min > 45 and uur > 12 then begintijd = cstr(min-45) + " voor " + cstr(uur-11)
if zender="een.be" then zender="Belgie 1"
hs.speak ("U kijkt naar " + zender)
hs.speak ("Nu bezig " + nubezig + ", straks om " + begintijd + " begint " + straks)
hs.Setdevicestring ("z5","Nu bezig "+nubezig,true)
end sub
Je kunt het script met hs.runex("TVGids.vb","main","RTL4") dan de programma's van rtl4 voor laten lezen.
Het script plaatst het huidige programma ook devicestring (z5) dit gebruik ik óm weer te geven in het display van Jonn00 control interface."
Inplaats van rtl 4 kun je ook het programma van de volgende zenders ophalen:
"Nederland 1"
"Nederland 2"
"Nederland 3"
"RTL4"
"RTL5
"SBS6"
"Veronica"
"RTL8"
"Net5"
"een.be"
"Ketnet/Canvas"
"Discovery"
"NGC"
