[R] Problème fonction Redim ?

[scorp84]

Bonjour,

J'utilise la version 3.3.6.1 et j'ai un problème avec la fonction redim. Pensant que ça venait de mon code (redim après un _FileListToArrayEx), je suis allé dans la doc et j'ai testé l'exemple mais qui lui aussi me vide mon tableau sans conserver les éléments qui étaient dans le tableau :

► Afficher le texte

Code : Tout sélectionner

; Example Resizing an array
Dim $I, $K, $T, $MSG
Dim $X[4][6], $Y[4][6]

For $I = 0 To 3
   For $K = 0 To 5
      $T = Int(Random(20) + 1)  ;Get random numbers between 1 and 20
      $X[$I][$K] = $T
      $Y[$I][$K] = $T
   Next
Next

ReDim $X[3][8]
Dim $Y[3][8]

$MSG = ""
For $I = 0 To UBound($X, 1) - 1
   For $K = 0 To UBound($X, 2) - 1
      If $K > 0 Then $MSG = $MSG & ", "
      $MSG = $MSG & $X[$I][$K]
   Next
   $MSG = $MSG & @CR
Next
MsgBox(0, "ReDim Demo", $MSG)

$MSG = ""
For $I = 0 To UBound($Y, 1) - 1
   For $K = 0 To UBound($Y, 2) - 1
      If $K > 0 Then $MSG = $MSG & ", "
      $MSG = $MSG & $Y[$I][$K]
   Next
   $MSG = $MSG & @CR
Next
MsgBox(0, "ReDim Demo", $MSG)
 

D'autres ont-ils le même problème que moi sur le code ci-dessus ?

Cela vient il d'un bug avec cette version ou non ?

Merci d'avance pour votre aide.

Amicalement.

BM

[Tlem]

Aucun problème avec le ReDim de la version 3.3.6.1 de AutoIt.
C'est l'exemple qui n'est pas très explicite.

Essayez ce code :

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>

Dim $X[4][6]

For $I = 0 To 3
   For $K = 0 To 5
      $T = Int(Random(20) + 1)
      $X[$I][$K] = $T
   Next
Next

_Arraydisplay($X, "Avant le ReDim")
ReDim $X[3][8]
_Arraydisplay($X, "Aprés le ReDim")

[scorp84]

Merci Tlem

Ce qui est bizarre c'est que quand j'essaye votre fonction, ça fonctionne mais que quand j'essaye de faire un redim sur le résultat d'un _FileListToArrayEx, il me vide les données.

J'ai trouvé un ancien post de vous qui explicite la fonction FileListToArrayEx:
http://www.autoitscript.fr/forum/viewto ... ?f=6&t=479

Une fois mon tableau récupéré, j'essaye de lui ajouter des colonnes pour y rentrer des infos.

Voici ce que ça donne :

Code : Tout sélectionner

#include <Array.au3>
#include<FileListToArrayEx.au3>

; Répertoires d'origine et de destination
$ori_rep="C:\Tmp2\*.*"
$dest_rep="C:\Tmp\"

; Séparation rép et ext pour origine
$tmp_fin=StringInStr($ori_rep,"\",0,-1)
$ext=StringMid($ori_rep,$tmp_fin+1,StringLen($ori_rep))
$ori_rep=StringMid($ori_rep,1,$tmp_fin)

$ori_tab = _FileListToArrayEx($ori_rep, $ext,2,"",True)
_ArraySort($ori_tab)
_ArrayDisplay($ori_tab, "Liste rep avant")

ReDim $ori_tab[UBound($ori_tab)][3]

_ArrayDisplay($ori_tab, "Liste rep après")

Je ne vois pas où je me plante

Merci d'avance pour votre aide.

Amicalement.

BM

[sylvanie]

$ori_tab semble être un tableau à une dimension.
Or vous redimensionnez sur 2 dimensions, et l'aide dit :

The number of dimensions must remain the same, or the old array will be forgotten during the ReDim.

[scorp84]

Merci sylvanie

Y aurait-il une fonction pour copier directement de mon tableau à 1 dimension dans un tableau à 2 dimensions ?

Merci d'avance.

Amicalement.

BM

[sylvanie]

Nativement, je n'en connais pas. Il faudra en scripter une, pas très compliqué mais bon faut le faire ...
Concernant le thème de ce post, je pense qu'on peut le basculer en [R]