[..] Extraire les chapîtres d'une playlist AVCHD

[Anthony]

Heu, j'ai pas beaucoup de cerveau, mais là quand même
T'as dû confondre total du mpls avec le total de chaque m2ts, ce que je cherche à faire
Avec ce mpls on voit mieux le hic

00000.rar

00000.rar

(183 Octets) Téléchargé 159 fois

Code:

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 From idea of:      Web Free Software
 Author:            mikell

 Script Function:
    _Include_MPLSs_+_Extract_Chapters_List.au3

#ce ----------------------------------------------------------------------------

; analyse de fichier playlist *.mpls

#Include <Array.au3>
#include <File.au3>

_Get_All_MPLSs()

; ==> _Get_All_MPLSs() ===============================================
Func _Get_All_MPLSs()
   ;$SourcePath = "F:\Temp Recode\ssifSource5 GUI\Titanic\BDMV Disk 2\PLAYLIST\"
   $SourcePath = ".\"
   Local $FileList = _FileListToArray($SourcePath,'*.mpls', 1)
   $MPLSsCount = UBound($FileList)-1
   _ArraySort($FileList)
   For $i = 0 to UBound($FileList)-2
      Global $mfile = $SourcePath&$FileList[$i]
      _Extract_Chapters_List()
   Next
   If @error = 1 Or @error = 4 Then
      MsgBox(0, "", "No Folders or MPLS Files Found.")
   Else
      ;MsgBox(0, "", "Done.")
   EndIf
EndFunc     ; ==> _Get_All_MPLSs()
; <== _Get_All_MPLSs() ===================================================

; ==> _Extract_Chapters_List() ===========================================
Func _Extract_Chapters_List()
   $info = ""
   $ch = ""
   $m2 = ""
   $ps = ""

   Global $info, $n = 82, $ch, $chap[1][2], $m2ts[1][3] , $m2, $ps, $dureeM2TS

   $size = FileGetSize($mfile)
   $mpls = FileOpen($mfile, 16)
   Global $caract = StringRegExp(FileRead($mpls), '[[:xdigit:]]{2}', 3)
   FileClose($mpls)
   ;_arraydisplay($caract, "fichier")

   For $i = 40 to $size-20   
      If _M2ts($i)<>0 Then
         $m2 += 1
         ReDim $m2ts[$m2+1][3]
         $res = _M2ts($i)
         $m2ts[$m2][0] = $res[0][0]
         $m2ts[$m2][1] = $res[0][1]
         $m2ts[$m2][2] = $res[0][2]
      EndIf
   Next
   $m2ts[0][0] = $m2
   ;_arraydisplay($m2ts, "durées")

   $in = _GetZeBin($n)
   ;$info &= "point d'entrée" & @TAB & _Display($in) & @crlf

   $chap[0][1] = -1
   For $i = $n+8 to $size-4    
      If _Chapitres($i)<>0 Then
         $ch += 1
         ReDim $chap[$ch+1][2]
         $pos = $i-4
         $res1 = _Chapitres($i)
         $chap[$ch][0] = $res1[0][0]
         $chap[$ch][1] = $res1[0][1]
         
         If $chap[$ch][1]<>$chap[$ch-1][1] Then
            $ps += $m2ts[$chap[$ch][1]+1][1]
            $start = _Display($in)
            $end = _Display($ps+$in)
            $dureeM2TS = _Display(($ps+$in)-$in)
            
            $m2tsFile = $m2ts[$chap[$ch][1]+1][0]

            $info &= $m2tsFile & @CRLF

            ;$info &= "point d'entrée" & @TAB & $start & @CRLF
            ;$info &= "point de sortie  " & @TAB & $end & @CRLF & @CRLF
            ;$info &= "Durée totale" & @TAB & $duree & @CRLF & @CRLF
         Else
            $m2tsFile = ""
         EndIf
         $info &= @TAB & "Chapitre " & StringFormat("%02i", $ch) & @TAB & _Display($chap[$ch][0]-$in) & @CRLF
         If $m2tsFile Then
            $info &= @TAB & $m2tsFile & "=" & @TAB & $dureeM2TS & @CRLF
         EndIf
      EndIf
   Next
   ;_arraydisplay($chap, "chapitres")
   Msgbox(0, $mfile, $info)
EndFunc

