[R] Structure avec tableau?

[Nilak]

Bonsoir,

Je tente dans un programme d'avoir une gestion des profils... Actuellement j'utilise un fichier texte avec un stringsplit et des retours de chariots... Que je supprime et je recrée... Une grosse usine à gaz qui au bout d'un moment s'écroule et devient inutilisable.

Je cherche à enregistrer un nom unique, une donnée et une autre donnée... J'ai voulu utiliser un tableau à 2 dimensions comme ça:

Code : Tout sélectionner

 $tableau[0][2]
$tableau[0][0] = $nom_unique
$tableau[0][1] = $donnee
$tableau[0][2] = $donnee_autre

Mais j'ai l'impression que la fonction _FileWriteFromArray ne fonctionne pas avec un tableau 2D car j'ai un gros message d'erreur de la fonction file.au3.

J'aurai donc voulu créer un tableau avec des données d'une structure du genre:

Code : Tout sélectionner

 $tableau[0].nom_unique
$tableau[0].donnee
$tableau[0].donnee_autre
$tableau[1].nom_unique
[...]

Mais je ne sais pas du tout si c'est possible de faire ça... Est ce que c'est possible? Si oui comment faire car j'ai du mal a trouver des informations sur les structures avec autoit....

Merci bien et bonne nuit!

[GaRydelaMer]

Bonsoir

tu as plusieurs autres solutions pour faire ca, ton cas est typique du format de fichier ini.

Avec pour section le Nom unique:

Code : Tout sélectionner

[uni1]
data1=
data2=
[uni2]
data1=
data2=

Regarde du coté des fonction iniwrite, iniread(), ensuite pour modifier, lire.

Autre solution du XML, ou une base de données.

[Nilak]

Hum je vais regarder du coté du fichier .ini mais ça ne me parait pas très propre comme solution... Notamment pour supprimer, mais pourquoi pas. Pour la base de données, est ce que autoit peut lire et écrire un fichier csv? (ou autre)

Ça à l'avantage de transporter les données en déplaçant uniquement le .exe et le .csv... ^^

[jchd]

SQlite est accessible par une UDF standard et te permet de résoudre la question facilement.
Autre avantages : si ton problème se complexifie par la suite, tu n'auras pas besoin de casser une solution boîteuse pour en créer une nouvelle, une base SQLite est très flexible et très puissante.
De plus si ton volume de données augmente (qu'en sais-je ?) la solution SQLite sera toujours aussi adaptée.
Enfin, ça te fera une première expérience avec un moteur RDBMS qui te servira certainement par la suite.

[zeshrek]

bin je sais pas mais pour moi tu as un bug des la première ligne du code que tu nous as mis en exemple.

Code : Tout sélectionner

 $tableau[0][2]
$tableau[0][0] = $nom_unique
$tableau[0][1] = $donnee
$tableau[0][2] = $donnee_autre

$tableau[0][2] ca veut rien dire !
soit te mets un local/global/dim avant pour déclarer ton tableau, soit tu las supprimes
par contre si tu t'en sers pour dimensionner ton tableau, remplace le 2 par un 3, parceque tu as 3 valeurs, numérotées de 0 a 2.

Sinon, je suis pas sur que _FileWriteFromArray() fonctionne effectivement avec un tableau 2D...

[matwachich]

Voila une solution toute simple en fonctions (à adapter)
PS: Je l'ai fait sans utiliser Array.au3 justement pour montrer comment bidouiller les tableaux, qui au début nous paraissent immangeables mais qui une fois maitrisés, s'avèrent être d'une puissance redoutable!

► Afficher le texte

Code : Tout sélectionner

Global $__Array[1][3]
    $__Array[0][0] = 0
    
#include <Array.au3> ; Just pour l'exemple

_Add("nom1", "test", "moi")
_Add("nom2", "test", "moi")
_ArrayDisplay($__Array)

_Del("nom1")
_ArrayDisplay($__Array)

_Del("nom2")
_ArrayDisplay($__Array)

Func _Add($name, $data1, $data2)
    If __NameExists($name) Then Return SetError(1, 0, 0)
    Local $uB = $__Array[0][0]
    ReDim $__Array[$ub + 2][3]
    $__Array[$ub + 1][0] = $name
    $__Array[$ub + 1][1] = $data1
    $__Array[$ub + 1][2] = $data2
    $__Array[0][0] += 1
EndFunc

Func _Del($name)
    If $__Array[0][0] = 0 Then Return 0
    ; ---
    Local $newArray[1][3], $x = 1
    $newArray[0][0] = 0
    ; ---
    For $i = 1 To $__Array[0][0]
        If $__Array[$i][0] <> $name Then
            ReDim $newArray[$x + 1][3]
            $newArray[$x][0] = $__Array[$i][0]
            $newArray[$x][1] = $__Array[$i][1]
            $newArray[$x][2] = $__Array[$i][2]
            $newArray[0][0] += 1
            $x += 1
        EndIf
    Next
    ; ---
    If $x = $i Then
        Return SetError(1, 0, 0)
    Else
        $__Array = $newArray
        Return 1
    EndIf
EndFunc

; ==============================================================
; ### Fonctions internes
; ==============================================================
Func __NameExists($sName)
    For $i = 1 To $__Array[0][0]
        If $__Array[$i][0] = $sName Then Return 1
    Next
    Return 0
EndFunc

[Nilak]

Merci bien pour toutes ces réponses, je passe le sujet en résolu.