Thread In Text Smilies durch Bilder ersetzen (22 answers)
Opened by Froschpopo at 2005-04-12 01:17

Crian
 2005-04-13 17:34
#43472 #43472
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Bei Dir fehlt auf jeden Fall das Eintragen in das Tk::Text-Objekt. Das findet bei mir übrigens auch nur an einem Ort statt, vorher erzeuge ich Strukturen, die wissen, ob sie Text- oder Grafikelemente beherbergen. Am Ende werden diese dann nur noch in einer Schleife abgearbeitet und etweder der Text eingefügt oder eine entsprechende Grafik eingefügt.

Bei mir ist es ein mehrstufiger Prozess, da ich zunächst den Text stark zerhäcksle, um alle Foren-Tags zu fangen, dann werden Textstücke mit den gleichen Tk-Tags wieder zusammengefasst, dann werden im Text Smilies gesucht.
Ganz am Ende wird das Ergebnisarray wie oben beschrieben ausgegeben.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread In Text Smilies durch Bilder ersetzen