SNIPPET $M2H : MIRC -> HTML , Source N°26522

Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 02/10/2004 Vu : 2 569

Auteur : PaDa

Ecrire un message privé

Note :

9,50 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Ce code parse du texte mirc et traduit couleurs/gras/souligné en html

Source

/*
Alias permettant de mettre du texte mirc au format HTML , de facon a conserver les couleurs sur une page de quotes par exemple :)
(m2h comme mirc to html)
le sens html -> mirc a déja été fait en partie par ic3flamez , sachant que les couleurs sont limitées avec mirc on ne peut pas vraiment aller plus loin)
Utilisation : //Echo -a $m2h(string)
*/
Alias m2h {
;codes couleur > ascii : b > 2 , k > 3 , o > 15 , r > 22 , u > 31
var %x $1-
;substitutions des gras
var %y = $regsub(%x,/\002(.*?)(?:\002|$)/g,\1,%x)
;substitution des soulignés (\031 ne fonctionne pas dans la regex)
var %y = $regsub(%x,/ $chr(31) (.*?)(?: $chr(31) |$)/gx,\1,%x) , %x = $remove(%x,,)
;permet que les ctrl + O éliminent le gras et le souligné , + Reverse
var %y = $regsub(%x,/(.*) $chr(15) (.*)/gx,\1 $+ $chr(15) $+ \2,%x) , %x = $replace(%x,$chr(15),$+($chr(3),01,$chr(44),00),$chr(22),$+($chr(3),00,$chr(44),01))
;substitution des ctrl + K
while $regex(%x,^(.*)\003(\d{0,2},?\d{0,2})(.*?)(?:\003|$)(.*)) {
tokenize 44 $regml(2)
%x = $regml(1) $+ $+ $regml(3) $+ $+ $regml(4)
}
return $+(,%x,)
}
Alias -l col { tokenize 44 $rgb($color($1)) | return $+($chr(35),$base($1,10,16,2),$base($2,10,16,2),$base($3,10,16,2)) }
Alias m2htxt {
var %i 1,%m $lines($$1)
.fopen h1 $1
.fopen -no h2 log.html
while (%i <= %m) {
.fwrite -n h2 $iif($fread(h1),$m2h($ifmatch),$chr(15))
inc %i
}
.fclose h?
run log.html
}

/*
Alias permettant de mettre du texte mirc au format HTML , de facon a conserver les couleurs sur une page de quotes par exemple :)
(m2h comme mirc to html)
le sens html -> mirc a déja été fait en partie par  ic3flamez , sachant que les couleurs sont limitées avec mirc on ne peut pas vraiment aller plus loin)
Utilisation : //Echo -a $m2h(string)
*/
Alias m2h {
  ;codes couleur > ascii : b > 2 , k > 3 , o > 15 , r > 22 , u > 31
  var %x $1-
  ;substitutions des gras
  var %y = $regsub(%x,/\002(.*?)(?:\002|$)/g,<b>\1</b>,%x)
  ;substitution des soulignés (\031 ne fonctionne pas dans la regex)
  var %y = $regsub(%x,/ $chr(31) (.*?)(?: $chr(31) |$)/gx,<u>\1</u>,%x) , %x = $remove(%x,<b></b>,<u></u>)
  ;permet que les ctrl + O éliminent le gras et le souligné , + Reverse
  var %y = $regsub(%x,/(<b>.*) $chr(15) (.*)</b>/gx,\1</b> $+ $chr(15) $+ \2</b>,%x) , %x = $replace(%x,$chr(15),$+($chr(3),01,$chr(44),00),$chr(22),$+($chr(3),00,$chr(44),01))
  ;substitution des ctrl + K
  while $regex(%x,^(.*)\003(\d{0,2},?\d{0,2})(.*?)(?:\003|$)(.*)) {
    tokenize 44 $regml(2)
    %x = $regml(1) $+ <span style="color: $+ $col($iif($1 isnum 0-15,$1,1)) $+ ;background-color: $+ $col($iif($2 isnum 0-15,$2,0)) $+ "> $+ $regml(3) $+ </span> $+ $regml(4) 
  }
  return $+(<font face="tahoma" size="2">,%x,<p>)
}
Alias -l col { tokenize 44 $rgb($color($1)) | return $+($chr(35),$base($1,10,16,2),$base($2,10,16,2),$base($3,10,16,2)) }
Alias m2htxt {
  var %i 1,%m $lines($$1)
  .fopen h1 $1
  .fopen -no h2 log.html
  while (%i <= %m) {
    .fwrite -n h2 $iif($fread(h1),$m2h($ifmatch),$chr(15))
    inc %i
  }
  .fclose h?
  run log.html
}

Conclusion

/m2htxt <fichier> est un alias d'exemple qui vous permet de visualiser un log en html par exemple
Le code HTML est surement relativement dégeu (dsl) si vous avez des trucs pour l'améliorer je veux bien , j'en fais pas du tout a la base donc certaines balises sont peut etre optionnelles je sais pas forcément , pi j'attends des remontées de bugs pour l'améliorer évidemment (yen aura certainement)

Sources du même auteur

Toutes les sources de PaDa

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Commentaires

Commentaire de PaDa le 02/10/2004 00:44:39

ousp
j'viens de tester , sur un gros log parfois l'alias $col merdouille et renvoie du rgb(blabla) au lieu de $rgb(blabla) , je ne sais pas a quoi c'est dû , tte idée d'optimisation est la bienvenue
Commentaire de Dark-Dragoon le 02/10/2004 22:02:32

[9:53pm] (pada) ca arrive. enfin , la ma dernière source gros bide personne dit rien

Mais non sa va ariver (:
Commentaire de Asthar le 03/10/2004 13:05:03

Tiens ... je cherchais un truc du style, je viens de trouver =)
Joli, bien codé, commenté ... tout ce qui faut.
9/10 :)
Commentaire de tidds le 03/10/2004 16:34:57

Bien joué. :)
Commentaire de tofu le 03/10/2004 17:12:46

<3
Commentaire de PaDa le 03/10/2004 19:59:47

merci :p j'désespérais d'avoir des comments
si zavez des idées hésitez pas