[R] Bizarre: Problème Array dans un While ou Func ?

[Anthony]

Bonjour à tous

Voilà mon problème commence dés fois au bout d'une trentaine de Func GetMPLSInfoFunc() dés fois vers la centaine ce qui est plutôt alléatoire avec ce code d'érreur

Array variable has incorrect number of subscripts or subscript dimension range exceeded.

Pour moi le problème se trouve dans le While du moins je le pense, c'est pour çà que j'ai besoin de vos lumières

► Afficher le texte

Code : Tout sélectionner

FileDelete($ProgramSrc&"Tree Log.txt")

Func GetMPLSInfoFunc()

$SendTree = ''

$MPLS = StringLeft($MPLSs, 5) & '.mpls'
$MPLSs = StringTrimLeft($MPLSs, 5)

$cmd = CHR(34)& $ProgramSrc&"Programme.exe" &CHR(34)&" -progressnumbers "&CHR(34)& $PathMPLS&$MPLS &CHR(34)

; ====> 
Local $Stream = Run(@ComSpec & ' /c "' & $cmd & '"', @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
; <==== 
;
; ====> 
While 1 
    $line = StdoutRead($Stream) 
    If $line <>'' Then
        ;$result = StringInStr( $line, "analyze:")
        $result = StringLeft($line, 8) 
        If $result = "analyze:" Then
            $line = stringreplace ( $line, @LF, "")
            SendScriptMMB($MMBTitle, "LoadText("&CHR(34)&"Status"&CHR(34)&","&CHR(34)& $MPLS & ' ' & $line &CHR(34)&")")
        Else
            $SendTree = $SendTree & $line
        EndIf
    EndIf
    If @error Then
    ;If ProcessExists($Stream) Then
    ;Else
        ExitLoop
    EndIf
Wend

$SendTree       = StringReplace ( $SendTree, "  ", "")
$SendTree       = StringReplace ( $SendTree, "(left eye)", "  (left eye)")
$SendTree       = StringReplace ( $SendTree, " "& @CRLF, @CRLF)
$SendTree       = StringReplace ( $SendTree, @CRLF & " ", " ")
$SendTree       = $SendTree & 'Done..........'
$SendTree       = StringReplace ( $SendTree, @CRLF & "Done..........", "")
$SendTree       = StringReplace ( $SendTree, "M2TS", $MPLS)

$result = StringInStr( $SendTree, "(right eye)")
If $result = '0' Then
    $3D = "2D"
Else
    $3D = "3D"
EndIf
$SendTree       = $3D & ', ' & $SendTree

$Delete         = StringInStr( $SendTree, ":", 0, 1) -2
$Delete         = StringMid( $SendTree, $Delete, 8)
$SendTree       = stringreplace ( $SendTree, $Delete,"")
$SendTree       = StringReplace ( $SendTree, ",,", ",")

$SendTree       = StringReplace ( $SendTree, @CRLF & "Bitstream parsing for track", ", Bitstream parsing for track")
$SendTree       = StringReplace ( $SendTree, @CRLF & "Demuxing this track may still produce correct results - or not.", " Demuxing this track may still produce correct results - or not.")
$SendTree       = StringReplace ( $SendTree, "," & @CRLF, @CRLF)

$HMS            = StringSplit($Delete, ":")
$Time           = StringFormat('%02d:%02d:%02d', $HMS[1], $HMS[2], $HMS[3])
$SendTree       = $Time & ', ' & $SendTree

If $MPLSs <> '' Then
    $SendTree   = $SendTree & @CRLF
    FileWrite ($ProgramSrc&"Tree Log.txt", $SendTree)
    GetMPLSInfoFunc()   ; Run The Script => GetMPLSInfoFunc()
EndIf
; <==== 
EndFunc

[moi]

en gros tu essaye d'utiliser une valeur d'un array qui n'existe pas
ex
on d'eclare $array [5]
donc
$array [0]
$array [1]
$array [2]
$array [3]
$array [4]

puis on essaye par ex

Code : Tout sélectionner

for $i = 0 to 5 step 1
msgbox(0,"",$array[$i])
next
 

mais a partir d'un moment on arrive a $array[5]
qui n'existe pas

en gros erreur
compris?

[Anthony]

Merci pour ta réponse rapide
Tu parles de cette ligne ?

Code : Tout sélectionner

$Time = StringFormat('%02d:%02d:%02d', $HMS[1], $HMS[2], $HMS[3])

[PandiPanda]

Dans le cas d'anthony c'est plus subtil ^^
La partie ou survient l'erreur provient sand doute d'ici :

Code : Tout sélectionner

$HMS = StringSplit($Delete, ":")
$Time = StringFormat('%02d:%02d:%02d', $HMS[1], $HMS[2], $HMS[3])

En effet il se pourrai qu'il trouve moin de valeur qu"il ne le faut ...
il faudrai donc vérifier avant d'utiliser le StringFormat() si votre arrray contient Bel et bien 4 valeur.

étant donné votre StringSplit() actuel, un simple

Code : Tout sélectionner

if $HMS[0]=3 then $Time= StringFormat('%02d:%02d:%02d', $HMS[1], $HMS[2], $HMS[3])

devrai être suffisant ^^ après faut voit ce que vous voulez faire si votre array contient moin de valeur que voulue, mais ca c'est à vous de jouer

[Anthony]

Je fais des tests pour vérifier tout çà

[Anthony]

Résolu avec ce code:
Merci à vous

Code : Tout sélectionner

$SendTree = 'XXXXXXXXXXXXX 1:23:45'
$Delete = StringInStr( $SendTree, ":", 0, 1) -2
$Delete = StringMid( $SendTree, $Delete, 8)
$Time = StringLeft($Delete, 1)
If $Time = ' ' Then
  $Time = stringreplace ( $Delete, ' ','0') ; $Time = '01:23:45'
EndIf