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


Posted in PHP onMarch 06, 2007

// 实在无聊,突发奇想,想把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
 * @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;
}
// }}}

// {{{ str_replace()
/**
 * Replace all occurrences of the search string with the replacement string
 *
 * @param string $substr  need replace sub string variable
 * @param string $newsubstr new sub string
 * @param string $str  operate parent string
 * @return string   return replace after new parent string
 * @version v0.2
 * @create 2005-5-24
 * @modified 2005-5-29 
 * @author heiyeluren <hyeiyeluren@163.com>
 */
function str_replace1($substr, $newsubstr, $str)
{
 $m = strlen($str);
 $n = strlen($substr);
 $x = strlen($newsubstr);

 if (strchr($str, $substr) == false)
  return false;

 for ($i=0; $i<=($m-$n+1); $i++)
 {
  $i = strchr($str, $substr);
  $str = str_delete($str, $i, $n);
  $str = str_insert($str, $i, $newstr);
 }
 return $str;
}
// }}}

/************ 以下串处理函数是PHP中没有的,自己写着玩 ***************/

// {{{ insert_str(), delete_str(), index_str()
/**
 * Basic string operate
 *
 * @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.1
 * @create 2005-5-24
 * @modified 2005-5-24 
 * @author heiyeluren <hyeiyeluren@163.com>
 */
function str_insert($str, $i, $substr)
{

 for($j=0; $j<$i; $j++)
 {
  $startstr .= $str[$j];
 }

 for ($j=$i; $j<strlen($str); $j++)
 {
  $laststr .= $str[$j];
 }
 $str = ($startstr . $substr . $laststr);

 return $str;
}

function str_delete($str, $i, $j)
{
 for ($c=0; $c<$i; $c++)
 {
  $startstr .= $str[$c];
 }

 for ($c=($i+$j); $c<strlen($str); $c++)
 {
  $laststr .= $str[$c];
 }

 $str = ($startstr . $laststr);

 return $str;
}
// }}}

// {{{ strcpy()
/**
 * Use designate sub string  replace 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.1
 * @create 2005-5-27
 * @modified 2005-5-27 
 * @author heiyeluren <hyeiyeluren@163.com>
 */
function strcpy($s1, $s2)
{
 if (strlen($s1) == NULL)
  return;
 if (!isset($s2))
  return;

 for ($i=0; $i<strlen($s1); $i++)
 {
  $s2[] = $s1[$i];
 }
 return $s2;
}
// }}}

// {{{ strcat()
/**
 * Use designate sub string  replace 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.1
 * @create 2005-5-27
 * @modified 2005-5-27 
 * @author  heiyeluren <hyeiyeluren@163.com>
 */
 function strcat($s1, $s2)
 {
 if (!isset($s1))
  return;
 if (!isset($s2))
  return;

 $newstr = $s1 . $s2;

 return $newsstr;
 }
// }}}

// {{{ php_encode(), php_decode()
/**
 * Simple string encode/decode function
 *
 * @param string $str need code/encode string variable 
 * @return string  code/encode after string
 * @version v0.2
 * @create 2005-3-11
 * @modified 2005-5-24 
 * @author heiyeluren <hyeiyeluren@163.com>
 */

/* String encode function */
function php_encode($str)
{
 if ($str=='' && strlen($str)>128)
  return false;

 for($i=0; $i<strlen($str); $i++)
 {
  $c = ord($str[$i]);
  if ($c>31 && $c<107)
   $c += 20;
  if ($c>106 && $c<127)
   $c -= 75;
  $word = chr($c);

  $s .= $word;
 } 
 return $s; 
}

/* String decode function */
function php_decode($str)
{
 if ($str=='' && strlen($str)>128)
  return false;

 for($i=0; $i<strlen($str); $i++)
 {
  $c = ord($word);
  if ($c>106 && $c<127)
   $c = $c-20;
  if ($c>31 && $c<107)
   $c = $c+75;
  $word = chr($c);

  $s .= $word;
 } 
 return $s; 
}
// }}}

// {{{ php_encrypt(), php_decrypt()
/**
 * Simple string encrypt/decrypt function
 *
 * @param string $str need crypt string variable 
 * @return string  encrypt/decrypt after string
 * @version v0.1
 * @create 2005-5-27
 * @modified 2005-5-29 
 * @author heiyeluren <hyeiyeluren@163.com>
 */

/* define crypt key */
$encrypt_key = 'abcdefghijklmnopqrstuvwxyz1234567890';
$decrypt_key = 'ngzqtcobmuhelkpdawxfyivrsj2468021359';

/* String encrypt function */
function php_encrypt($str)
{
 global $encrypt_key, $decrypt_key;

 if (strlen($str) == 0)
  return false;

 for ($i=0; $i<strlen($str); $i++)
 {
  for ($j=0; $j<strlen($encrypt_key); $j++)
  {
   if ($str[$i] == $encrypt_key[$j])
   {
    $enstr .= $decrypt_key[$j];
    break;
   }
  }
 }
 return $enstr;
}

