select intégrés [résolu]

J'ai intégré 3 select les uns dans les autres :

Code:

select a%
  case 1
     select b%
        case 1
           select c%
              case 1
              case 2
              case 3
           end_select
        case 2
        case 3
     end_select
  case 2
     select b%
        case 1
        case 2
     end_select
  case 3
     select b%
        case 1
        case 2
     end_select
end_select

Ca n'a pas l'air de marcher...
Ce n'est pas possible d'intégrer plusieurs select-end_select
comme on peut intégrer des for-to-next ou des repeat-untill ?

La réponse est OUI dans les deux cas.

Il y a en effet un bug depuis très longtemps avec les SELECT imbriqués. Pour ma part, j'y ao renoncé.

Par contre, on peut imbriquer à volonté les FOR, UNTIL et REPEAT.
Le seul problème dans ces cas, c'est de sortir de ces boucles de façon prématurée et contrôlée.
Il y a certes les commandes EXIT_FOR, EXIT_UNTIL et EXIT_REPEAT.
Mais ces commandes ne sortent que du bloc en cours et on ne peut pas indiquer le nombre de niveaux qu'on veut quitter.

Pour cela, il faut définit une variable et la charger du nombre de niveaux qu'on veut quitter, faire suivre la commande NEXT (ou UNTIL ou END_WHILE) d'une instruction comme ceci:

Code:

if quit_level_count%>0
  quit_level_count = qui_level_count - 1
  exit_xxx  : ' xxx = FOR, UNTIL ou WHILE
end_if

Merci pour ta réponse.
C'est dommage, ce vieux bug !
Bon, je vais essayer autrement...

Oups, à la réflexion, je crois bien que c'était un bug de ma part
et que j'ai accusé les select un peu vite...