Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


[Resolu] Ajout de couleur durant une lecture de fichier
#1
Bonsoir à tous,
Voila j'ai un code (qui n'est certes pas très beau) fonctionnel dans ces grandes lignes mais manque de personnalisation.

En effet j'aimerais pouvoir y inclure si possible diverses couleurs à la lecture de mon fichier .txt hors je ne voit pas du tout comment faire

Voici le code:

tcl
bind pubm -|- "*" pub_modo2
proc pub_modo2 {nick host hand chan arg} {
global mirc_strip 
        set arg [mirc_strip $arg]
        set commurl [lindex $arg 0]
		set cmd [string tolower [lindex $arg 1]]
		set fichiertext "scripts/project/modo/$cmd.txt"
        switch -- $commurl {
		"!modo2" {
		if {$cmd eq "" } {putfast "NOTICE $nick :\0034SyntaXe :\0033 !modo2 <pseudo1/pseudo2> "; }
		set ouverturefichier [open $fichiertext r]
		while { ![eof $ouverturefichier] } {
		gets $ouverturefichier rrabus
		set len [string length $rrabus]
		putdccraw 0 [expr $len + 1] "$rrabus\n" 
		putquick "PRIVMSG $nick :\0034$rrabus"
		close $ouverturefichier
		return 0
		}
	}
}

Voici le resultat:
Voici qui est le modérateur Pseudo1
Il à X années
Il aime les lasagnes


Maintenant si je souhaite rajouter d'autres couleurs dans le texte, je suis simplement perdu.

Merci d'avance de l'aide



Re bonsoir,
Directement sur le canal IRC, MenzAgitat m'a offert la réponse.
Il faut utiliser les "string map" afin de déclarer les mots qui seront mis de différentes couleurs
De cette manière seul les premiers mots pour ma part vont apparaître en "Rouge" et les mots qui suive en "Vert"

Voici le code fonctionnel:

tcl
bind pubm -|- "*" pub_modo2
proc pub_modo2 {nick host hand chan arg} {
        set arg [mirc_strip $arg]
        set cmd [lindex $arg 0]
		set cmd2 [string tolower [lindex $arg 1]]
		set fichiertext "scripts/project/modo/$cmd2.txt"
        switch -- $cmd {
		"!modo2" {
		if {$cmd2 eq "" } {putfast "NOTICE $nick :\0034SyntaXe :\0033 !modo2 <pseudo1/pseudo2> "; }
		set ouverturefichier [open $fichiertext r]
		while { ![eof $ouverturefichier] } {
		gets $ouverturefichier lecturefichier
		set len [string length $lecturefichier]
		set lecturefichier [string map {"Pseudonyme :" "\0034Pseudonyme :\0033" "Prenom :" "\0034Prenom : \0033" "Departement :" "\0034Departement :\0033" "Description :" "\0034Description :\0033" "Phrase perso :" "\0034Phrase perso :\0033"} $lecturefichier]
		putdccraw 0 [expr $len + 1] "$lecturefichier\n" 
		putquick "PRIVMSG $nick :\0034$lecturefichier"
		}
		close $ouverturefichier
		return 0
		}
	}
}


Et voici l’intérieur d'un de mes fichiers .txt

Code:
Informations sur le moderateur
Pseudonyme : Pseudo1
Prenom : Pseudo2
Departement : XX
Description : Aime les lasagnes
- - - -
Phrase perso : Aucune idée


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Résolu] Erreur lors de la lecture d'un fichier heretoc 3 5,169 25/12/2012, 23:12
Last Post: CrazyCat
  [Résolu]Fichier vide. aliasangelius 1 3,572 18/09/2012, 15:46
Last Post: aliasangelius
  [Résolu]Une sauvegarde de fichier. aliasangelius 4 3,822 16/07/2012, 16:19
Last Post: aliasangelius
  commande et personne qui écrive en couleur Alucard`68 1 3,583 18/03/2012, 10:48
Last Post: CrazyCat
  Lecture fichier (ou bdd) heretoc 5 5,603 15/06/2011, 23:31
Last Post: heretoc
  comment enlevé le Kick couleur snip74 1 3,477 04/06/2011, 13:25
Last Post: CrazyCat
  Erreur lecture fichier.db heretoc 6 4,770 10/07/2010, 03:01
Last Post: heretoc
  Ajout de fichier pour un quizz loulou7593 2 4,046 28/05/2010, 22:41
Last Post: loulou7593

Forum Jump:


Users browsing this thread: 1 Guest(s)