Samurize Scripts

Andy C · 13 Apr 2003 at 14:16

I'm having a go at modifying the UKTV.vbs file now actually... tho I can't promise anything. If anyone else wants a go, you need to get this script to work with the following URL instead of the radiotimes...

http://www.teletext.co.uk/tvplus/nownext.asp?High=3

Good luck!

Master MX · 13 Apr 2003 at 14:17

MTA99 can u post the wallpaper you use. I like it

Rich_L · 13 Apr 2003 at 14:25

The UKTV.vbs files etc are actually incredibly easy to modify to your own needs,

All you need is to find a page that has the Sky listings in a table, and simply change a few setting, so the vbs file parses the info into a text file.

Samurize simply reads from the text file so it shouldnt be that hard to change.

Master MX · 13 Apr 2003 at 14:33

Could u please MTA99 post the wallpaper you use. I like it

Andy C · 13 Apr 2003 at 14:44

Originally posted by Rich_L
The UKTV.vbs files etc are actually incredibly easy to modify to your own needs,

All you need is to find a page that has the Sky listings in a table, and simply change a few setting, so the vbs file parses the info into a text file.

Samurize simply reads from the text file so it shouldnt be that hard to change.

Well, I modified the coolmon script so it output a file the same as used by the UKTV Samurize script. The new script is here.

The output looks like this:

Code:

ITV2
14:30 Chart Choice
14:40 Emmerdale
BBC Three
03:50 Close
19:00 Liquid News
Sky 1
14:00 Star Trek: The Next Generation
15:00 Star Trek: The Next Generation

The script just needs made into a function so that Samurize can be set to refresh it every 5, 10, whatever minutes. I'm not sure how to do that as just adding "Function Name" "[script]" "End Function" didn't work.

If anyone can do this, please do!

Andy.

MTA99 · 13 Apr 2003 at 14:50

Hi,

Could you run the script as a schuled task (in windows) then use the textfile function to get the corrcet lines from the file?

Cheers

Andy C · 13 Apr 2003 at 14:54

Originally posted by MTA99
Could you run the script as a schuled task (in windows) then use the textfile function to get the corrcet lines from the file?

Yeah, it could be done that way now you mention it. It's a nice tempory measure, but getting the code into a function would be nicer so you can just set "Run every X mins" in Samurize.

Rich_L · 13 Apr 2003 at 14:54

Hehe.

Thats exactly what I was doing as well

*edit*

Andy, so close...

Just add Function Name () to the start and End Function to the end.

Master MX · 13 Apr 2003 at 14:55

MTA99 could u send me ur wallpaper to [email protected]

Andy C · 13 Apr 2003 at 15:07

Originally posted by Rich_L
Andy, so close...

Just add Function Name () to the start and End Function to the end.

Tried that as well as various combinations...

Code:

Function GetLists ()
End Function

Function ()
End Function

Function GetLists ()
....
   For Each Match in Matches
      GetLists = Match.Submatches(0) etc.
      outFile.write GetLists
....
End Function

Samurize will see the fuction, but the script doesn't do anything :/

Rich_L · 13 Apr 2003 at 15:12

Hi,

Hmm thats odd, seems to be working here,

Though I changed your

Const Path = "..\UK_TV.txt"

to

Const Path = "UK_TV.txt"

The UK_TV.txt file is generated in the Samurize base directory, if I have the script in the scripts folder.

Code:

Function UKTV()

Const Separator = " " 
Const Path = "UK_TV.txt" 

set http = createobject("microsoft.xmlhttp") 
Http.open "GET","http://www.teletext.co.uk/tvplus/nownext.asp?High=3", false 
Http.send 
strng = Http.responsetext 
Dim regEx 
Set regEx = New RegExp 
regEx.Global = True 


