source: branches/rsr.v5.1.1/web/punbb/include/utf8/substr_replace.php @ 10

<?php

/**
* @version $Id: substr_replace.php,v 1.1 2006/02/25 13:50:17 harryf Exp $
* @package utf8
* @subpackage strings
*/

/**
* UTF-8 aware substr_replace.
* Note: requires utf8_substr to be loaded
* @see http://www.php.net/substr_replace
* @see utf8_strlen
* @see utf8_substr
*/
function utf8_substr_replace($str, $repl, $start , $length=null)
{
        preg_match_all('/./us', $str, $ar);
        preg_match_all('/./us', $repl, $rar);

        if($length === null)
                $length = utf8_strlen($str);

        array_splice($ar[0], $start, $length, $rar[0]);

        return implode($ar[0]);
}