[en cours]recuperer les journaux télévisé (1 Viewer)

[FOUINE95]

la multiplication? a pouvoir parametrer un module radio pour la radio, et un autre detourné pour la TV WEB.

 

[Scubefr]

pour ca j'ai bien compris ( et je t'ai répondu) mais pour le reste ?

revenons au sujet!
c'est sympas les .pls!
et t'as trouver comment modifier la fonction date pour automatiser le grabber ?

 

[FOUINE95]

<script language="VBScript">

//********************************************************************

nbjt = 12 // mettre le nombre de JT désirés

HtmlFilePath = "France2.pls" // Fichier de destination

//********************************************************************

Dim MyDate, MyDateRes, Jour, Mois, YYYYMMDD, Heure
Heure = Hour(Now)
j = 1
Flag = 0
Set FSO_my = CreateObject("Scripting.FileSystemObject")
Set MyFile = FSO_my.CreateTextFile(HtmlFilePath)
MyDate = Date
MyFile.WriteLine("[Playlist]")


//Début de la boucle

Do

//génération de la date au format YYYYMMDD

If Day(MyDate) < 10 Then
Jour = "0"&Day(MyDate)
Else Jour = Day(MyDate)
End If
If Month(MyDate) < 10 Then
Mois = "0"&Month(MyDate)
Else Mois = Month(MyDate)
End If
YYYYMMDD = Year(MyDate)&Mois&Jour

//Création du fichier PLS + URLs

//JT de 8H
If Heure > 8 OR Flag > 0 Then
MyFile.WriteLine("numberofentries="&j&"")
MyFile.WriteLine("File"&j&"=mms://a988.v101995.c10199.e.vm.akamaistream.net/7/988/10199/3f97c7e6/ftvigrp.download.akamai.com/10199/horsgv/regions/siege/infos/f2/8h/HD_8h_"&YYYYMMDD&".wmv")
MyFile.WriteLine("Title"&j&"=France 2 (8h) du : "&MyDate)
MyFile.WriteLine("Length"&j&"=-1")
MyFile.WriteLine("Version=2")
j = j + 1
If j > nbjt Then Exit Do
End If

//JT de 13H
If Heure > 13 OR Flag > 0 Then
MyFile.WriteLine("numberofentries="&j&"")
MyFile.WriteLine("File"&j&"=mms://a988.v101995.c10199.e.vm.akamaistream.net/7/988/10199/3f97c7e6/ftvigrp.download.akamai.com/10199/horsgv/regions/siege/infos/f2/13h/HD_13h_"&YYYYMMDD&".wmv")
MyFile.WriteLine("Title"&j&"=France 2 (13h) du : "&MyDate)
MyFile.WriteLine("Length"&j&"=-1")
MyFile.WriteLine("Version=2")
j = j + 1
If j > nbjt Then Exit Do
End If

//JT de 20H
If Heure > 20 OR Flag > 0 Then
MyFile.WriteLine("numberofentries="&j&"")
MyFile.WriteLine("File"&j&"=mms://a988.v101995.c10199.e.vm.akamaistream.net/7/988/10199/3f97c7e6/ftvigrp.download.akamai.com/10199/horsgv/regions/siege/infos/f2/20h/HD_20h_"&YYYYMMDD&".wmv")
MyFile.WriteLine("Title"&j&"=France 2 (20h) du : "&MyDate)
MyFile.WriteLine("Length"&j&"=-1")
MyFile.WriteLine("Version=2")
j = j + 1
If j > nbjt Then Exit Do
End If

MyDate = MyDate - 1
Flag = 1
Loop

MyFile.Close

</script>

 

[Scubefr]

kool!

t'as essayé dans MP ?
ca marche ?

 

[FOUINE95]

Je ne me suis pas penché sur Mp, je sais juste que ce script, dans un ficher HTML, créé un France2.pls nickel chrome avec qulles options dans le script (nombre de JT désiré et emplacement du fichier).

@ toi de l'integré

moi j'ai mal au crane

 

[Scubefr]

je vais faire un petit tuto pour l'integrer

 

[maniac]

Petite question :

Faut-il en faire un plugin indépendant ou bien juste une playlist pour le module Mes Videos ?

 

[Scubefr]

ca fais une playlist pour le module Ma radio pour le moment il me semble que le streaming n'est pas lu dans mes videos ( non ?) je me trompe peut etre...

 

[Scubefr]

je vais essayer de clooner le module ma radio pour lfaire un module mes Tv internet ... c'est pas fais mais c'est une idée?

 

[FOUINE95]

Oui, je pense que pour ce genre de données (Jounal télévisé, Fiches Allociné), qui sont des media qui peuvent etre ammené a changer (URL, format de fichier), il faut un script qui lui seul pourra s'adapter aux changemants.

Apres, il faudrait clonner le module Radio et le renommer module TV WEB pour une plus grande simplicité d'utilisation.

Je vais deja essayer en passant par le module Radio, puis si ca me palit, je vais me pencher sur l'ajout des chaines TF1, M6, et d'autre si vous en avez....