Discussion :

[exe2bin]

Bonjour à tous et toutes,
voilà : ce code plante wish85 et j'aimerais bien savoir pourquoi ?!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
proc findLetters {liste lettres} {
	foreach lettre $lettres {
set char -1;# pour première utilisation dans while
while {[set char [lsearch [lrange $liste [expr $char + 1] end] $lettre]] != -1} {
			puts "caractère $lettre ---> index: $char"
			}
	}
}

[mipicard]

Cela marche bien chez moi !

C'est sans doute liste et lettres qui ne sont pas des listes correctes. Il faut les "expendre" par l'ordre {*} au moment de l'appel.

[exe2bin]

Que signifie expandre une liste ??
aucun ouvrage en ma possession n'en parle !?

[habilité]

Salut.

La raison pour laquelle ton code ne marche pas est que tu ne permets pas
à ce que la variable "lettres" soit une liste d'éléments figurant dans la variable "liste". J'ai modifié ton code comme suit (c'est-à-dire que j'ai splité
les valeurs de la variable lettres afin d'en former une liste pour laquelle
chaque élément (ici la valeur val) teste la variable "Condition":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#\ exec tclsh "$0" ${1+"$@"}
console show
 
 
#------------------------------------------
 
proc Trouver_Lettre { liste lettres } {
set Condition "";
foreach val [split $lettres ""] {
        set Condition [lsearch $liste $val]
        puts "$val $Condition"
        if { $Condition != -1 } {
		puts "caractère $val ---> index: $Condition"
        };#end of if
};#end of foreach
 
};#end of Trouver_Lettre
 
#------------------------------------------
 
set liste0 "a b c d e"
set lettres0 "bac"
 
Trouver_Lettre $liste0 $lettres0;

Valeurs initiales:
liste0 "a b c d e"
lettres0 "bac"

Résultat Trouver_Lettre:
b 1
caractère b ---> index: 1
a 0
caractère a ---> index: 0
c 2
caractère c ---> index: 2

J'espère que j'ai pu répondre à ta question.

A+