Im Mini-EPG modifizierte Sendungsbeschreibungen anzeigen

[leon]

Hi,

 

mit folgendem Eintrag im channelchange.vbs werden die Sendungsbeschreibungen etwas abgeändert im MiniEPG angezeigt.

 

 Sub Main(aID)

 Dim x(1,2) , i , j

 x(0,0) = PropGetValue( "#TV.Now.Event" )
 x(0,1) = PropGetValue( "#TV.Now.Description" )
 x(1,0) = PropGetValue( "#TV.Next.Event" )
 x(1,1) = PropGetValue( "#TV.Next.Description" )

 For i = 0 to 1

   For j = 0 to 1
     x(i,j) = Replace( Replace( x(i,j) , Chr( 10 ) , " " ) , Chr( 13 ) , "" ) ' ..... Zeilenumbrüche durch Leerzeichen ersetzen
     x(i,j) = Left( x(i,j) , Instr( x(i,j) & "[" , "[" ) - 1 )                ' ..... [ger] usw. am Ende entfernen
     x(i,j) = Trim( x(i,j) )                                                  ' ..... Leerzeichen am Anfang und Ende entfernen

   Next

   x(i,2) = x(i,0) & x(i,1)     ' ..... Veranstaltungstext und Beschreibungstext zusammenführen, was nachfolgend eventuell noch geändert wird

   If x(i,0) > "" And x(i,1) > "" Then     ' ..... Wenn jeweils Veranstaltung und Beschreibung einen Text enthalten, dann

     If Instr( x(i,1) , x(i,0) ) > 0 Then      ' ..... wenn Veranstaltungstext auch im Beschreibungstext enthalten ist, dann
       x(i,2) = x(i,1)                         ' ..... nur Beschreibungstext verwenden.

     Else                                      ' ..... ansonsten wenn Veranstaltungstext in Beschreibungstext doch nicht enthalten ist, dann
       x(i,2) = x(i,0) & " … " & x(i,1)        ' ..... Veranstaltungstext und Trennzeichen und Beschreibungstext zusammenführen.

     End If

   End If

 Next

 PropSetValue "#TV.Now.Description" , x(0,2)
 PropSetValue "#TV.Next.Description" , x(1,2)

End Sub

Leider hält die Änderung nur ca. 10 Sekunden an, dann werden wieder die Original-Beschreibungen angezeigt.

 

Weiß eventuell wer eine Möglichkeit, wo ich diese Prozedur sonst einbauen, oder wie ich das sonst machen könnte, damit immer die modifizierten Beschreibungen im Mini-EPG angezeigt werden?

 

Gibt es vielleicht die Möglichkeit, diese Umwandlungsfunktion irgendwie im OSD-Skin aufzurufen bzw. einzubauen?

 

Besten Dank im voraus.

 

Gruß

Leon

[erwin]

Verwende bei den PropSetValue eigene Properties.

 

Etwa

 

PropSetValue "#myTV.Now.Description" , x(0,2)
PropSetValue "#myTV.Next.Description" , x(1,2)

 

und modifiziere ein MiniEpg deiner Wahl entsprechend.

 

 

Gibt es vielleicht die Möglichkeit, diese Umwandlungsfunktion irgendwie im OSD-Skin aufzurufen bzw. einzubauen?

Meines Wissens nnicht. Ausdrücke und Funktionen von Datamanager-/Systemvariablen im OSD, das hätte was. Der Aufwand allerdings dürfte nicht unerheblich sein wenn man nicht auf frei verwendbare Scriptengines zurückgreifen kann (Lizenzprobleme). Vielleicht ist ja LUA für die Entwickler eine Empfehlung. Steht unter MIT-Lizenz und sollte somit im Zusammmenwirken mit DVBV keine Lizenzprobleme bringen.

 

erwin

[mague]

Was fehlt ist ein Programm das einen Automation Server anbietet. Es ist leicht die COM des DVBV anzusprechen, aber ein plugin muesste auch umgekehrt eine andere Applikation ansprechen koennen. Dann kann man alle Events des DVBV uebermitteln, was damit machen und per COM zurueckschicken. Vielleicht will ja nuts sowas in seinen Eventghost plugin einbauen...

[leon]

Hi,

 

danke für die Tpps und Informationen.

 

Verwende bei den PropSetValue eigene Properties

Ich habe

- EPG-Info beim Senderwechsel einblenden auf Dauer 60 Sekunden,

- Menütimeout auf 0 (=deaktiviert)

gestellt.

 

Da könnte es auch mal vorkommen, dass sich die Sendungstitel während der Anzeige ändern (... -> Next, sowie Next -> Now).

Der Beschreibungstext in den eigenen Properties würde der alte bleiben und somit nicht mehr zu den Sendungstiteln passen.

 

Ich werde es aber probieren.

 

Danke nochmals für die Antworten.

 

Gruß

Leon

 

PS: Anbei zwei MiniEPG-Beispiele (Vergleich "Original" zu "Modifiziert")