[R] Récupérer la dernière colonne utilisée d'un array

[Hugues]

Bonjour,

J'ai un tableau qui est dimensionné $aArray[$x][80], soit 80 colonnes.

Je voudrais récupérer la dernière colonne utilisée et ce quelque soit la ligne, pour pouvoir supprimer les colonnes vides.

Exemple si la dernière colonne utilisée est la 30ème, alors je supprime les colonnes de 31 à 80...

J'ai cherché mais pas trouver de fonction...

Merci par avance.

[mikell]

Un truc comme ça pourrait marcher (pas testé)

Code : Tout sélectionner

Local $n = UBound($array, 2)
For $j = $n - 1 to 0 step -1
    For $i = 0 to UBound($array)-1
         If $array[$i][$j] <> "" Then Exitloop 2
    Next
    $n -= 1
Next
Redim $array[$i][$n]
 

[orax]

S'il y a un zéro dans une case du tableau elle sera considérée comme "vide".

Code : Tout sélectionner

If Not ($array[$i][$j] == "") Then Exitloop 2

[mikell]

Absolument.

Quand il arrive que je n'aie que 50 secondes pour répondre, c'est pour me prémunir contre la crypto-perfidie de certains commentaires (même justifiés) que je prends bien soin de mentionner "pourrait marcher" et "pas testé"

[Hugues]

Bon c'est bon ^^,

J'ai modifié le code pour mon script et c'est tout good !!!

Code : Tout sélectionner

Local $n = UBound($array, 2)
For $j = $n - 1 to 0 step -1
    For $i = 0 to UBound($array)-1
         If Not ($array[$i][$j] == "") Then Exitloop 2
    Next
    $n -= 1
Next
Redim $array[Ubound($array)][$n]

Sujet résolu ^^ Merki