home
products
contribute
download
documentation
forum
Home
Forums
New posts
Search forums
What's new
New posts
All posts
Latest activity
Members
Registered members
Current visitors
Donate
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Search titles only
By:
Menu
Log in
Register
Navigation
Install the app
Install
More options
Contact us
Close Menu
Forums
Language specific support
MediaPortal Forums Francais
MediaPortal 1 - Développement
Les plugins
[en cours]recuperer les journaux télévisé
Contact us
RSS
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
<blockquote data-quote="FOUINE95" data-source="post: 429291"><p><script language="VBScript"></p><p></p><p>//********************************************************************</p><p></p><p>nbjt = 12 // mettre le nombre de JT désirés</p><p></p><p>HtmlFilePath = "France2.pls" // Fichier de destination</p><p></p><p>//********************************************************************</p><p></p><p>Dim MyDate, MyDateRes, Jour, Mois, YYYYMMDD, Heure</p><p>Heure = Hour(Now)</p><p>j = 1</p><p>Flag = 0</p><p>Set FSO_my = CreateObject("Scripting.FileSystemObject")</p><p>Set MyFile = FSO_my.CreateTextFile(HtmlFilePath)</p><p>MyDate = Date</p><p>MyFile.WriteLine("[Playlist]")</p><p></p><p></p><p>//Début de la boucle</p><p></p><p>Do</p><p></p><p>//génération de la date au format YYYYMMDD</p><p></p><p>If Day(MyDate) < 10 Then</p><p> Jour = "0"&Day(MyDate)</p><p> Else Jour = Day(MyDate)</p><p>End If</p><p>If Month(MyDate) < 10 Then</p><p> Mois = "0"&Month(MyDate)</p><p> Else Mois = Month(MyDate)</p><p>End If</p><p>YYYYMMDD = Year(MyDate)&Mois&Jour</p><p></p><p>//Création du fichier PLS + URLs</p><p></p><p>//JT de 8H</p><p>If Heure > 8 OR Flag > 0 Then</p><p> MyFile.WriteLine("numberofentries="&j&"")</p><p> 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")</p><p> MyFile.WriteLine("Title"&j&"=France 2 (8h) du : "&MyDate)</p><p> MyFile.WriteLine("Length"&j&"=-1")</p><p> MyFile.WriteLine("Version=2")</p><p> j = j + 1</p><p> If j > nbjt Then Exit Do</p><p>End If</p><p></p><p>//JT de 13H</p><p>If Heure > 13 OR Flag > 0 Then</p><p> MyFile.WriteLine("numberofentries="&j&"")</p><p> 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")</p><p> MyFile.WriteLine("Title"&j&"=France 2 (13h) du : "&MyDate)</p><p> MyFile.WriteLine("Length"&j&"=-1")</p><p> MyFile.WriteLine("Version=2")</p><p> j = j + 1</p><p> If j > nbjt Then Exit Do</p><p>End If</p><p></p><p>//JT de 20H</p><p>If Heure > 20 OR Flag > 0 Then</p><p> MyFile.WriteLine("numberofentries="&j&"")</p><p> 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")</p><p> MyFile.WriteLine("Title"&j&"=France 2 (20h) du : "&MyDate)</p><p> MyFile.WriteLine("Length"&j&"=-1")</p><p> MyFile.WriteLine("Version=2")</p><p> j = j + 1</p><p> If j > nbjt Then Exit Do</p><p>End If</p><p></p><p>MyDate = MyDate - 1</p><p>Flag = 1</p><p>Loop</p><p></p><p>MyFile.Close</p><p></p><p></script></p></blockquote><p></p>
[QUOTE="FOUINE95, post: 429291"] <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> [/QUOTE]
Insert quotes…
Verification
Post reply
Forums
Language specific support
MediaPortal Forums Francais
MediaPortal 1 - Développement
Les plugins
[en cours]recuperer les journaux télévisé
Contact us
RSS
Top
Bottom
