Comment avoir accès aux variables des templates ?

Forum francophone pour tout ce qui concerne TViXiE (assistance, suggestion, remarque, etc)

Comment avoir accès aux variables des templates ?

Postby al12sel » Mon Nov 28, 2011 3:06 pm

Bonjour,
je voudrais me faire un script pour modifier les infos de tous mes films et je cherche comment avoir accès aux variables contenues dans les templates (%VIDEO_ASPECTRATIO% par exemple). J'ai essayé de modifier les fichiers MovieInfo.tvixie, mais les modifs que je fais à l'intérieur ne sont pas prises en compte. Ces données doivent être enregistrées ailleurs (données EXIF dans tvix.jpg ?).
Est-ce que quelqu'un sait comment accéder à ces valeurs ?
Merci.
al12sel
 
Posts: 5
Joined: Sat Feb 05, 2011 3:31 pm

Share On:

Re: Comment avoir accès aux variables des templates ?

Postby Idargos » Mon Nov 28, 2011 10:20 pm

C'est bien dans le fichier "MovieInfo.tvixie" que tu dois faire la modification mais TViXiE ne doit pas être lançé sinon la modification ne pourra pas se faire.

Après avoir modifié la variable que tu souhaites, tu lances TViXiE et tu ré-applique le template, ça devrait fonctionner ;)
Idargos
Contributor
 
Posts: 51
Joined: Tue Dec 29, 2009 4:44 pm

Re: Comment avoir accès aux variables des templates ?

Postby al12sel » Tue Nov 29, 2011 11:31 am

Oui, en fermant TViXiE avant de faire la modif, ça marche. Merci.
al12sel
 
Posts: 5
Joined: Sat Feb 05, 2011 3:31 pm

Re: Comment avoir accès aux variables des templates ?

Postby al12sel » Thu Dec 01, 2011 10:07 am

Si ça peut intéresser certains, je mets ci-dessous le code Visual Basic que j'ai utilisé pour mon script :


Public Class Form1

Public modifié As Boolean
Public doc As XElement

Private Sub OK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OK.Click
Dim _
fichierXML As String = "\MovieInfo.tvixie", _
i As Integer
Dim _
MediaInfo As XElement = _
<MediaInfo>
<Video>
<VideoStream>
<Duration/>
<AspectString>16:9</AspectString>
<Width>0</Width>
<Height>0</Height>
<Resolution>576</Resolution>
<Codec>MPEG-2</Codec>
<ScanType/>
</VideoStream>
</Video>
<Audio>
<AudioStream>
<Codec>AC3</Codec>
<Channels>6</Channels>
</AudioStream>
</Audio>
</MediaInfo>

For Each foundDirectory In My.Computer.FileSystem.GetDirectories(DialogueRépertoire)
ListBox1.Items.Add(foundDirectory)
Next

For i = 1 To ListBox1.Items.Count
modifié = False
ListBox1.SelectedIndex = i - 1
fichierXML = ListBox1.SelectedItem & "\MovieInfo.tvixie"
'Commentaire dépannage If MsgBox(fichierXML, vbOKCancel) = vbCancel Then Exit Sub
doc = XElement.Load(fichierXML)
If _
doc.Elements("MediaInfo").Value Is Nothing _
Then
doc.Add(MediaInfo)
End If
VérifElement(doc.Elements("MediaInfo").Elements("Video").Elements("VideoStream").First, "AspectString", "16:9")
VérifElement(doc.Elements("MediaInfo").Elements("Video").Elements("VideoStream").First, "Resolution", "576")
VérifElement(doc.Elements("MediaInfo").Elements("Video").Elements("VideoStream").First, "Codec", "MPEG-2")
VérifElement(doc.Elements("MediaInfo").Elements("Audio").Elements("AudioStream").First, "Codec", "AC3")
VérifElement(doc.Elements("MediaInfo").Elements("Audio").Elements("AudioStream").First, "Channels", "6")
VérifElement(doc.Elements("MediaInfo").First, "GeneralFormat", "DVD")
VérifElement(doc, "Certification", "Tous Publics")
VérifElement(doc, "SoundFormats", "AC351")
VérifElement(doc, "Resolutions", "576")
If modifié Then doc.Save(fichierXML)
Next i
MsgBox("Terminé !")
End Sub

Private Sub VérifElement(ByRef Objet As XElement, ByRef Nom As String, ByRef Valeur As String)
With Objet
If _
.Elements(Nom).Value Is Nothing _
Then
.Add(New XElement(Nom, Valeur))
modifié = True
ElseIf _
.Elements(Nom).Value = "" _
Then
.Elements(Nom).Value = Valeur
modifié = True
End If
End With
End Sub

Private Sub Fermer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Fermer.Click
Application.Exit()
End Sub

Private Function DialogueFichier() As String
With Me.OpenFileDialog1
.Filter = _
"Fichiers TViXiE (*.tvixie)|*.tvixie|" & _
"Tous les fichiers (*.*)|*.*"
.Title = "Donnez le chemin du Fichier MovieInfo.tvixie"
.FileName = "MovieInfo.tvixie"
.CheckFileExists = True
.ShowDialog()
DialogueFichier = .FileName
End With
End Function

Private Function DialogueRépertoire() As String
With Me.FolderBrowserDialog1
.Description = "Donnez le répertoire des films"
.ShowNewFolderButton = False
.ShowDialog()
DialogueRépertoire = .SelectedPath
End With
End Function
End Class
al12sel
 
Posts: 5
Joined: Sat Feb 05, 2011 3:31 pm


Return to Support en Français

Who is online

Users browsing this forum: No registered users and 1 guest

cron