bonjour tou le monde,
j'ai essay de faire ce script pour tester le remlissage, la recherche d'un element dans un tableau à plusieur dimention mais ce simple scrit marche tjr pas
svp si qlq peu le verifier.
-->donc si qlq tape la commande !tab coco
le script doit lui chercher ce mot "coco" dans la deusieme colone du tableau et lui retourne la var de la premier colone correspendant
et ajoute une ligne à la fin du tableau
j'ai essay de faire ce script pour tester le remlissage, la recherche d'un element dans un tableau à plusieur dimention mais ce simple scrit marche tjr pas
svp si qlq peu le verifier.
-->donc si qlq tape la commande !tab coco
le script doit lui chercher ce mot "coco" dans la deusieme colone du tableau et lui retourne la var de la premier colone correspendant
et ajoute une ligne à la fin du tableau
tcl
bind pub - !tab pub:testtab
proc pub:testtab { nick uhost handle arg channel } {
set i 1
set idok "okid"
set pseudook "okpseudo"
set pseudoch $arg
set tail [array size tabpseudo]
array set tabpseudo(1 , id) {1}
array set tabpseudo(1 , pseudo) {coco}
array set tabpseudo(2 , id) {2}
array set tabpseudo(2 , pseudo) {hihi}
array set tabpseudo(3 , id) {3}
array set tabpseudo(3 , pseudo) {buybuy}
for {set i 1} {$i < [array size tabpseudo]} {incr $i} {
if { [string match "$pseudoch" $[array get $tabpseudo($i , pseudo)] ] } {
array set tabpseudo([exper [array size tabpseudo] + 1] , 1) {$idok}
array set tabpseudo([exper [array size tabpseudo] + 1] , 2) {$pseudook}
putserv "PRIVMSG #$channel : l'id qui correspend à $pseudoch est: [array get $tabpseudo($i , id)]"
}
}
}