使用php重新实现PHP脚本引擎内置函数(1)

     // 实在无聊,突发奇想,想把PHP里面部分已经提供封装好的函数重新使用PHP实现一遍,
  // 于是便有了下面的代码主要实现了PHP中部分字符串处理函数,同时实现了一些PHP中
  // 没有,但是同样有作用的字符串处理函数同样的这些函数,也能够使用其他语言来实
  // 现,比如用C/VBScript/Perl等等,那么你就能够有一个自己的函数库.
  // 以下函数不一定能够成功运行,只是为了学习而已。
  //
  // 如果无特别声明,全部是由于heiyeluren原创,要使用任何函数都请保留作者信息
  
  
  /**
   * String Functions Reconstruct
   *
   * Copyright (c) 2005 heiyeluren <heiyeluren@163.com>
   * Author: heiyeluren <heiyeluren@163.com>
  
   * $Id: StringFunctions.php,v 0.1 e 2005-5-29 23:21 heiyeluren Exp $
  **/
  
  
  // {{{ strlen()
  /**
   * Count string length
   *
   * @param string $str need count length string variable
   * @return int return count result
   * @version v0.1
   * @create 2005-5-24
   * @modified 2005-5-24
   * @author heiyeluren <hyeiyeluren@163.com>
   */
  function strlen1($str)
  {
   if ($str == '')
   return 0;
  
   $count = 0;
   while (1)
   {
   if ($str[$count] != NULL)
   {
   $count++;
   continue;
   }
   else
   break;
   }
   return $count;
  }
  // }}}
  
  
  // {{{ substr()
  /**
   * Get sub string
   *
   * @param string $str need get sub string variable
   * @param int $start start get sub string
   * @param int $length need get string length
   * @return string return sub string
   * @version v0.2
   * @create 2005-5-24
   * @modified 2005-5-25
   * @author heiyeluren <hyeiyeluren@163.com>
   */
  function substr1($str, $start, $length=0)
  {
   if ($str == '')
   return;
   if ($start > strlen($str))
   return;
   if (($length != NULL) && ($start > 0) && ($length > strlen($str)-$start))
   return;
   if (($length != NULL) && ($start < 0) && ($length > strlen($str)+$start))
   return;
  
   if ($length == NULL)
   $length = (strlen($str) - $start);
  
   if ($start < 0)
   {
   for ($i=(strlen($str)+$start); $i<(strlen($str)+$start+$length); $i++)
   {
   $substr .= $str[$i];
   }
   }
  
   if ($length > 0)
   {
   for ($i=$start; $i<($start+$length); $i++)
   {
   $substr .= $str[$i];
   }
   }
  
   if ($length < 0)
   {
   for ($i=$start; $i<(strlen($str)+$length); $i++)
   {
   $substr .= $str[$i];
   }
   }
   return $substr;
  }
  // }}}
  
  
  // {{{ strrev()
  /**
   * Reversal string order
   *
   * @param string $str need reversal string variable
   * @return string reversal string
   * @version v0.1 www.knowsky.com
   * @create 2005-5-24
   * @modified 2005-5-24
   * @author heiyeluren <hyeiyeluren@163.com>
   */
  function strrev1($str)
  {
   if ($str == '')
   return 0;
   for ($i=(strlen($str)-1); $i>=0; $i--)
   {
   $rev_str .= $str[$i];
   }
   return $rev_str;
  }
  // }}}
  
  
  // {{{ strcmp()
  /**
   * String comparison
   *
   * @param string $s1 first string
   * @param string $s2 second string
   * @return int return -1,str1 < str2; return 1, str1 > str2, str1 = str2,
   * return 0, other, return false
   * @version v0.1
   * @create 2005-5-24
   * @modified 2005-5-24
   * @author heiyeluren <hyeiyeluren@163.com>
   */
  function strcmp1($s1, $s2)
  {
   if (strlen($s1) < strlen($s2))
   return -1;
   if (strlen($s1) > strlen($s2))
   return 1;
  
   for ($i=0; $i<strlen($s1); $i++)
   {
   if ($s1[$i] == $s2[$i])
   continue;
   else
   return false;
   }
   return 0;
  }
  // }}}
  
  
  // {{{ strchr(), strstr(), strpos()
  /**
   * Find first occurrence of a string
   *
   * @param string $str parent string
   * @param string $substr need match sub string
   * @return int return find sub string at parent string first place,
   * f not find, return false
   * @version v0.4
   * @create 2005-5-24
   * @modified 2005-5-29
   * @author heiyeluren <hyeiyeluren@163.com>
   */
  function strchr1($str, $substr)
  {
   $m = strlen($str);
   $n = strlen($substr);
  
   if ($m < $n)
   return false;
  
   for ($i=0; $i<=($m-$n+1); $i++)
   {
   $sub = substr($str, $i, $n);
   if (strcmp($sub, $substr) == 0)
   return $i;
   }
   return false;
  }
  // }}}
  
  
  
  
    做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。