manipulation des tableaux tcl à plusieurs dimentions
#1
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

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)]"
 
	   }
    }
}


Répondre Avertir


Messages dans ce sujet
manipulation des tableaux tcl à plusieurs dimentions - par marawam - 06/11/2009, 11:34

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté