Découpage de texte

[MenzAgitat]

Description :
Procédure à intégrer dans votre code, permettant d'annoncer du texte sur un chan en le découpant en autant de lignes que nécessaire afin de s'assurer qu'il ne sera pas tronqué par la limite de longueur de ligne de votre serveur IRC.


Syntaxe :

tclcopier

split_line $limit $chan $texte

$limit représente la longueur maximale qu'une ligne ne peut pas dépasser (le réglage n'est pas le même sur tous les serveurs IRC)
$chan représente le chan sur lequel vous voulez que le texte soit annoncé.
$texte représente le texte intégral que vous voulez afficher sur le chan.


Exemple :

tclcopier

split_line 420 #monchan "blablabla blabla blablabla bla blabla ...."

Code :

tclcopier

proc split_line {limit chan texte} {
	set output_length [string length $texte]
	set letter_index 0
	while {$letter_index < $output_length} {
		if {$output_length - $letter_index > $limit} {
			set cut_index [string last " " $texte [expr $letter_index + $limit ]]	
 		} else {
			set cut_index $output_length 
		}
		lappend output [string range $texte $letter_index $cut_index]
		set letter_index $cut_index
	}
	foreach line $output {
		puthelp "PRIVMSG $chan :$line"
	}
}

Sentez-vous libre de l'améliorer, de proposer de meilleures façons de faire et de poster votre code, le débat est ouvert.