Forum de Ti-Gen.org, le site francophone des TI

Bienvenue Invité ! Se connecter Mes sujets	Administrer
Utilisateurs actifs : Aucun membre + 1 visiteur

Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.

:: Index » Forum Ti68K » Programmation C » recuperer les elements d'une liste (30 réponse(s))

./REPRISE DU POST PRECEDENT (post n°19) Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 23:52

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

le code final est donc :

SYM_ENTRY *sym_entry = SymFindPtr (SYMSTR("protsave"), 0);
    ESI element=HToESI (sym_entry->handle);
if (GetArgType(element)== LIST_TAG)
{
  element--;
  while(GetArgType(element)==POSINT_TAG)
  {

    printf("%lu\n",GetIntArg (element));

  }
  ngetchx();
}

./Post n°20 Marquer comme non lu.

kaz00

Ecrit le: Lundi 29 août 2005 à 23:53

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

merci a tous pour votre aide precieuse #toptop#

./Post n°21 Marquer comme non lu.

RHJPP

Ecrit le: Mardi 30 août 2005 à 00:02

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Omega staff

Messages: 2174

Membre n°776

Inscrit le 06 avril 2005

limmt, ton "element--;" faut l'oublier

./Post n°22 Marquer comme non lu.

kaz00

Ecrit le: Mardi 30 août 2005 à 00:04

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

maintenant, il faut que pour chaque etape j'enregistre la valeur dans une variable.

par exemple, pour le deuxieme element de la liste, il faut que la valeur soit enregistrée dans var2.

./Post n°23 Marquer comme non lu.

kaz00

Ecrit le: Mardi 30 août 2005 à 00:11

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

en fait j'arrive juste a enregistrer le dernier element, mais pas les autres, je n'arrive pas a lire la valeur de element

./Post n°24 Marquer comme non lu.

RHJPP

Ecrit le: Mardi 30 août 2005 à 00:18

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Omega staff

Messages: 2174

Membre n°776

Inscrit le 06 avril 2005

Comme ça, mais je recommande d'utiliser un tableau :

unsigned int var1,var2,var3;
unsigned int *var[]={&var1,&var2,&var3};
ESI element=HToESI (sym_entry->handle);
if (GetArgType(element)== LIST_TAG)
{
  element--;
  int i=0;
  while(GetArgType(element)==POSINT_TAG && i<3)
  {
    *var[i]=GetIntArg (element);
    i++;
  }
}

./Post n°25 Marquer comme non lu.

kaz00

Ecrit le: Mardi 30 août 2005 à 00:25

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

t'es un dieu Thepro, ca marche inpec.
Juste une remarque sans importance, mais pour avoir l'element 1 de ma liste BASIC, c'est l'element 4 du tableau C.

Merci encore.

./Post n°26 Marquer comme non lu.

RHJPP

Ecrit le: Mardi 30 août 2005 à 00:35

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Omega staff

Messages: 2174

Membre n°776

Inscrit le 06 avril 2005

La lecture commence de la fin (c'est donc dans l'ordre inverse).

./Post n°27 Marquer comme non lu.

kaz00

Ecrit le: Mardi 30 août 2005 à 00:36

Membre privilégié

Messages: 2950

Membre n°111

Inscrit le 17 mars 2004

./Post n°28 Marquer comme non lu.

RHJPP

Ecrit le: Mardi 30 août 2005 à 00:44

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Omega staff

Messages: 2174

Membre n°776

Inscrit le 06 avril 2005

Plus simple (si tes variables n'existent pas déjà) :

unsigned int var[3];
ESI element=HToESI (sym_entry->handle);
if (GetArgType(element)== LIST_TAG)
{
  element--;
  int i=2;
  while(GetArgType(element)==POSINT_TAG && i>=0)
  {
    var[i]=GetIntArg (element);
    i--;
  }
}

Avec des changements pour que les valeurs soient dans l'ordre.

./Post n°29 Marquer comme non lu.

Kevin Kofler

Ecrit le: Mardi 30 août 2005 à 04:23

Administrateur

Groupe: Staff de Ti-Gen

Messages: 4814

Membre n°40

Inscrit le 08 février 2004

Thepro :
La lecture commence de la fin (c'est donc dans l'ordre inverse).

Non.

Membre de l'équipe de TIGCC: http://tigcc.ticalc.org
Mainteneur du portage Linux/Unix de TIGCC: http://tigcc.ticalc.org/linux/
Membre de l'équipe de CalcForge: http://www.calcforge.org:70/

Participez à la reprise de Ti-Gen!

./Post n°30 Marquer comme non lu.

RHJPP

Ecrit le: Mardi 30 août 2005 à 10:44

Administrateur

Groupe: Staff de Ti-Gen

Groupe: Omega staff

Messages: 2174

Membre n°776

Inscrit le 06 avril 2005

Ha oui, bah c'est bizarre son truc alors