Problème de WhileRésolu

Question

Bonjour, J'ai un petit problème de boucle while, sur dans un de mes scripts:

SCRIPT: On *:start:{ .timerldirc 1 2 getcnct } alias getcnct { set %i 1 while (%i <= $gettok($readini($scriptdirultra.ini,serv,networks),0,44)) { echo -ta server: $gettok($_ini2(serv,networks),%i,44) set %a $gettok($_ini2(serv,networks),%i,44) server $iif(%i == 1,,-m) $gettok($_ini2(serv,networks),%i,44) inc %i } } on *:connect:{ .timerldsrv 1 3 gtsrv } alias gtsrv { set %d $gettok($readini($scriptdirultra.ini,serv,networks),0,44) inc %d if (%d == %i) { set %i 1 set %b 1 while (%i <= $gettok($readini($scriptdirultra.ini,serv,networks),0,44)) { while (%b <= $gettok($readini($scriptdirultra.ini,serv,. $+ $gettok($readini($scriptdirultra.ini,serv,networks),%i,44)),0,44)) { inc %b } inc %i } } }

FICHIER .INI: [serv] networks=127.0.0.1:1000,irc.ff.st,ircSuper .127.0.0.1:1000=#test01,#test02,#test03 .irc.ff.st=#test04,#test05 .ircSuper=#test06

Vous l'avez surement compris, il s'agit d'un auto-join multiserver/multichannel. Le tout est composé de 2 while, grossièrement: irc va joindre les channels du 1er server, du second...etc.. après s'etre connecté à tout les servers de la liste (je précise parce que mon code n'est pas vraiment "beau" et optimisé) Donc ici, d'après ce que j'ai pu tester, seule le 2nd while s'execute: le 1er while est "zappé"; quand je tente d'enlever le "inc %i" (il se trouve a la fin), mIRC freeze: normal car la boucle ne peux se terminer, mais anormal car: si l'incrémenteur de %i est là, rien ne se passe. Voilà donc mon problème de while, j'avais pensé que ca vennait du multiple accèss au fichier .ini, mais dans ce cas pourquoi seul le 2nd while se lance? Dans ce cas, comment faire? Merci d'avance

fjxokt · Accepted Answer

les hash tables c'est pas compliqu&#233; (c'est meme tres simple)



tu cr&#233;e une hash table de 1000 items (le max on s'en fout)

hmake -s ajoin 1000



tu ajoute a ta hash table l'item correspondant a un serveur

hadd -s ajoin irc.server.1 #salut #cool #blabla

si t'a d'autres serveurs pas de probleme c'est le meme principe

hadd -s ajoin irc.server.2 #delire #cfacile



