[R] Bug Array avec For

[servabat]

Bonjour,

J'ai un script qui devrait en théorie marcher mais m'affiche un bug :

Code : Tout sélectionner

Local $arr[UBound(DriveGetDrive("Fixed"))]
$arr = DriveGetDrive("Fixed")
For $i = 1 to UBound($arr)
    $DiskLetter = StringUpper( $arr[$i] )
    $label = DriveGetLabel($DiskLetter)
    If $label = "SAMSUNG" Then
        $connect = True
    EndIf
Next

Voici le bug :

Code : Tout sélectionner

C:\Program Files\AutoIt3\SciTE\device.au3 (3) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$DiskLetter = StringUpper($arr[$i])
$DiskLetter = StringUpper(^ ERROR

Merci d'avance,
Servabat

[PandiPanda]

oulah je comprend pas ce que vous voulez faire xD

Vous declarer une variable Local $arr de taille [UBound(DriveGetDrive("Fixed"))]
ensuite vous refaite avec la même variable ceci;
$arr = DriveGetDrive("Fixed")

??

vous voulez faire quoi?

Edit: ceci devrai vous satisfaire;

► Afficher le texte

Code : Tout sélectionner

Local $arr = DriveGetDrive("FIXED" )
For $i = 1 to $arr[0]
    $DiskLetter = StringUpper($arr[$i])
    $label = DriveGetLabel($DiskLetter)
    If $label = "SAMSUNG" Then
        $connect = True
    EndIf
Next

[timmalos]

En autoit, les tableaux commencent toujorus par l'index 0 et non 1.

De plus comme l'aa un peu ddis PandiPanda, votre première ligne ne sert à rien En Autoit pas besoin de déclarer vos variables exactement au type pret.

Code : Tout sélectionner

Local $arr = DriveGetDrive("Fixed")
For $i = 0 to UBound($arr) -1
    $DiskLetter = StringUpper( $arr[$i] )
    $label = DriveGetLabel($DiskLetter)
    If $label = "SAMSUNG" Then
        $connect = True
    EndIf
Next

devrait marcher

[servabat]

oulah je comprend pas ce que vous voulez faire xD

Vous declarer une variable Local $arr de taille [UBound(DriveGetDrive("Fixed"))]
ensuite vous refaite avec la même variable ceci;
$arr = DriveGetDrive("Fixed")

??

vous voulez faire quoi?

Oui, en effet c'était une erreur de ma part. Cette ligne est inutile

Merci timmalos, en effet je me suis trompé , sa marchait aussi comme ceci:

Code : Tout sélectionner

$arr = DriveGetDrive("Fixed")
For $i = 1 to $arr[0]
    $DiskLetter = StringUpper($arr[$i])
    $label = DriveGetLabel($DiskLetter)
    If $label = "SAMSUNG" Then
        $connect = True
    EndIf
Next

Car la valeur 0 contient le nombre de disques

Merci PandiPanda aussi,

ps: le but de mon script est de vérifier si le disque "SAMSUNG" est connecté

@++, je passe en [R]

[PandiPanda]

c'est fou j'ai éditer mon message pour rien
trop lent ...

[timmalos]

Ca m'apprandra à répondre sans avoir verifié la doc.
Les tableaux commencent toujours par 0 c'est vrai, mais quelques fois (comme ici) on met le nombre de valeurs dans cette case ce qui evite de devoir passer par un Ubound() supplémentaire.