使用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 相关文章推荐
利用递归把多维数组转为一维数组的函数
Oct 09 PHP
PHP的autoload机制的实现解析
Sep 15 PHP
解析htaccess伪静态的规则
Jun 18 PHP
Smarty foreach控制循环次数的实现详解
Jul 03 PHP
php 模拟post_验证页面的返回状态(实例讲解)
Oct 28 PHP
php中的curl_multi系列函数使用例子
Jul 29 PHP
CodeIgniter删除和设置Cookie的方法
Apr 07 PHP
php析构函数的简单使用说明
Aug 24 PHP
php实现可运算的验证码
Nov 10 PHP
php轻松实现文件上传功能
Mar 03 PHP
php中array_unshift()修改数组key注意事项分析
May 16 PHP
apache php mysql开发环境安装教程
Jul 28 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
利用phpexcel对数据库数据的导入excel(excel筛选)、导出excel
2017/04/27 PHP
Javascript 阻止javascript事件冒泡,获取控件ID值
2009/06/27 Javascript
字段太多jquey快速清空表单内容方法
2014/08/21 Javascript
JavaScript的null和undefined区别示例介绍
2014/09/15 Javascript
吐槽一下我所了解的Node.js
2014/10/08 Javascript
jquery SweetAlert插件实现响应式提示框
2015/08/18 Javascript
js实现的早期滑动门菜单效果代码
2015/08/27 Javascript
纯css下拉菜单 无需js
2016/08/15 Javascript
AngularJs Managing Service Dependencies详解
2016/09/02 Javascript
使用jQuery实现两个div中按钮互换位置的实例代码
2017/09/21 jQuery
jQuery实现点击下拉框中的值累加到文本框中的方法示例
2017/10/28 jQuery
Vue.js划分组件的方法
2017/10/29 Javascript
详解PHP后期静态绑定分析与应用
2018/03/21 Javascript
mpvue小程序仿qq左滑置顶删除组件
2018/08/03 Javascript
[13:39]2014 DOTA2华西杯精英邀请赛 5 25 NewBee VS DK第一场
2014/05/26 DOTA
[01:05]主宰至宝剑心之遗
2017/03/16 DOTA
利用Python的Flask框架来构建一个简单的数字商品支付解决方案
2015/03/31 Python
用Python程序抓取网页的HTML信息的一个小实例
2015/05/02 Python
详解Python发送邮件实例
2016/01/10 Python
python实现多线程的两种方式
2016/05/22 Python
python中使用正则表达式的连接符示例代码
2017/10/10 Python
详解python使用递归、尾递归、循环三种方式实现斐波那契数列
2018/01/16 Python
python得到一个excel的全部sheet标签值方法
2018/12/10 Python
TensorFlow实现自定义Op方式
2020/02/04 Python
Python通过两个dataframe用for循环求笛卡尔积
2020/04/29 Python
详解Python中list[::-1]的几种用法
2020/11/16 Python
matplotlib源码解析标题实现(窗口标题,标题,子图标题不同之间的差异)
2021/02/22 Python
7 For All Mankind官网:美国加州洛杉矶的高级牛仔服装品牌
2018/12/20 全球购物
档案室主任岗位职责
2014/02/12 职场文书
关于读书的演讲稿
2014/05/07 职场文书
个人租房协议书范本
2014/09/30 职场文书
2014年教师工作总结
2014/11/10 职场文书
Python 解决空列表.append() 输出为None的问题
2021/05/23 Python
python库sklearn常用操作
2021/08/23 Python
iSCSI服务器CHAP双向认证配置
2022/04/01 Servers
Win11右下角图标点了没反应怎么办?Win11点击右下角图标无反应解决方法汇总
2022/07/07 数码科技