;================================================
Func _M2ts($pos)
   Local $array[1][3], $char[20]
   For $i = 0 to 19
      $char[$i] = "0x" & $caract[$pos+$i]
   Next
   Local $ext = StringFormat("%.2X%.2X%.2X%.2X", $char[5], $char[6], $char[7], $char[8])
   If $ext = "4D325453" Then
      $nbr = Chr($char[0]) & Chr($char[1])& Chr($char[2]) & Chr($char[3]) & Chr($char[4])
      $in1 = "0x" & StringFormat("%.2X%.2X%.2X%.2X", $char[12], $char[13], $char[14], $char[15])
      $out1 = "0x" & StringFormat("%.2X%.2X%.2X%.2X", $char[16], $char[17], $char[18], $char[19])
      $dur1 = $out1-$in1
      $array[0][0] = $nbr & ".m2ts" ;   m2ts 2D & 3D
      $array[0][1] = $dur1  
      $array[0][2] = _Display($dur1)
      Return $array
   Else
      Return 0
   EndIf
EndFunc

Func _GetZeBin($pos)
   $bin = "0x" & $caract[$pos] & $caract[$pos+1]& $caract[$pos+2] & $caract[$pos+3]
   Return $bin
EndFunc

Func _Chapitres($pos)
   Local $char[12], $add, $array[1][2]
   For $i = 0 to 11
      $char[$i] = "0x" & $caract[$pos-8+$i] 
   Next
   Local $postref = StringFormat("%.2X%.2X%.2X%.2X", $char[8], $char[9], $char[10], $char[11]) 
   If $postref = "FFFF0000" Then
      Local $backref = StringFormat("%.2X%.2X%.2X%.2X", $char[0], $char[1], $char[2], $char[3])
      Local $ref = "0x" & StringFormat("%.2X%.2X%.2X%.2X", $char[4], $char[5], $char[6], $char[7])
      For $i = 0 to $m2ts[0][0]
         If $backref = "0001000" & $i Then
            For $j = 1 to $i
               $add += $m2ts[$j][1]
            Next
            $array[0][0] = $ref + $add
            $array[0][1] = $i
            Return $array
         EndIf
      Next
   Else
      Return 0
   EndIf
EndFunc

Func _Display($pts)
   $sec = $pts/45000
   Return StringFormat("%02.0f:%02.0f:%06.3f", Floor($sec/3600), Floor(Mod($sec, 3600)/60), Mod($sec, 60) )
EndFunc

PS: Tes 2 propositions de code me paraissent intéresantes

[mikell]

Bon bin j'espère que c'est ça cette fois

► Afficher le texte

Code : Tout sélectionner

Func _Extract_Chapters_List()
   Local $info, $ch, $m2, $ps, $n = 82, $chap[1][2], $oldm2tsFile, $m2tsFile
   Global $m2ts[1][3]

   $size = FileGetSize($mfile)
   $mpls = FileOpen($mfile, 16)
   Global $caract = StringRegExp(FileRead($mpls), '[[:xdigit:]]{2}', 3)
   FileClose($mpls)
   ;_arraydisplay($caract, "fichier")

   For $i = 40 to $size-20  
      If _M2ts($i)<>0 Then
         $m2 += 1
         ReDim $m2ts[$m2+1][3]
         $res = _M2ts($i)
         $m2ts[$m2][0] = $res[0][0]
         $m2ts[$m2][1] = $res[0][1]
         $m2ts[$m2][2] = $res[0][2]
      EndIf
   Next
   $m2ts[0][0] = $m2
   ;_arraydisplay($m2ts, "durées")

   $in = _GetZeBin($n)
   ;$info &= "point d'entrée" & @TAB & _Display($in) & @crlf

   $chap[0][1] = -1

   For $i = $n+8 to $size-4    
      If _Chapitres($i)<>0 Then
         $ch += 1
         ReDim $chap[$ch+1][2]
         $pos = $i-4
         $res1 = _Chapitres($i)
         $chap[$ch][0] = $res1[0][0]
         $chap[$ch][1] = $res1[0][1]
         
         If $chap[$ch][1]<>$chap[$ch-1][1] Then
                $m2tsFile = $m2ts[$chap[$ch][1]+1][0]
                If  $oldm2tsFile <> "" and $m2tsFile<>$oldm2tsFile Then _ 
            $info &= @TAB & "Total m2ts" & @TAB & $dureeM2TS & @CRLF
                $ps += $m2ts[$chap[$ch][1]+1][1]
                $dureeM2TS = _Display(($ps+$in)-$in)
                $info &= $m2tsFile & @CRLF
                $oldm2tsFile = $m2tsFile
      EndIf
         $info &= @TAB & "Chapitre " & StringFormat("%02i", $ch) & @TAB & _Display($chap[$ch][0]-$in) & @CRLF
      EndIf
   Next
   $info &= @TAB & "Total m2ts" & @TAB & $dureeM2TS & @CRLF
   Msgbox(0, $mfile, $info)
