En effet, il semble qu'on puisse remplacer la plupart des regsub par ta commande a toi donnant ainsi :
(...)
if {[::http::status $token] == "ok"} {
regexp {<div class="post">(.+?)</p>} [::http::data $token] res
regsub {\n} $res "" res
regsub -all {<[^>]+>} $res "" res
regsub {VDM$} $res "\002VDM\002" res
set result [vdm::string_filter $res]
puthelp "privmsg $chan :$result"
} else {
(...)
Je vais mettre une version tenant compte de ces modifs en ligne
(...)
if {[::http::status $token] == "ok"} {
regexp {<div class="post">(.+?)</p>} [::http::data $token] res
regsub {\n} $res "" res
regsub -all {<[^>]+>} $res "" res
regsub {VDM$} $res "\002VDM\002" res
set result [vdm::string_filter $res]
puthelp "privmsg $chan :$result"
} else {
(...)
Je vais mettre une version tenant compte de ces modifs en ligne