In Text Smilies durch Bilder ersetzen (Seite 3) (Graphische Oberflächen)

[thread]4933[/thread]

In Text Smilies durch Bilder ersetzen (Seite 3)

Leser: 1

Crian

2005-04-28 12:55

User since
2003-08-04
5866 Artikel
ModeratorIn

Da ist es allerdings noch nicht zu finden (-;

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

Froschpopo

2005-04-29 22:36

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

doll die Ausgabe von Regex::Assamble lautet: (?-xism:^(?::-[()]|;-)$)
Was soll ich damit?
bei meinem Array sieht die Ausgabe übrigens so aus:

Code: (dl )

(?-xism:(?:^(?::(?:-[()]|P)|-*fast|-bug|;-)|^*(?:smile|kiss))$)

Was ich brauch ist ein Array mit den Smilies in einem eigenen Index!\n\n

Froschpopo

2005-04-30 19:34

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

falls das noch jemanden interessiert, ich hab jetzt folgendes gemacht:

Code: (dl )

    my $smiley_re = join '|', map { "\Q$_\E" } keys %emotes;

    my @array = split /($smiley_re)/, $text;

    for (@array) {
        if (exists($emotes{$_})) {
            $config{BuddyListPane1}->imageCreate('end', -image => $prepare_emotes{$emotes{$_}});
        } else {
            $config{BuddyListPane1}->insert('end', $_, 'text');
        }
    }

läuft einwandfrei\n\n

View all threads created 2005-04-12 01:17.