'billion', 1000000 => 'million', 1000 => 'thousand', 100 => 'hundred', 90 => 'ninety', 80 => 'eighty', 70 => 'seventy', 60 => 'sixty', 50 => 'fifty', 40 => 'fourty', 30 => 'thirty', 20 => 'twenty', 19 => 'nineteen', 18 => 'eighteen', 17 => 'seventeen', 16 => 'sixteen', 15 => 'fifteen', 14 => 'fourteen', 13 => 'thirteen', 12 => 'twelve', 11 => 'eleven', 10 => 'ten', 9 => 'nine', 8 => 'eight', 7 => 'seven', 6 => 'six', 5 => 'five', 4 => 'four', 3 => 'three', 2 => 'two', 1 => 'one', ); /** * Limits a phrase to a given number of words. * * $text = Text::limit_words($text); * * @param string $str phrase to limit words of * @param integer $limit number of words to limit to * @param string $end_char end character or entity * @return string */ public static function limit_words($str, $limit = 100, $end_char = NULL) { $limit = (int) $limit; $end_char = ($end_char === NULL) ? '…' : $end_char; if (trim($str) === '') return $str; if ($limit <= 0) return $end_char; preg_match('/^\s*+(?:\S++\s*+){1,'.$limit.'}/u', $str, $matches); // Only attach the end character if the matched string is shorter // than the starting string. return rtrim($matches[0]).((strlen($matches[0]) === strlen($str)) ? '' : $end_char); } /** * Limits a phrase to a given number of characters. * * $text = Text::limit_chars($text); * * @param string $str phrase to limit characters of * @param integer $limit number of characters to limit to * @param string $end_char end character or entity * @param boolean $preserve_words enable or disable the preservation of words while limiting * @return string * @uses UTF8::strlen */ public static function limit_chars($str, $limit = 100, $end_char = NULL, $preserve_words = FALSE) { $end_char = ($end_char === NULL) ? '…' : $end_char; $limit = (int) $limit; if (trim($str) === '' OR UTF8::strlen($str) <= $limit) return $str; if ($limit <= 0) return $end_char; if ($preserve_words === FALSE) return rtrim(UTF8::substr($str, 0, $limit)).$end_char; // Don't preserve words. The limit is considered the top limit. // No strings with a length longer than $limit should be returned. if ( ! preg_match('/^.{0,'.$limit.'}\s/us', $str, $matches)) return $end_char; return rtrim($matches[0]).((strlen($matches[0]) === strlen($str)) ? '' : $end_char); } /** * Alternates between two or more strings. * * echo Text::alternate('one', 'two'); // "one" * echo Text::alternate('one', 'two'); // "two" * echo Text::alternate('one', 'two'); // "one" * * Note that using multiple iterations of different strings may produce * unexpected results. * * @param string $str,... strings to alternate between * @return string */ public static function alternate() { static $i; if (func_num_args() === 0) { $i = 0; return ''; } $args = func_get_args(); return $args[($i++ % count($args))]; } /** * Generates a random string of a given type and length. * * * $str = Text::random(); // 8 character random string * * The following types are supported: * * alnum * : Upper and lower case a-z, 0-9 (default) * * alpha * : Upper and lower case a-z * * hexdec * : Hexadecimal characters a-f, 0-9 * * distinct * : Uppercase characters and numbers that cannot be confused * * You can also create a custom type by providing the "pool" of characters * as the type. * * @param string $type a type of pool, or a string of characters to use as the pool * @param integer $length length of string to return * @return string * @uses UTF8::split */ public static function random($type = NULL, $length = 8) { if ($type === NULL) { // Default is to generate an alphanumeric string $type = 'alnum'; } $utf8 = FALSE; switch ($type) { case 'alnum': $pool = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; break; case 'alpha': $pool = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; break; case 'hexdec': $pool = '0123456789abcdef'; break; case 'numeric': $pool = '0123456789'; break; case 'nozero': $pool = '123456789'; break; case 'distinct': $pool = '2345679ACDEFHJKLMNPRSTUVWXYZ'; break; default: $pool = (string) $type; $utf8 = ! UTF8::is_ascii($pool); break; } // Split the pool into an array of characters $pool = ($utf8 === TRUE) ? UTF8::str_split($pool, 1) : str_split($pool, 1); // Largest pool key $max = count($pool) - 1; $str = ''; for ($i = 0; $i < $length; $i++) { // Select a random character from the pool and add it to the string $str .= $pool[mt_rand(0, $max)]; } // Make sure alnum strings contain at least one letter and one digit if ($type === 'alnum' AND $length > 1) { if (ctype_alpha($str)) { // Add a random digit $str[mt_rand(0, $length - 1)] = chr(mt_rand(48, 57)); } elseif (ctype_digit($str)) { // Add a random letter $str[mt_rand(0, $length - 1)] = chr(mt_rand(65, 90)); } } return $str; } /** * Uppercase words that are not separated by spaces, using a custom * delimiter or the default. * * $str = Text::ucfirst('content-type'); // returns "Content-Type" * * @param string $string string to transform * @param string $delimiter delemiter to use * @return string */ public static function ucfirst($string, $delimiter = '-') { // Put the keys back the Case-Convention expected return implode($delimiter, array_map('ucfirst', explode($delimiter, $string))); } /** * Reduces multiple slashes in a string to single slashes. * * $str = Text::reduce_slashes('foo//bar/baz'); // "foo/bar/baz" * * @param string $str string to reduce slashes of * @return string */ public static function reduce_slashes($str) { return preg_replace('#(? '#####', * )); * * @param string $str phrase to replace words in * @param array $badwords words to replace * @param string $replacement replacement string * @param boolean $replace_partial_words replace words across word boundries (space, period, etc) * @return string * @uses UTF8::strlen */ public static function censor($str, $badwords, $replacement = '#', $replace_partial_words = TRUE) { foreach ( (array) $badwords as $key => $badword) { $badwords[$key] = str_replace('\*', '\S*?', preg_quote( (string) $badword)); } $regex = '('.implode('|', $badwords).')'; if ($replace_partial_words === FALSE) { // Just using \b isn't sufficient when we need to replace a badword that already contains word boundaries itself $regex = '(?<=\b|\s|^)'.$regex.'(?=\b|\s|$)'; } $regex = '!'.$regex.'!ui'; if (UTF8::strlen($replacement) == 1) { $regex .= 'e'; return preg_replace($regex, 'str_repeat($replacement, UTF8::strlen(\'$1\'))', $str); } return preg_replace($regex, $replacement, $str); } /** * Finds the text that is similar between a set of words. * * $match = Text::similar(array('fred', 'fran', 'free'); // "fr" * * @param array $words words to find similar text of * @return string */ public static function similar(array $words) { // First word is the word to match against $word = current($words); for ($i = 0, $max = strlen($word); $i < $max; ++$i) { foreach ($words as $w) { // Once a difference is found, break out of the loops if ( ! isset($w[$i]) OR $w[$i] !== $word[$i]) break 2; } } // Return the similar text return substr($word, 0, $i); } /** * Converts text email addresses and anchors into links. Existing links * will not be altered. * * echo Text::auto_link($text); * * [!!] This method is not foolproof since it uses regex to parse HTML. * * @param string $text text to auto link * @return string * @uses Text::auto_link_urls * @uses Text::auto_link_emails */ public static function auto_link($text) { // Auto link emails first to prevent problems with "www.domain.com@example.com" return Text::auto_link_urls(Text::auto_link_emails($text)); } /** * Converts text anchors into links. Existing links will not be altered. * * echo Text::auto_link_urls($text); * * [!!] This method is not foolproof since it uses regex to parse HTML. * * @param string $text text to auto link * @return string * @uses HTML::anchor */ public static function auto_link_urls($text) { // Find and replace all http/https/ftp/ftps links that are not part of an existing html anchor $text = preg_replace_callback('~\b(?)(?:ht|f)tps?://[^<\s]+(?:/|\b)~i', 'Text::_auto_link_urls_callback1', $text); // Find and replace all naked www.links.com (without http://) return preg_replace_callback('~\b(?)www(?:\.[a-z0-9][-a-z0-9]*+)+\.[a-z]{2,6}[^<\s]*\b~i', 'Text::_auto_link_urls_callback2', $text); } protected static function _auto_link_urls_callback1($matches) { return HTML::anchor($matches[0]); } protected static function _auto_link_urls_callback2($matches) { return HTML::anchor('http://'.$matches[0], $matches[0]); } /** * Converts text email addresses into links. Existing links will not * be altered. * * echo Text::auto_link_emails($text); * * [!!] This method is not foolproof since it uses regex to parse HTML. * * @param string $text text to auto link * @return string * @uses HTML::mailto */ public static function auto_link_emails($text) { // Find and replace all email addresses that are not part of an existing html mailto anchor // Note: The "58;" negative lookbehind prevents matching of existing encoded html mailto anchors // The html entity for a colon (:) is : or : or : etc. return preg_replace_callback('~\b(?)~i', 'Text::_auto_link_emails_callback', $text); } protected static function _auto_link_emails_callback($matches) { return HTML::mailto($matches[0]); } /** * Automatically applies "p" and "br" markup to text. * Basically [nl2br](http://php.net/nl2br) on steroids. * * echo Text::auto_p($text); * * [!!] This method is not foolproof since it uses regex to parse HTML. * * @param string $str subject * @param boolean $br convert single linebreaks to
* @return string */ public static function auto_p($str, $br = TRUE) { // Trim whitespace if (($str = trim($str)) === '') return ''; // Standardize newlines $str = str_replace(array("\r\n", "\r"), "\n", $str); // Trim whitespace on each line $str = preg_replace('~^[ \t]+~m', '', $str); $str = preg_replace('~[ \t]+$~m', '', $str); // The following regexes only need to be executed if the string contains html if ($html_found = (strpos($str, '<') !== FALSE)) { // Elements that should not be surrounded by p tags $no_p = '(?:p|div|h[1-6r]|ul|ol|li|blockquote|d[dlt]|pre|t[dhr]|t(?:able|body|foot|head)|c(?:aption|olgroup)|form|s(?:elect|tyle)|a(?:ddress|rea)|ma(?:p|th))'; // Put at least two linebreaks before and after $no_p elements $str = preg_replace('~^<'.$no_p.'[^>]*+>~im', "\n$0", $str); $str = preg_replace('~$~im', "$0\n", $str); } // Do the

magic! $str = '

'.trim($str).'

'; $str = preg_replace('~\n{2,}~', "

\n\n

", $str); // The following regexes only need to be executed if the string contains html if ($html_found !== FALSE) { // Remove p tags around $no_p elements $str = preg_replace('~

(?=]*+>)~i', '', $str); $str = preg_replace('~(]*+>)