regEx.Pattern = "<TD WIDTH=75><FONT SIZE=""-2""><A HREF="".*?"" style="".*?"">(.*?)</a>&nbsp;</FONT></TD>" & _ 
         "\s+<TD WIDTH=35><.*?>(.*?)&nbsp;</FONT></TD>" & _ 
         "\s+<TD WIDTH=150><.*?>(.*?)&nbsp;</FONT></TD>" & _ 
         "\s+<TD WIDTH=35><.*?>(.*?)&nbsp;</FONT></TD>" & _ 
         "\s+<TD WIDTH=155><.*?>(.*?)&nbsp;</FONT></TD>" & _ 
         "\s+</TR>" 


Set Matches = regEx.Execute(strng)


Set fs = CreateObject("Scripting.FileSystemObject") 
Set outFile = fs.CreateTextFile(Path, True) 


For Each Match in Matches
     outfile.write match.SubMatches(0) & VbNewLine & match.SubMatches(1) & Separator & match.SubMatches(2) & VbNewLine & match.SubMatches(3) & Separator & match.SubMatches(4) 
   outFile.WriteLine 

Next 

outFile.close 

End Function

Looks like that ^^^

Andy C · 13 Apr 2003 at 15:33

*cough* Ok, now I feel like a numpty. *ahem* Typo in script *cough*

Had 'dSet' instead of 'Set'... la de dah

Rich_L · 13 Apr 2003 at 15:45

hehe nice...

Never really occurred to me that all the Coolmon scripts are very easily interchangable, there seems to be a lot more support for coolmon scripts, so samurize has just got a whole lot more versatile for me

MTA99 · 13 Apr 2003 at 15:50

Hi,

Andy added you to my msn.

Cheers

Andy C · 13 Apr 2003 at 15:51

There's still a problem though. We need some way of only getting data for the channels we want as it appears Samurize cannot read files longer than 40 lines. So, using the file our new script generates, we can't display say E4 as you cant specify lines 52, 53 and 54.

I guess it's time to try and add bits from the original Samurize script where it looks for channel names. :rolleyes:

Master MX · 13 Apr 2003 at 15:54

MTA99 can u add me to MSN. [email protected]

Andy C · 13 Apr 2003 at 16:02

That was pretty simple, just change the script so that it reads like this:-

Code:

For Each Match in Matches

	If match.SubMatches(0) = "BBC 1" Then
		outfile.write match.SubMatches(0) & VbNewLine & match.SubMatches(1) & Separator & match.SubMatches(2) & VbNewLine & match.SubMatches(3) & Separator & match.SubMatches(4) 
   		outFile.WriteLine
   	End If
   	
	If match.SubMatches(0) = "ITV 1" Then
		outfile.write match.SubMatches(0) & VbNewLine & match.SubMatches(1) & Separator & match.SubMatches(2) & VbNewLine & match.SubMatches(3) & Separator & match.SubMatches(4) 
   		outFile.WriteLine
   	End If
   	
	If match.SubMatches(0) = "Sky 1" Then
		outfile.write match.SubMatches(0) & VbNewLine & match.SubMatches(1) & Separator & match.SubMatches(2) & VbNewLine & match.SubMatches(3) & Separator & match.SubMatches(4) 
   		outFile.WriteLine
   	End If
   	
	If match.SubMatches(0) = "E4" Then
		outfile.write match.SubMatches(0) & VbNewLine & match.SubMatches(1) & Separator & match.SubMatches(2) & VbNewLine & match.SubMatches(3) & Separator & match.SubMatches(4) 
   		outFile.WriteLine
   	End If

Next

... and so on for each channel you want.

Rich_L · 13 Apr 2003 at 16:21

Perfect

Nicely done - now theres no excuse not to get Samurize....

*edit*

Ok, MTA has just sent me the file, its here..

http://www-stud.robinson.cam.ac.uk/rl253/other/Samurize.rar

MTA99 · 13 Apr 2003 at 16:38

Hi,

Just remember peeps that i'm running 1280x1024 - you'll need to mod it to get it to fit anything smaller.

Either that or get a nice new TFT!!

Cheers

Andy C · 13 Apr 2003 at 16:48

I've put the new tv guide script together with instructions at:

http://costain.org/samurize/uktv+sky.zip

Hopefully not too confusing and I'm looking at making the channel selection simpler.