/* String decrypt function */
function php_decrypt($str)
{
 global $encrypt_key, $decrypt_key;

 if (strlen($str) == 0)
  return false;

 for ($i=0; $i<strlen($str); $i++)
 {
  for ($j=0; $j<strlen($decrypt_key); $j++)
  {
   if ($str[$i] == $decrypt_key[$j])
   {
    $enstr .= $encrypt_key[$j];
    break;
   }
  }
 }
 return $enstr;
}
// }}}

如果代码不清晰的话,建议查看一下连接,是我在blogchina的博客:

http://heiyeluren.blogchina.com/1741318.html

PHP 相关文章推荐
php adodb连接带密码access数据库实例,测试成功
May 14 PHP
PHP在字符串中查找指定字符串并删除的代码
Oct 02 PHP
DISCUZ 论坛管理员密码忘记的解决方法
May 14 PHP
mcrypt启用 加密以及解密过程详细解析
Aug 07 PHP
解决PhpMyAdmin中导入2M以上大文件限制的方法分享
Jun 06 PHP
PHP检测用户语言的方法
Jun 15 PHP
Zend Framework+smarty用法实例详解
Mar 19 PHP
Laravel 5.3 学习笔记之 配置
Aug 28 PHP
深入浅析Yii admin的权限控制
Aug 31 PHP
php封装一个异常的处理类
Jun 08 PHP
PHP实现的微信APP支付功能示例【基于TP5框架】
Sep 16 PHP
深入理解PHP+Mysql分布式事务与解决方案
Dec 03 PHP
15种PHP Encoder的比较
Mar 06 #PHP
可定制的PHP缩略图生成程式(需要GD库支持)
Mar 06 #PHP
如何从一个php文件向另一个地址post数据,不用表单和隐藏的变量的
Mar 06 #PHP
收集的php编写大型网站问题集
Mar 06 #PHP
用PHP实现Ftp用户的在线管理的代码
Mar 06 #PHP
个人站长制做网页常用的php代码
Mar 03 #PHP
NOD32 v2.70.32 简体中文封装版 提供下载了
Feb 27 #PHP
You might like
php 获取当前访问的url文件名的方法小结
2010/02/08 PHP
对于PHP 5.4 你必须要知道的
2013/08/07 PHP
JavaScript 特殊字符
2007/04/05 Javascript
HTML中Select不用Disabled实现ReadOnly的效果
2008/04/07 Javascript
解决IE下select标签innerHTML插入option的BUG(兼容IE,FF,Opera,Chrome,Safari)
2010/05/13 Javascript
同一页面多个商品倒计时JS 基于面向对象的javascript
2012/02/16 Javascript
基于jquery打造的百分比动态色彩条插件
2012/09/19 Javascript
jquery修改属性值实例代码(设置属性值)
2014/01/06 Javascript
谷歌浏览器调试JavaScript小技巧
2014/12/29 Javascript
jQuery动画效果相关方法实例分析
2015/12/31 Javascript
在IE8上JS实现combobox支持拼音检索功能
2016/05/23 Javascript
工厂模式在JS中的实践
2017/01/18 Javascript
Ajax和Comet技术总结
2017/02/19 Javascript
self.attachevent is not a function的解决方法
2017/04/04 Javascript
解决OneThink中无法异步提交kindeditor文本框中修改后的内容方法
2017/05/05 Javascript
使用3D引擎threeJS实现星空粒子移动效果
2020/09/13 Javascript
使用vue-aplayer插件时出现的问题的解决
2018/03/02 Javascript
vue路由插件之vue-route
2019/06/13 Javascript
Windows下安装 node 的版本控制工具 nvm
2020/02/06 Javascript
Python2.x利用commands模块执行Linux shell命令
2016/03/11 Python
Python操作Redis之设置key的过期时间实例代码
2018/01/25 Python
python+pandas分析nginx日志的实例
2018/04/28 Python
78行Python代码实现现微信撤回消息功能
2018/07/26 Python
uwsgi+nginx部署Django项目操作示例
2018/12/04 Python
python 并发编程 阻塞IO模型原理解析
2019/08/20 Python
将 Ubuntu 16 和 18 上的 python 升级到最新 python3.8 的方法教程
2020/03/11 Python
用CSS3实现Win8风格的方格导航菜单效果
2013/04/10 HTML / CSS
匡威帆布鞋美国官网:Converse美国
2016/08/22 全球购物
惠普香港官方商店:HP香港
2019/04/30 全球购物
初任培训自我鉴定
2013/10/07 职场文书
护理专科毕业生自荐书范文
2014/02/19 职场文书
初三学习计划书范文
2014/04/30 职场文书
自我推荐信范文
2014/05/09 职场文书
承诺书范文
2014/06/03 职场文书
音乐会主持人开场白
2015/05/28 职场文书
爱国主义影片观后感
2015/06/18 职场文书