~i', '$1', $str); } // Convert single linebreaks to
if ($br === TRUE) { $str = preg_replace('~(?\n", $str); } return $str; } /** * Returns human readable sizes. Based on original functions written by * [Aidan Lister](http://aidanlister.com/repos/v/function.size_readable.php) * and [Quentin Zervaas](http://www.phpriot.com/d/code/strings/filesize-format/). * * echo Text::bytes(filesize($file)); * * @param integer $bytes size in bytes * @param string $force_unit a definitive unit * @param string $format the return string format * @param boolean $si whether to use SI prefixes or IEC * @return string */ public static function bytes($bytes, $force_unit = NULL, $format = NULL, $si = TRUE) { // Format string $format = ($format === NULL) ? '%01.2f %s' : (string) $format; // IEC prefixes (binary) if ($si == FALSE OR strpos($force_unit, 'i') !== FALSE) { $units = array('B', 'KiB', 'MiB', 'GiB', 'TiB', 'PiB'); $mod = 1024; } // SI prefixes (decimal) else { $units = array('B', 'kB', 'MB', 'GB', 'TB', 'PB'); $mod = 1000; } // Determine unit to use if (($power = array_search( (string) $force_unit, $units)) === FALSE) { $power = ($bytes > 0) ? floor(log($bytes, $mod)) : 0; } return sprintf($format, $bytes / pow($mod, $power), $units[$power]); } /** * Format a number to human-readable text. * * // Display: one thousand and twenty-four * echo Text::number(1024); * * // Display: five million, six hundred and thirty-two * echo Text::number(5000632); * * @param integer $number number to format * @return string * @since 3.0.8 */ public static function number($number) { // The number must always be an integer $number = (int) $number; // Uncompiled text version $text = array(); // Last matched unit within the loop $last_unit = NULL; // The last matched item within the loop $last_item = ''; foreach (Text::$units as $unit => $name) { if ($number / $unit >= 1) { // $value = the number of times the number is divisble by unit $number -= $unit * ($value = (int) floor($number / $unit)); // Temporary var for textifying the current unit $item = ''; if ($unit < 100) { if ($last_unit < 100 AND $last_unit >= 20) { $last_item .= '-'.$name; } else { $item = $name; } } else { $item = Text::number($value).' '.$name; } // In the situation that we need to make a composite number (i.e. twenty-three) // then we need to modify the previous entry if (empty($item)) { array_pop($text); $item = $last_item; } $last_item = $text[] = $item; $last_unit = $unit; } } if (count($text) > 1) { $and = array_pop($text); } $text = implode(', ', $text); if (isset($and)) { $text .= ' and '.$and; } return $text; } /** * Prevents [widow words](http://www.shauninman.com/archive/2006/08/22/widont_wordpress_plugin) * by inserting a non-breaking space between the last two words. * * echo Text::widont($text); * * @param string $str text to remove widows from * @return string */ public static function widont($str) { $str = rtrim($str); $space = strrpos($str, ' '); if ($space !== FALSE) { $str = substr($str, 0, $space).' '.substr($str, $space + 1); } return $str; } /** * Returns information about the client user agent. * * // Returns "Chrome" when using Google Chrome * $browser = Text::user_agent('browser'); * * Multiple values can be returned at once by using an array: * * // Get the browser and platform with a single call * $info = Text::user_agent(array('browser', 'platform')); * * When using an array for the value, an associative array will be returned. * * @param mixed $value array or string to return: browser, version, robot, mobile, platform * @return mixed requested information, FALSE if nothing is found * @uses Kohana::$config */ public static function user_agent($agent, $value) { if (is_array($value)) { $data = array(); foreach ($value as $part) { // Add each part to the set $data[$part] = Text::user_agent($agent, $part); } return $data; } if ($value === 'browser' OR $value == 'version') { // Extra data will be captured $info = array(); // Load browsers $browsers = Kohana::$config->load('user_agents')->browser; foreach ($browsers as $search => $name) { if (stripos($agent, $search) !== FALSE) { // Set the browser name $info['browser'] = $name; if (preg_match('#'.preg_quote($search).'[^0-9.]*+([0-9.][0-9.a-z]*)#i', Request::$user_agent, $matches)) { // Set the version number $info['version'] = $matches[1]; } else { // No version number found $info['version'] = FALSE; } return $info[$value]; } } } else { // Load the search group for this type $group = Kohana::$config->load('user_agents')->$value; foreach ($group as $search => $name) { if (stripos($agent, $search) !== FALSE) { // Set the value name return $name; } } } // The value requested could not be found return FALSE; } } // End text