分享
 
 
 

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

王朝php·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有