Smilies-Funktion

vbtricks

Salut,

ich versuche gerade, Smilies auf meiner Seite zu integrieren, dafür habe ich folgende Funktion geschrieben:

Code

function dosmilies($text) {
   $smiliessemicolon = array(";)" => "smilie03.gif",
    ";-)" => "smilie03.gif");

   // lower case for keys!
   $smiliesdot = array(":)" => "smilie0 1.gif",
    ":-)" => "smilie0 1.gif",
    ">:)" => "smilie04.gif",
    ">:-)" => "smilie04.gif",
    ":devil:" => "smilie04.gif",
    ":p" => "smilie06.gif",
    ":-p" => "smilie06.gif",
    ":d" => "smilie02.gif",
    ":-d" => "smilie02.gif",
    ":-(" => "smilie05.gif",
    ":(" => "smilie05.gif",
    ":o)" => "smilie07.gif",
    ":o" => "smilie07.gif"
   );

   $pos = strpos($text, ":", 0);
   while($pos != false) {
     //$pos2 = strrpos($text, "<pre>", $pos);
     //if(($pos2 == false) || (strrpos($text, "</pre>") > $pos2))
     //{
       reset($smiliesdot);
       while (list ($key, $val) = each ($smiliesdot))
       {
         if(strtolower(substr($text, $pos, strlen($key))) == $key) {
           $temp = "<img src=\"img/smilies/".$val."\" border=\"0\" alt=\"$key\" />";
           $text = substr($text, 0, $pos).$temp.substr($text, $pos + strlen($key));
           $pos += strlen($temp);
           break;
         }
       }
     //}
     $pos = strpos($text, ":", $pos + 1);
   }
   return $text;
}

Alles anzeigen

Diese ersetzt aber natürlich im gesamten Text die entsprechenden Kürzel durch die Bilder. Zwischen den Anfangs- und End-Tags von <pre> und <input> möchte ich das aber verhindern.

Also wollte ich die auskommentierten Zeilen einfügen. Bei der ersten erhalte ich aber den Fehler, dass zu viele Parameter angegeben seien. Scheinbar unterstützt meine PHP-Version (4.4) noch nicht den offset-Parameter.

Daher meine Frage: Wie kann ich anders rückwärts suchen (bleibt mir nur die manuelle Version mit einer Schleife) oder gibt es gar eine weitaus effizientere Möglichkeit, die Smilies zu ersetzen?

Danke im Voraus,

Stefan

BendOr

du musst den text am besten unterteilen
zB mit
$erg = split('\</?pre\>', $text);
dann kannste noch mit einer foreach schleife smilies ersetzen/nicht ersetzen lassen

Modula

...änder auch noch while($pos != false) in while($pos !== false)

vbtricks

Salut,

Modula
erst habe ich mich ja gefragt, wieso, aber inzwischen ist es mir klar. Sonst wird die Schleife nämlich nie ausgeführt.

BendOr:
Wenn es sich nur um einen Tag handeln würde, wäre das eine praktikable Lösung. Leider habe ich noch mehr Tags, das war aus meinem Post aber auch nicht ersichtlich.

Folgendes ist jetzt meine Lösung:

Code

function dosmiliestextpart($text, $smiliesdot, $smiliessemicolon) {
   $pos = strpos($text, ":", 0);
   while($pos != false) {
     reset($smiliesdot);
     while (list ($key, $val) = each ($smiliesdot))
     {
       if(strtolower(substr($text, $pos, strlen($key))) == $key) {
         $temp = "<img src=\"img/smilies/".$val."\" border=\"0\" alt=\"$key\" />";
         $text = substr($text, 0, $pos).$temp.substr($text, $pos + strlen($key));
         $pos += strlen($temp);
         break;
       }
     }
     $pos = strpos($text, ":", $pos + 1);
   }

   $pos = strpos($text, ";", 0);
   while($pos != false) {
     reset($smiliessemicolon);
     while (list ($key, $val) = each ($smiliessemicolon))
     {
       if(substr($text, $pos, strlen($key)) == $key) {
         $temp = "<img src=\"img/smilies/".$val."\" border=\"0\" alt=\"$key\" />";
         $text = substr($text, 0, $pos).$temp.substr($text, $pos + strlen($key));
         $pos += strlen($temp);
         break;
       }
     }
     $pos = strpos($text, ";", $pos + 1);
   }
   return $text; 
 }
 
 function dosmilies($text) {
   $smiliessemicolon = array(";)" => "smilie03.gif",
    ";-)" => "smilie03.gif");

   // lower case for keys!
   $smiliesdot = array(":)" => "smilie 01.gif",
    ":-)" => "smilie 01.gif",
    ">:)" => "smilie04.gif",
    ">:-)" => "smilie04.gif",
    ":devil:" => "smilie04.gif",
    ":p" => "smilie06.gif",
    ":-p" => "smilie06.gif",
    ":d" => "smilie02.gif",
    ":-d" => "smilie02.gif",
    ":-(" => "smilie05.gif",
    ":(" => "smilie05.gif",
    ":o)" => "smilie07.gif",
    ":o" => "smilie07.gif"
   );

   // 
   $tags = array("pre", "input");

   $pos == 0;
   while($pos !== false) {
     $smallestpos = strlen($text);
     $smallestpostag = "";
     // find the first occurance of one of the $tags
     for($i = 0; $i < count($tags); $i++)
     {
       $pos2 = strpos($text, "<".$tags[$i], $pos);
       if(($pos2 > 0) && ($pos2 < $smallestpos)) {
        $smallestpos = $pos2;
        $smallestpostag = $tags[$i];
       }
     }
     $temp = substr($text, $pos, $smallestpos - $pos);
     $new = dosmiliestextpart($temp, $smiliesdot, $smiliessemicolon);


     $text = substr($text, 0, $pos).$new.substr($text, $smallestpos);
     if($smallestpostag == "") {
       $pos = false;
     }
     else {
       $pos = $pos + strlen($new);
       $pos3 = strpos($text, "/>", $pos);
       $pos4 = strpos($text, "<", $pos);
       if(($pos3 != false) && ($pos3 < $pos4)) {
         $pos = $pos4 + 2;
       }
       else {
         $pos = strpos($text, "</".$smallestpostag, $pos);
       }
     }
   }
   return $text;
 }

Alles anzeigen

Stefan

Modula

vbtricks, um in PHP einen Vergleich auf boolscher Ebene durchzuführen muss man === bzw. !== verwenden.

vbtricks

Salut,

ja, ich weiß. Verwende ich nur "==", konvertiert PHP. Und 0 entspricht dann gerade false.

Normalerweise programmiere ich mit C#, da hab ich solche Probleme mit der Typensicherheit nicht.

Stefan