EndFunc
 

[Anthony]

Je viens de découvrir un petit beug dans le code avec cette playlist

00001.rar

00001.rar

(333 Octets) Téléchargé 149 fois

En rouge ce qui devrait apparaître et qui n'apparait pas, en bleu la liste des m2ts que j'aurai besoin mais absente dù au manque (cité précédement)
Voilà après j'ai toutes les infos dont j'ai besoin (sauf beug )

► Afficher le texte

Code : Tout sélectionner

00001.mpls (00:15:39.935) [color=#0000FF]= 00001+00001+00001+00001+00001+00001+00001+00001+00001+00001+00001+00001.m2ts[/color]

00001.m2ts (00:01:18.328)
           Chapitre 01         00:00:00.000
           Total m2ts          00:01:18.328
[color=#BF0000]00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328
00001.m2ts (00:01:18.328)
           Total m2ts          00:01:18.328[/color]
 

Code au3:

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 From idea of:      Web Free Software
 Author:            mikell

 Script Function:
    _Include_MPLSs_+_Extract_Chapters_List.au3

#ce ----------------------------------------------------------------------------

; analyse de fichier playlist *.mpls

#Include <Array.au3>
#include <File.au3>

_Get_All_MPLSs()

; ==> _Get_All_MPLSs() ===============================================
Func _Get_All_MPLSs()
   ;Global $SourcePath = "F:\Temp Recode\ssifSource5 GUI\Titanic\BDMV Disk 2\PLAYLIST\"
   Global $SourcePath = ".\"
   Local $FileList = _FileListToArray($SourcePath,'*.mpls', 1)
   $MPLSsCount = UBound($FileList)-1
   _ArraySort($FileList)
   For $i = 0 to UBound($FileList)-2
      Global $mfile = $FileList[$i]
      _Extract_Chapters_List()
   Next
   If @error = 1 Or @error = 4 Then
      MsgBox(0, "", "No Folders or MPLS Files Found.")
   Else
      ;MsgBox(0, "", "Done.")
   EndIf
EndFunc     ; ==> _Get_All_MPLSs()
; <== _Get_All_MPLSs() ===================================================

; ==> _Extract_Chapters_List() ===========================================
Func _Extract_Chapters_List()
   Local $info, $ch, $m2, $ps, $n = 82, $chap[1][2], $oldm2tsFile, $m2tsFile
   Global $m2ts[1][3]

   $size = FileGetSize($SourcePath&$mfile)
   $mpls = FileOpen($SourcePath&$mfile, 16)
   Global $caract = StringRegExp(FileRead($mpls), '[[:xdigit:]]{2}', 3)
   FileClose($mpls)
   ;_arraydisplay($caract, "fichier")

   For $i = 40 to $size-20  
      If _M2ts($i)<>0 Then
         $m2 += 1
         ReDim $m2ts[$m2+1][3]
         $res = _M2ts($i)
         $m2ts[$m2][0] = $res[0][0]
         $m2ts[$m2][1] = $res[0][1]
         $m2ts[$m2][2] = $res[0][2]
      EndIf
   Next
   $m2ts[0][0] = $m2
   ;_arraydisplay($m2ts, "durées")

   $in = _GetZeBin($n)
   ;$info &= "point d'entrée" & @TAB & _Display($in) & @crlf

   $chap[0][1] = -1

   For $i = $n+8 to $size-4
      If _Chapitres($i)<>0 Then
         $ch += 1
         ReDim $chap[$ch+1][2]
         $pos = $i-4
         $res1 = _Chapitres($i)
         $chap[$ch][0] = $res1[0][0]
         $chap[$ch][1] = $res1[0][1]
         
         If $chap[$ch][1]<>$chap[$ch-1][1] Then
            $m2tsFile = $m2ts[$chap[$ch][1]+1][0]
            If  $oldm2tsFile <> "" and $m2tsFile<>$oldm2tsFile Then _ 
            $info &= @TAB & $oldm2tsFile & @TAB & $dureeM2TS & @CRLF
            $ps += $m2ts[$chap[$ch][1]+1][1]
            $dureeM2TS = _Display($ps)
            $info &= $m2tsFile &" ("&$dureeM2TS&")" & @CRLF
            $oldm2tsFile = $m2tsFile
         EndIf
         $info &= @TAB & "Chapitre " & StringFormat("%02i", $ch) & @TAB & _Display($chap[$ch][0]-$in) & @CRLF
      EndIf
   Next
   $info &= @TAB & $oldm2tsFile & @TAB & $dureeM2TS & @CRLF
   Msgbox(0, "MPLS Infos", $mfile &" ("&$dureeM2TS&")" &@CRLF& "00001+00001+00001+00001+00001+00001+00001+00001+00001+00001+00001+00001.m2ts (12 fois 00001.m2ts soit la liste des m2ts du mpls)" & @CRLF & @CRLF & $info)
EndFunc

;================================================
Func _M2ts($pos)
   Local $array[1][3], $char[20]
   For $i = 0 to 19
      $char[$i] = "0x" & $caract[$pos+$i]
   Next
   Local $ext = StringFormat("%.2X%.2X%.2X%.2X", $char[5], $char[6], $char[7], $char[8])
   If $ext = "4D325453" Then
      $nbr = Chr($char[0]) & Chr($char[1])& Chr($char[2]) & Chr($char[3]) & Chr($char[4])
      $in1 = "0x" & StringFormat("%.2X%.2X%.2X%.2X", $char[12], $char[13], $char[14], $char[15])
      $out1 = "0x" & StringFormat("%.2X%.2X%.2X%.2X", $char[16], $char[17], $char[18], $char[19])
      $dur1 = $out1-$in1
      $array[0][0] = $nbr & ".m2ts" ;   m2ts 2D & 3D
      $array[0][1] = $dur1  
      $array[0][2] = _Display($dur1)
      Return $array
   Else
      Return 0
   EndIf
EndFunc

Func _GetZeBin($pos)
   $bin = "0x" & $caract[$pos] & $caract[$pos+1]& $caract[$pos+2] & $caract[$pos+3]
   Return $bin
EndFunc

Func _Chapitres($pos)
   Local $char[12], $add, $array[1][2]
   For $i = 0 to 11
      $char[$i] = "0x" & $caract[$pos-8+$i] 
   Next
   Local $postref = StringFormat("%.2X%.2X%.2X%.2X", $char[8], $char[9], $char[10], $char[11]) 
   If $postref = "FFFF0000" Then
      Local $backref = StringFormat("%.2X%.2X%.2X%.2X", $char[0], $char[1], $char[2], $char[3])
      Local $ref = "0x" & StringFormat("%.2X%.2X%.2X%.2X", $char[4], $char[5], $char[6], $char[7])
      For $i = 0 to $m2ts[0][0]
         If $backref = "0001000" & $i Then
            For $j = 1 to $i
               $add += $m2ts[$j][1]
            Next
            $array[0][0] = $ref + $add
            $array[0][1] = $i
            Return $array
         EndIf
      Next
   Else
      Return 0
   EndIf
EndFunc

Func _Display($pts)
   $sec = $pts/45000
   Return StringFormat("%02.0f:%02.0f:%06.3f", Floor($sec/3600), Floor(Mod($sec, 3600)/60), Mod($sec, 60) )
EndFunc

[mikell]

Pas de bug, juste que c'est difficile de faire comprendre à un code que plusieurs .m2ts qui portent le même nom et n'ont tous qu'une seule piste de durée identique au millième de sec près, sont pourtant différents
Va t'en expliquer à un code que 2 <> 2
Le seul moyen serait de relever le nombre de m2ts dans le mpls (qui figure à l'offset 41, $caract[65] dans le code) et faire en sorte que le code les note tous même si ça lui parait incohérent

Je trouve le moment particulièrement opportun pour te fournir mes 2 outils fabriqués avec tant d'amour afin que tu puisses t'immerger toi-même encore davantage dans les charmes du dépiautage de mpls, et faire toi-même les menus aménagements nécessaires dans le code qui n'est après tout pas si difficile à comprendre

► Afficher le texteconvertisseur temps-hexa

Code : Tout sélectionner

; convertisseur temps-hexa
; exemple:   01:35:30.683 <=> 0F 5E F2 9F

Global $convert
$gui = GuiCreate("conv", 120, 130, -1, 20)
$input = GuiCtrlCreateInput("hexa 8 caract", 10, 10, 100, 20)
$output = GuiCtrlCreateInput("temps", 10, 40, 100, 20)
$btn = GuiCtrlCreateButton("Convert", 20, 70, 80, 22)
$btn2 = GuiCtrlCreateButton("temps > hexa", 10, 100, 100, 22)
GuiSetState()

While 1
$msg = GuiGetMsg()
Switch $msg
    Case -3
        Exit
    Case $btn 
        If not $convert Then
            GuiCtrlSetData($output, _Convert(GuiCtrlRead($input)))
        Else
            GuiCtrlSetData($output, _Convert2(GuiCtrlRead($input)))
        EndIf
    Case $btn2
        If not $convert Then
            GuiCtrlSetData($input, "temps")
            GuiCtrlSetData($output, "hexa 8 caract")
            GuiCtrlSetData($btn2, "hexa > temps")
        Else
            GuiCtrlSetData($input, "hexa 8 caract")
            GuiCtrlSetData($output, "temps")
            GuiCtrlSetData($btn2, "temps > hexa")
        EndIf
        $convert = not $convert
EndSwitch
Wend


Func _Convert($str)      ; hexa > temps
  Local $char = StringRegExp($str, '[[:xdigit:]]{2}', 3)
  $sec = ("0x" & $char[0] & $char[1]& $char[2] & $char[3])/45000
  Return StringFormat("%02.0f:%02.0f:%06.3f", Floor($sec/3600), Floor(Mod($sec, 3600)/60), Mod($sec, 60) )
EndFunc

Func _Convert2($str)     ; temps > hexa
  Local $split = StringSplit($str, ':')
  $pts = ($split[1]*3600 + $split[2]*60 + $split[3])*45000
  Local $char = StringRegExp(hex($pts), '[[:xdigit:]]{2}', 3)
  Return $char[0] &" "& $char[1] &" "& $char[2] &" "& $char[3]
EndFunc
 

► Afficher le texteaddition-soustraction de temps au format hh:mm:ss:xxx

Code : Tout sélectionner

; addition-soustraction de temps au format  hh:mm:ss:xxx

$gui = GuiCreate("timeadd", 165, 170, -1, 20)
GuiCtrlCreateLabel("temps au format  hh:mm:ss:xxx", 10, 10, 180, 18)
$input1 = GuiCtrlCreateInput("", 30, 30, 100, 20)
$sign = GuiCtrlCreateInput("+", 35, 55, 20, 20)
GuiCtrlCreateLabel("opération + ou -", 60, 57, 80, 18)
$input2 = GuiCtrlCreateInput("", 30, 80, 100, 20)
GuiCtrlCreateLabel("=", 15, 112, 10, 18)
$output = GuiCtrlCreateInput("", 30, 110, 100, 20)
$btn = GuiCtrlCreateButton("Calcule", 40, 140, 80, 22)
GuiSetState()

While 1
$msg = GuiGetMsg()
If $msg = -3 Then Exit
If $msg = $btn Then 
  GuiCtrlSetData($output, _Add(GuiCtrlRead($input1),GuiCtrlRead($input2),GuiCtrlRead($sign)))
EndIf
Wend


Func _Add($a, $b, $s)
  Local $split1 = StringSplit($a, ':')
  Local $split2 = StringSplit($b, ':')
  $dec1 = $split1[1]*3600 + $split1[2]*60 + $split1[3]
  $dec2 = $split2[1]*3600 + $split2[2]*60 + $split2[3]
  $dectot = Execute($dec1 & $s & $dec2)
  $sec = Mod($dectot, 60)
  $min = Mod($dectot/60, 60)
  $hour = Mod($dectot/3600, 60)
  Return StringFormat("%02i:%02i:%06.3f", $hour, $min, $sec )
EndFunc
 

[Anthony]

OK Merci je vais regarder çà

[Anthony]

Voilà, je suis de retour mikell .....
Voici mon code actuel mais je n'arrive pas à avoir correcte la dernière valeur

Code: [Tout sélectionner] [Déplier/Replier]

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 From idea of:      Web Free Software
 Author:            mikell

 Script Function:
    _Include_MPLSs_+_Extract_Chapters_List.au3

#ce ----------------------------------------------------------------------------

; analyse de fichier playlist *.mpls

#Include <Array.au3>
#include <File.au3>
;
;
; ===== #Get difference with two H:M:S# ==============================================================================
Local $Duration1, $Operator, $Duration2, $Duration
Func _UDF_WFS_H_M_S_msec_Diff($Duration1, $Operator, $Duration2, ByRef $Duration)   ; _UDF_WFS_H_M_S_msec_Diff("10:10:10.101", "-", "01:01:01.010", $Duration)
   $MS1              = (StringMid( $Duration1, 1,2)*1000*60*60 + StringMid( $Duration1, 4,2)*1000*60 + StringMid( $Duration1, 7,2)*1000 + StringMid( $Duration1,10,3))
   $MS2              = (StringMid( $Duration2, 1,2)*1000*60*60 + StringMid( $Duration2, 4,2)*1000*60 + StringMid( $Duration2, 7,2)*1000 + StringMid( $Duration2,10,3))
   If $Operator         = "-" Then $DurationMS  = $MS1 - $MS2
   If $Operator         = "+" Then $DurationMS  = $MS1 + $MS2
   If $Operator         = "*" Then $DurationMS  = $MS1 * $MS2
   If $Operator         = "/" Then $DurationMS  = $MS1 / $MS2
;~    ConsoleWrite("$DurationMS " & $DurationMS & @CRLF)
   $DurationMS       = StringFormat('%.3f', $DurationMS / 1000)
   $Sec              = StringSplit($DurationMS, ".")
   $MSec          = StringSplit($DurationMS, ".")
   $H             = Int ($Sec[1] / 3600)
   $M             = Int(($Sec[1] - $H * 3600) / 60)
   $S             =      $Sec[1] - $H * 3600 - $M * 60
   $MS               =      $MSec[2]
   $Duration         = StringFormat('%02d:%02d:%02d.%03d', $H, $M, $S, $MS)
;~    ConsoleWrite("$Duration " & $Duration & @CRLF)
   Return $Duration
EndFunc
; ===============================================================================================================================
;
;

_Get_All_MPLSs()

; ==> _Get_All_MPLSs() ===============================================
Func _Get_All_MPLSs()
   ;Global $SourcePath = "F:\Temp Recode\ssifSource5 GUI\Titanic\BDMV Disk 2\PLAYLIST\"
;~    Global $SourcePath = ".\"
   Global $SourcePath = ".\BDMV\PLAYLIST\"
   ConsoleWrite($SourcePath & @CRLF)
   Local $FileList = _FileListToArray($SourcePath,'*.mpls', 1)
   $MPLSsCount = UBound($FileList)-1
   _ArraySort($FileList)
   For $i = 0 to UBound($FileList)-2
      Global $mfile = $FileList[$i]
      _Extract_Chapters_List()
   Next
   If @error = 1 Or @error = 4 Then
      MsgBox(0, "", "No Folders or MPLS Files Found.")
   Else
;~       MsgBox(0, "", "Done.")
   EndIf
EndFunc     ; ==> _Get_All_MPLSs()
; <== _Get_All_MPLSs() ===================================================

; ==> _Extract_Chapters_List() ===========================================
Func _Extract_Chapters_List()
   Local $info, $ch, $m2, $ps, $n = 82, $chap[1][2], $oldm2tsFile, $m2tsFile, $olddureeM2TS, $info2
   Global $m2ts[1][3]

   $size = FileGetSize($SourcePath&$mfile)
   $mpls = FileOpen($SourcePath&$mfile, 16)
   Global $caract = StringRegExp(FileRead($mpls), '[[:xdigit:]]{2}', 3)
   FileClose($mpls)
;~    _arraydisplay($caract, "fichier")

   For $i = 40 to $size-20  
      If _M2ts($i)<>0 Then
         $m2 += 1
         ReDim $m2ts[$m2+1][3]
         $res = _M2ts($i)
         $m2ts[$m2][0] = $res[0][0]
         $m2ts[$m2][1] = $res[0][1]
         $m2ts[$m2][2] = $res[0][2]
      EndIf
   Next
   $m2ts[0][0] = $m2
;~    _arraydisplay($m2ts, "durées")

   $in = _GetZeBin($n)
;~    $info &= "point d'entrée" & @TAB & _Display($in) & @crlf

   $chap[0][1] = -1

   For $i = $n+8 to $size-4
      If _Chapitres($i)<>0 Then
         $ch += 1
         ReDim $chap[$ch+1][2]
         $pos = $i-4
         $res1 = _Chapitres($i)
         $chap[$ch][0] = $res1[0][0]
         $chap[$ch][1] = $res1[0][1]
         
         If $chap[$ch][1]<>$chap[$ch-1][1] Then
            $m2tsFile = $m2ts[$chap[$ch][1]+1][0]
;~             If  $oldm2tsFile <> "" and $m2tsFile<>$oldm2tsFile Then $info &= @TAB&@TAB&@TAB& ">>Chapitre " & StringFormat("%02i", $ch) & @TAB & $dureeM2TS & @CRLF
            If  $oldm2tsFile <> "" and $m2tsFile<>$oldm2tsFile Then $info2 = @TAB&@TAB&@TAB& ">Chapitre " & StringFormat("%02i", $ch) & @TAB & $dureeM2TS & @CRLF
            $ps += $m2ts[$chap[$ch][1]+1][1]
            $dureeM2TS = _Display($ps)
                 
            $oldm2tsFile = $m2tsFile

         _UDF_WFS_H_M_S_msec_Diff( $olddureeM2TS, "-", $dureeM2TS, $Duration)
         $info &= $m2tsFile &" ("& _UDF_WFS_H_M_S_msec_Diff( $dureeM2TS, "-", $olddureeM2TS, $Duration) &")" & @CRLF & $info2 ;

         $olddureeM2TS = $dureeM2TS

         EndIf
         $info &= @TAB&@TAB&@TAB& "Chapitre " & StringFormat("%02i", $ch) & @TAB & _Display($chap[$ch][0]-$in) & @CRLF

      EndIf
   Next
;~    $info &= @TAB & $oldm2tsFile & @TAB & $dureeM2TS & @CRLF
   Msgbox(0, "MPLS Infos", $mfile &" ("&$dureeM2TS&")" &@CRLF&@CRLF & $info)
EndFunc


;================================================
Func _M2ts($pos)
   Local $array[1][3], $char[20]
   For $i = 0 to 19
      $char[$i] = "0x" & $caract[$pos+$i]
   Next
   Local $ext = StringFormat("%.2X%.2X%.2X%.2X", $char[5], $char[6], $char[7], $char[8])
   If $ext = "4D325453" Then
      $nbr = Chr($char[0]) & Chr($char[1])& Chr($char[2]) & Chr($char[3]) & Chr($char[4])
      $in1 = "0x" & StringFormat("%.2X%.2X%.2X%.2X", $char[12], $char[13], $char[14], $char[15])
      $out1 = "0x" & StringFormat("%.2X%.2X%.2X%.2X", $char[16], $char[17], $char[18], $char[19])
      $dur1 = $out1-$in1
      $array[0][0] = $nbr & ".m2ts" ;   m2ts 2D & 3D
      $array[0][1] = $dur1  
      $array[0][2] = _Display($dur1)
      Return $array
   Else
      Return 0
   EndIf
EndFunc

Func _GetZeBin($pos)
   $bin = "0x" & $caract[$pos] & $caract[$pos+1]& $caract[$pos+2] & $caract[$pos+3]
   Return $bin
EndFunc

Func _Chapitres($pos)
   Local $char[12], $add, $array[1][2]
   For $i = 0 to 11
      $char[$i] = "0x" & $caract[$pos-8+$i]
   Next
   Local $postref = StringFormat("%.2X%.2X%.2X%.2X", $char[8], $char[9], $char[10], $char[11])
   If $postref = "FFFF0000" Then
      Local $backref = StringFormat("%.2X%.2X%.2X%.2X", $char[0], $char[1], $char[2], $char[3])
      Local $ref = "0x" & StringFormat("%.2X%.2X%.2X%.2X", $char[4], $char[5], $char[6], $char[7])
      For $i = 0 to $m2ts[0][0]
         If $backref = "0001000" & $i Then
            For $j = 1 to $i
               $add += $m2ts[$j][1]
            Next
            $array[0][0] = $ref + $add
            $array[0][1] = $i
            Return $array
         EndIf
      Next
   Else
      Return 0
   EndIf
EndFunc

Func _Display($pts)
   $sec = $pts/45000
   Return StringFormat("%02.0f:%02.0f:%06.3f", Floor($sec/3600), Floor(Mod($sec, 3600)/60), Mod($sec, 60) )
EndFunc

GeSHi © Extension Codebox Plus

[mikell]

Quoi ?! tu t'imagines sérieusement que je vais replonger maintenant dans ce truc infernal qui m'avait il y a 4 ans fait cramer un nombre non négligeable de neurones ?
Surtout que j'ai tout oublié, en plus
Même si tu m'offrais le dernier déambulateur de chez Lamborghini je n'y toucherais quand même pas
Désolé

[orax]

Quoi ?! tu t'imagines sérieusement que je vais replonger maintenant dans ce truc infernal

---

Plutôt que de tout faire avec AutoIt, une autre solution serait d'utiliser un programme externe (en ligne de commande, de préférence). Celui-ci pourrait être appelé par le script. Par contre, je n'en connais pas. J'ai fait une recherche rapide sans rien trouver.
J'essayerai (pour m'amuser*) de voir si je trouve ce qui cloche dans le code, mais j'en doute !!

* pour m'autoflageller

[Anthony]

mikell
Tu avais déjà fait un très beau boulot à l'époque, c'est vrai mais là je me suis un peu équipé pour bosser à ma pause entre 12h et 13h sur mon projet de lecteur encodeur vidéo (Blu-Ray par platlist et mkv 3D) pour casque VR mais tu as déjà fait beaucoup, les bases sont là et encore merci

orax
J'adore le chat Potté d’ailleurs mon adresse mail date de la sortie du premier de la quadrilogie Shrek (j'adore) et mon cas est bien représenté sur la capture d'écran Potté.

Ces logiciels existent, il y a eac3to ou tsMuxeR mais tous les deux demandent l'analyse et la présence de tous les fichiers physiques et l'opération est plutôt longue et fait pas mal pédaler les lecteurs Blu-Ray (le mien est vieillissant) pour juste récupérer des informations alors que je cherche la rapidité grâce à l'autonomie.
J'avais tenté une interface sous Multimedia Builder mais pas aussi puissant que autoit ici: http://forum.doom9.org/showthread.php?t=169651&page=3
Voici mon but, vous savez tout.

Merci à tous les deux pour l'aide apportée

[mikell]

J'essayerai (pour m'amuser*) de voir si je trouve ce qui cloche dans le code, mais j'en doute !!
* pour m'autoflageller

