Créer une liste à partir des éléments de la liste

Question

J'essaye de créer un nouveau tableau/liste à partir d'une liste existante d'éléments. Je veux vérifier si l'élément existe en premier, s'il ne l'est pas, créez-le puis ajoutez-y une valeur. S'il existe déjà, ajoutez simplement une valeur. J'ai aussi besoin d'un moyen d'obtenir la longueur du total.

set Area {23401 23402 23403} 
    foreach Item $Area { 
     set ElExist [info exist ${Item}lst] 
     if {$ElExist == 0} { 
     set ${Item}lst {}; 
     lappend ${Item}lst $TotalRecords 
     } else { 
     lappend ${Item}lst $TotalRecords 
     } 
     set CurrentOptinon [llength ${Item}lst] 
    } 

Answer 1

Si j'écrivais ce code, je ferais comme ceci:

set Area {23401 23402 23403} 
foreach Item $Area { 
    upvar 0 ${Item}lst lst 
    lappend lst $TotalRecords 
    set CurrentOptinon [llength $lst] 
} 

Cela se comporter comme votre code, mais il est tellement plus court. Voici les astuces utilisées:

1. lappend crée une variable si elle n'existait pas déjà.
2. upvar 0 attribue un alias local à une variable. Tellement plus simple.

3. L'alias supprime le besoin de magie avec llength, mais sinon vous auriez pu faire:

   set CurrentOptinon [llength [set ${Item}lst]] 
   

   La syntaxe $ est à bien des égards juste un raccourci pour un appel à la version simple argument de set, qui lit la variable nommée. Sauf si vous écrivez set alors vous pouvez utiliser des substitutions dans votre nom de variable. En règle générale, si vous utilisez intensivement des noms de variables dans des variables sans alias, vous faites probablement quelque chose de mal (sauf si vous avez vraiment besoin du nom).

4. Vous utilisez des noms de variables bizarres. Beaucoup mieux serait un tableau.

   set Area {23401 23402 23403} 
   foreach Item $Area { 
       lappend lst($Item) $TotalRecords 
       set CurrentOptinon [llength $lst($Item)] 
   } 
   

   Cependant, cela peut nécessiter de changer de code ailleurs.