pr finir tu sauvegarde ta table pr pouvoir la
reouvrir qd tu lancera ton script (il faut sauvegarder la table des que
on rajoute quelque chose dedans, sauf si ca n'est que temporaire)

hsave -s ajoin ajoin.hash



pr savoir combien de servers tu as au total, c'est $hget(ajoin,0)

pour avoir le nom de ton premier server, c'est $hget(ajoin,1).item

pour avoir ta liste de chan pour le server 1, c'est $hget(ajoin,1).data

ensuite pr avoir les chans un par un tu utilise un gettok(liste,%var,32) avec une boucle ou tu inc %var



si tu en a fini avec ta table, tu libere la m&#233;moire qui lui etait alou&#233;e

hfree -s ajoin



lors du demarrage de mirc pr recuperer ta table tu la charges (apres l'avoir cr&#233;e )

hmake -s ajoin 1000 

hload -s ajoin ajoin.hash



alors c'est facile non  ?

cs_wims · Answer

J'ai pas vu le probleme mais deja met des /var au lieu des /set

server $iif(%i == 1,,-m)

y'a pas une virgule en trop dans le $iif ?

Lestat_2070 · Answer

@wims:

Pour les /var au lieu des /set, ca ne change pas grand chose, mais bon c'est un d&#233;tail (merci de me l'avoir fait remarqu&#233;).

Pour le $iif(%i == 1,,-m), non il n'y a pas une virgule en trop: $iif(comparaison,true,false);
j'ai rien mis entre les deux virgules pour, tout simplement, ne rien
renvoyer, ca peux paraitre un peu stupide de ma part; mais le but ici,
&#233;tait d'ouvrir dans une nouvelle fenetre tout les serveurs, sauf le
premier.

Merci pour ta r&#233;ponse

cs_wims · Answer

Oui j'ai bien compris mais dans ce cas peux etre que l'erreur vien de la. essaye plutot : $iif(%i != 1,-m)

Lestat_2070 · Answer

@wims:

H&#233;l&#224;s, comme je l'imaginais, l'erreur ne viens pas de l&#224;, mais bel et
bien de la boucle while, j'en suis sur; mais de l&#224; &#224; savoir ce qu'il se
passe...

En tout cas, merci wims pour cette petite optimisation pour mon $iif

fjxokt · Answer

bon j'ai pas trop regard&#233; ton code (juste un truc tu parles des while de quel alias: gtsrv ou getcnct ?)

mais je trouve pas que la maniere dont tu utilise ton fichier ini soit tres pratique

perso utilise les hashtables, met en item le server et en data les
channels, separ&#233;s par un token, ce sera plus rapide et (je trouve) plus
propre

Lestat_2070 · Answer

@fjxokt:

Dans le 1er post, je parlais du gtsrv, car c'est le seul &#224; proposer deux whiles l'un dans l'autre.

Hum, les hashtables... seulement, je ne les maitrise pas ...
&#224; vrai dire, j'ai rien compris quand j'ai vu des tutos ou des sources
les utilisant. Aussi, si je les utilise, je pourais ramener tout ca
dans mon .ini ?

Enfin, je suis d'accord avec toi, c'est pas du tout optimis&#233;... et
c'est sans doute normal que ca ne marche pas du tout. Je ne sais pas
trop. Comment devrais je coder ca ?

Merci pour vos r&#233;ponses

Lestat_2070 · Answer

@fjxokt:


Dans le 1er post, je parlais du gtsrv, car c'est le seul &#224; proposer deux whiles l'un dans l'autre.


Hum, les hashtables... seulement, je ne les maitrise pas ...
&#224; vrai dire, j'ai rien compris quand j'ai vu des tutos ou des sources
les utilisant. Aussi, si je les utilise, je pourais ramener tout ca
dans mon .ini ?


Enfin, je suis d'accord avec toi, c'est pas du tout optimis&#233;... et
c'est sans doute normal que ca ne marche pas du tout. Je ne sais pas
trop. Comment devrais je coder ca ?


Merci pour vos r&#233;ponses

fjxokt · Answer

une autre chose, lorsque tu utilise des variables pr faire des boucles, utilise des /var (comme dit plus haut)

sinon essaye &#231;a



var %i 1

     while (%i <= $gettok($readini($scriptdirultra.ini,serv,networks),0,44)) {

var %b 1


        while (%b <= $gettok($readini($scriptdirultra.ini,serv,. $+
$gettok($readini($scriptdirultra.ini,serv,networks),%i,44)),0,44)) {



inc %b 

}

inc %i 

}

Lestat_2070 · Answer

@fjxokt:

Merci pour ce mini tuto ,
ca va m'&#234;tre bien utile. Je valide ta r&#233;ponse en "accept&#233;e". Le petit
probl&#232;me restant est que je dois changer mes 2 combo (server et chan,
et un jour ajouter le mode +k et rafistoler ce mode $network), et avoir
2 files (le ini avec deja la configuration de l'addon (~1300 l)) au
lieu d'un seul. Mais bon, je bosserai l&#224; dessus vendredi soir et ce
weekend; parce que ce soir j'ai plus trop le temps. Encore merci pour
vos r&#233;ponses  !

Si quelqu'un me trouve une solution pour le code en d&#233;but, de page, je suis toujours prenneur

Lestat_2070 · Answer

@fjxokt:

Woaouu !!!

D&#233;sol&#233;, je n'avais pas vu le "var %b 1" qui &#233;tait d&#233;plac&#233;  !

En fait, c'&#233;tais ca qui bloquais le script: logique, en fait, puisque si on ne met pas var %b 1
juste apr&#232;s le 1er while (qui liste les servers), l'autre while ne
pourra pas joindre les channels quand %i sera &#233;gal &#224; 2, puisque %b sera
sup&#233;rieur au nombre de chans pour le server suivant. Vraiment, MERCI    fjxokt,
j'ai cherch&#233; pendant plusieurs jours, parce que j'&#233;tais s&#251;r de mes
whiles; comme quoi faut v&#233;ritablement tout v&#233;rifier quand un script ne
donne pas le r&#233;sultat souhait&#233; :]

Je vais quand m&#234;me tenter du c&#244;t&#233; des hash tables, ca semble plus
rapide que tout mes acc&#232;ss au .ini avec des lignes trop longues 

byebye ^^

fjxokt · Answer

de rien lol

Problème de While

12 réponses

Votre réponse

Discussions similaires