La souscription pour un pack "neurostimulants / prothèse corticale / déambulateur" est ouverte

[Anthony]

" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )

[Anthony]

Merci quand même...
Projet abandonné, je n'ai pas le niveau... au moins j'aurais essayé

[Anthony]

Pour ceux qui seraient tenté voici de quoi travailler sur quelques mpls

00000-2D.mpls
00000-3D-AVC.mpls ; (AVC/MVC)
00010-2D.mpls
00011-3D-MVC.mpls ; (MVC/AVC)
First view of SSIF.exe ; pour connaitre la vue 3D de base AVC/MVC ou MVC/AVC

First view of SSIF.exe: http://forum.doom9.org/showthread.php?p ... ost1635457

Dossiers PLAYLIST et BDMV.rar

(302.83 Kio) Téléchargé 102 fois

[Anthony]

Mon UDF à l'époque dés fois que çà puisse servir (First view of SSIF.exe)

Code: [Tout sélectionner] [Déplier/Replier]

;
; ===== #Get first 3D view from Blu-Ray Disc mpls# ==============================================================================
Local $mpls, $View
Func _UDF_Get_First_3D_View( $mpls, ByRef $View)
   If Not FileExists( $mpls) Then
     $View           = "?"
     Return
   EndIf
   $FileOpen      = FileOpen($mpls, 16)
   $Caract        = StringRegExp(FileRead($FileOpen), '[[:xdigit:]]{2}', 3)
   FileClose($FileOpen)
   $Hexa       = $Caract[56]
   $HexValue      = StringSplit($Hexa,'')
   $Binary        = ''
   $Bits       = StringSplit("0000|0001|0010|0011|0100|0101|0110|0111|1000|1001|1010|1011|1100|1101|1110|1111",'|')
   For $n            = 1 to $HexValue[0]
     $Binary         &= $Bits[Dec($HexValue[$n])+1]
   Next
   $StringSplit   =  StringSplit($Binary, '')
   If $StringSplit[4]   = 1 Then
     $View           = "MVC"
   Else
     $View           = "AVC"
   EndIf
   Return $View
EndFunc
; ===============================================================================================================================
;
;

GeSHi © Extension Codebox Plus