Help !

[Cagou-77]

Comment puis-je faire pour avoir une liste Chainée (Ligne) qui contient une
Liste Chainée (Cellule) , tout en sachant que je veut pouvoir ajouter des
(Lignes) et dans les (Lignes) ajouter des (cellules) .

j'avoue que je sèche, merci d'avance pour le coups de main .

Bonne Journée
Michel

[Flype]

et dans tes cellules tu veux stocker des entiers, des chaines de caractères, une infinité ou un nombre maximum de cellules bien déterminé ?

[Cagou-77]

Je veut pouvoir saisir des chaines ou des nombres, ( moins de dix
cellules par lignes.) c'est pour travailler sur un editorgadget cela me permettra de préformater un texte et de déterminer la position et le mode de saisie dans l'editorgadget, et lorsque le texte et positionné un bouton sauvegarde et un bouton imprimante .
j'arrive déjà a lire des champs préformater dans un texte et à les
remplacer par une chaine déterminer .
mais je bloque sur la gestion des listes chainée imbriquées .

Merci pour ta réponse Flype

Michel

[cederavic]

On ne peut pas imbriquer des liste chainées (à moin de les faire sois-meme), mais vue que tu connais le nombre de "cellules" par "lignes" tu peut faire une structure contenant un tableaux, exemple :

Code : Tout sélectionner

Structure Ligne
  Cellule.s[10]
EndStructure

NewList Lignes.Ligne()

[Cagou-77]

Merci Flype tu m'a mis sur la voie je pense avoir trouvé .

Code : Tout sélectionner

Structure Cellule
  Titre.s
  Debut.l
  Fin.l
  Chaine.s
EndStructure

Structure Ligne
  Cell.Cellule[5]
EndStructure

NewList Lignes.Ligne()

AddElement( Lignes() ); Première Ligne
;Première Cellule de la première ligne
Lignes()\Cell[0]\Chaine = "Monsieur"
Lignes()\Cell[0]\Debut  = 10
Lignes()\Cell[0]\Fin    = 17

;deuxième Cellule de la première ligne
Lignes()\Cell[1]\Chaine = "Dupont Léon"
Lignes()\Cell[1]\Debut  = 18
Lignes()\Cell[1]\Fin    = 34

AddElement( Lignes() ); Deuxième Ligne
Lignes()\Cell[0]\Chaine = "14, allée St Exupèry"
Lignes()\Cell[0]\Debut  = 10
Lignes()\Cell[0]\Fin    = 29
;ainsi de suite

;Résultat

ForEach Lignes()
 For i=0 To 5
      If Lignes()\Cell[i]\Debut = 0
        Break
      Else
        Debug Lignes()\Cell[i]\Chaine
        Debug Lignes()\Cell[i]\Debut
        Debug Lignes()\Cell[i]\Fin
        Debug ""
      EndIf
  Next
Next[/b]

[Flype]

voilà c'est ce à quoi je pensais - mais rendons à César... c'est Cederavic qui t'a répondu

ce sur quoi tu bosse m'interesse. j'en ai moi aussi besoin pour un mini prog dont on a besoin au taf'.
j'ai fais un prog qui previsualise une étiquette avec des 2 codes barres dedans et leur numéro. je fais çà avec un editorgadget en modifiant son contenu avec des chaines au format RTF. mais faire un vrai petit wordpad necessite un peu de travail...

[cederavic]

voilà c'est ce à quoi je pensais - mais rendons à César... c'est Cederavic qui t'a répondu