Communauté Eggdrop
regsub ? - Version imprimable

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : regsub ? (/showthread.php?tid=1255)



regsub ? - Supa - 02/10/2012

Bonjour,

J'ai passé presque toute la nuit à me prendre la tête la dessus, je vous solicite donc encore une fois vous ma chère communauté à mon probléme certainement très simple:

Mon regsub:
TCL
proc filt {data} {
    regsub -all -- \\\\ $data \\\\\\\\ data
    regsub -all -- \\\[ $data \\\\\[ data
    regsub -all -- \\\] $data \\\\\] data
    regsub -all -- \\\} $data \\\\\} data
    regsub -all -- \\\{ $data \\\\\{ data
    regsub -all -- \\\" $data \\\\\" data
    regsub -all -- \\\' $data \\\\\' data
    return $data
}



ma requete: (bind pub)
TCL
puts $fp "[filt [lrange $arg 0 end]]"



Resultat du puts dans mon .txt
Code :
\{\[05:04\]\} \{<\[_PAND0R3_\]|Big_Dodo>\} à demain, fin à taleu

Resultat du puts recherché
Code :
[05:04] <[_PAND0R3_]|Big_Dodo> à demain, fin à taleu

Merci pour vos réponses


RE: regsub ? - djkenny - 02/10/2012

salut,

TCL
puts $fp "[join $arg]"



Wink


RE: regsub ? - Supa - 02/10/2012

Merci guigui <3 Smile