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

// 实在无聊,突发奇想,想把PHP里面部分已经提供封装好的函数重新使用PHP实现一遍,
// 于是便有了下面的代码主要实现了PHP中部分字符串处理函数,同时实现了一些PHP中
// 没有,但是同样有作用的字符串处理函数同样的这些函数,也能够使用其他语言来实
// 现,比如用C/VBScript/Perl等等,那么你就能够有一个自己的函数库.
// 以下函数不一定能够成功运行,只是为了学习而已。
//
// 如果无特别声明,全部是由于heiyeluren原创,要使用任何函数都请保留作者信息

/**

  • String Functions Reconstruct

  • Copyright (c) 2005 heiyeluren < [email protected] >

  • Author: heiyeluren < [email protected] >

  • $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 < [email protected] >
    */
    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 < [email protected] >
    */
    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 < [email protected] >
    */
    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 < [email protected] >
    */
    function strcmp1($s1, $s2)
    {
    if (strlen($s1) < strlen($s2))
    return -1;
    if (strlen($s1) > strlen($s2))
    return 1;

for ($i=0; $i

  1<strlen($s1); $i++)="" $str="" $substr="" ($s1[$i]="$s2[$i])" *="" **="" 0;="" 2005-5-24="" 2005-5-29="" <="" @author="" @create="" @modified="" @param="" @return="" @version="" a="" at="" continue;="" else="" f="" false="" false;="" find="" find,="" first="" heiyeluren="" [email protected]="" if="" int="" match="" need="" not="" occurrence="" of="" parent="" place,="" return="" strchr(),="" string="" strpos()="" strstr(),="" sub="" v0.4="" {="" {{{="" }="" }}}="">   
  2*/   
  3function strchr1($str, $substr)   
  4{   
  5$m = strlen($str);   
  6$n = strlen($substr); 
  7
  8if ($m &lt; $n)   
  9return false; 
 10
 11for ($i=0; $i&lt;=($m-$n+1); $i++)   
 12{   
 13$sub = substr($str, $i, $n);   
 14if (strcmp($sub, $substr) == 0)   
 15return $i;   
 16}   
 17return false;   
 18}   
 19// }}} 
 20
 21  
 22// {{{ str_replace()   
 23/**   
 24* Replace all occurrences of the search string with the replacement string   
 25*   
 26* @param string $substr need replace sub string variable   
 27* @param string $newsubstr new sub string   
 28* @param string $str operate parent string   
 29* @return string return replace after new parent string   
 30* @version v0.2   
 31* @create 2005-5-24   
 32* @modified 2005-5-29   
 33* @author heiyeluren &lt; [email protected] &gt;   
 34*/   
 35function str_replace1($substr, $newsubstr, $str)   
 36{   
 37$m = strlen($str);   
 38$n = strlen($substr);   
 39$x = strlen($newsubstr); 
 40
 41if (strchr($str, $substr) == false)   
 42return false; 
 43
 44for ($i=0; $i&lt;=($m-$n+1); $i++)   
 45{   
 46$i = strchr($str, $substr);   
 47$str = str_delete($str, $i, $n);   
 48$str = str_insert($str, $i, $newstr);   
 49}   
 50return $str;   
 51}   
 52// }}} 
 53
 54  
 55/************ 以下串处理函数是PHP中没有的，自己写着玩 ***************/ 
 56
 57// {{{ insert_str(), delete_str(), index_str()   
 58/**   
 59* Basic string operate   
 60*   
 61* @param string $str need get sub string variable   
 62* @param int $start start get sub string   
 63* @param int $length need get string length   
 64* @return string return sub string   
 65* @version v0.1   
 66* @create 2005-5-24   
 67* @modified 2005-5-24   
 68* @author heiyeluren &lt; [email protected] &gt;   
 69*/   
 70function str_insert($str, $i, $substr)   
 71{ 
 72
 73for($j=0; $j&lt;$i; $j++)   
 74{   
 75$startstr .= $str[$j];   
 76} 
 77
 78for ($j=$i; $j<strlen($str); $c++)="" $c<$i;="" $c<strlen($str);="" $i,="" $j)="" $j++)="" $laststr="" $laststr);="" $length="" $start="" $startstr="" $str="" $str;="" $substr="" ($c="($i+$j);" *="" **="" .="" 2005-5-27="" <="" @author="" @create="" @modified="" @param="" @return="" @version="" designate="" for="" function="" get="" heiyeluren="" [email protected]="" int="" length="" need="" replace="" return="" start="" str_delete($str,="" strcpy()="" string="" sub="" use="" v0.1="" variable="" {="" {{{="" }="" }}}="">   
 79*/   
 80function strcpy($s1, $s2)   
 81{   
 82if (strlen($s1) == NULL)   
 83return;   
 84if (!isset($s2))   
 85return; 
 86
 87for ($i=0; $i<strlen($s1); $i++)="" $length="" $s2;="" $s2[]="$s1[$i];" $start="" $str="" *="" **="" 2005-5-27="" <="" @author="" @create="" @modified="" @param="" @return="" @version="" designate="" get="" heiyeluren="" [email protected]="" int="" length="" need="" replace="" return="" start="" strcat()="" string="" sub="" use="" v0.1="" variable="" {="" {{{="" }="" }}}="">   
 88*/   
 89function strcat($s1, $s2)   
 90{   
 91if (!isset($s1))   
 92return;   
 93if (!isset($s2))   
 94return; 
 95
 96$newstr = $s1 . $s2; 
 97
 98return $newsstr;   
 99}   
100// }}} 
101
102  
103// {{{ php_encode(), php_decode()   
104/**   
105* Simple string encode/decode function   
106*   
107* @param string $str need code/encode string variable   
108* @return string code/encode after string   
109* @version v0.2   
110* @create 2005-3-11   
111* @modified 2005-5-24   
112* @author heiyeluren &lt; [email protected] &gt;   
113*/ 
114
115/* String encode function */   
116function php_encode($str)   
117{   
118if ($str=='' &amp;&amp; strlen($str)&gt;128)   
119return false; 
120
121for($i=0; $i<strlen($str); $c="ord($str[$i]);" $i++)="" ($c="" if="" {="">31 &amp;&amp; $c&lt;107)   
122$c += 20;   
123if ($c&gt;106 &amp;&amp; $c&lt;127)   
124$c -= 75;   
125$word = chr($c); 
126
127$s .= $word;   
128}   
129return $s;   
130} 
131
132  
133/* String decode function */   
134function php_decode($str)   
135{   
136if ($str=='' &amp;&amp; strlen($str)&gt;128)   
137return false; 
138
139for($i=0; $i<strlen($str); $c="ord($word);" $i++)="" ($c="" if="" {="">106 &amp;&amp; $c&lt;127)   
140$c = $c-20;   
141if ($c&gt;31 &amp;&amp; $c&lt;107)   
142$c = $c+75;   
143$word = chr($c); 
144
145$s .= $word;   
146}   
147return $s;   
148}   
149// }}} 
150
151  
152// {{{ php_encrypt(), php_decrypt()   
153/**   
154* Simple string encrypt/decrypt function   
155*   
156* @param string $str need crypt string variable   
157* @return string encrypt/decrypt after string   
158* @version v0.1   
159* @create 2005-5-27   
160* @modified 2005-5-29   
161* @author heiyeluren &lt; [email protected] &gt;   
162*/ 
163
164/* define crypt key */   
165$encrypt_key = 'abcdefghijklmnopqrstuvwxyz1234567890';   
166$decrypt_key = 'ngzqtcobmuhelkpdawxfyivrsj2468021359'; 
167
168/* String encrypt function */   
169function php_encrypt($str)   
170{   
171global $encrypt_key, $decrypt_key; 
172
173if (strlen($str) == 0)   
174return false; 
175
176for ($i=0; $i&lt;strlen($str); $i++)   
177{   
178for ($j=0; $j&lt;strlen($encrypt_key); $j++)   
179{   
180if ($str[$i] == $encrypt_key[$j])   
181{   
182$enstr .= $decrypt_key[$j];   
183break;   
184}   
185}   
186}   
187return $enstr;   
188} 
189
190  
191/* String decrypt function */   
192function php_decrypt($str)   
193{   
194global $encrypt_key, $decrypt_key; 
195
196if (strlen($str) == 0)   
197return false; 
198
199for ($i=0; $i&lt;strlen($str); $i++)   
200{   
201for ($j=0; $j&lt;strlen($decrypt_key); $j++)   
202{   
203if ($str[$i] == $decrypt_key[$j])   
204{   
205$enstr .= $encrypt_key[$j];   
206break;   
207}   
208}   
209}   
210return $enstr;   
211}   
212// }}} 
213
214  
215如果代码不清晰的话，建议查看一下连接，是我在blogchina的博客： 
216
217http://heiyeluren.blogchina.com/1741318.html</strlen($str);></strlen($str);></strlen($s1);></strlen($str);></strlen($s1);>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus