// أشعر بالملل حقًا. فجأة شعرت برغبة في إعادة تنفيذ بعض الوظائف المغلفة في PHP باستخدام PHP.
// لذا فإن الكود التالي ينفذ بشكل أساسي بعض وظائف معالجة السلسلة في PHP، كما ينفذ أيضًا بعض وظائف PHP
// لا، ولكن نفس وظائف معالجة السلسلة مفيدة أيضًا.
// الآن، على سبيل المثال، باستخدام C/VBScript/Perl، وما إلى ذلك، يمكنك الحصول على مكتبة الوظائف الخاصة بك.
// قد لا تعمل الوظائف التالية بالضرورة بنجاح، فهي مخصصة للتعلم فقط.
//
// إذا لم يكن هناك بيان خاص، فكل هذا عمل أصلي لـ heiyeluren. يرجى الاحتفاظ بمعلومات المؤلف إذا كنت تريد استخدام أي وظيفة.
/**
* إعادة بناء وظائف السلسلة
*
* حقوق الطبع والنشر (ج) 2005 heiyeluren < [email protected] >
* الكاتب: heiyeluren < [email protected] >
* $Id: StringFunctions.php,v 0.1 e 2005-5-29 23:21 heiyeluren Exp $
**/
// {{{ سترلين ()
/**
* حساب طول السلسلة
*
* @param string $str يحتاج إلى متغير طول السلسلة
* @return int نتيجة عدد الإرجاعات
* @الإصدار v0.1
* @ إنشاء 2005-5-24
* @ تم التعديل 2005-5-24
* @author heiyeluren < [email protected] >
*/
الدالة strlen1($str)
{
إذا ($str == '')
العودة 0؛
عدد $ = 0؛
بينما (1)
{
إذا ($str[$count] != NULL)
{
$count++;
يكمل؛
}
آخر
استراحة؛
}
إرجاع عدد الدولارات؛
}
// }}}
// {{{ فرعي ()
/**
* احصل على السلسلة الفرعية
*
* @param string $str تحتاج إلى الحصول على متغير سلسلة فرعية
* @param int $start ابدأ بالحصول على سلسلة فرعية
* @param int $ length يحتاج إلى الحصول على طول السلسلة
* @return سلسلة إرجاع سلسلة فرعية
* @الإصدار v0.2
* @ إنشاء 2005-5-24
* @ تم التعديل 25-5-2005
* @author heiyeluren < [email protected] >
*/
الدالة substr1($str، $start، $length=0)
{
إذا ($str == '')
يعود؛
إذا ($بدء> سترلين($str))
يعود؛
إذا (($length != NULL) && ($start > 0) && ($length > strlen($str)-$start))
يعود؛
إذا (($length != NULL) && ($start < 0) && ($length > strlen($str)+$start))
العودة؛
إذا (طول == NULL)
$length = (strlen($str) - $start);
إذا (بدء <0)
{
لـ ($i=(strlen($str)+$start); $i<(strlen($str)+$start+$length); $i++)
{
$substr .= $str[$i];
}
}
إذا ($الطول > 0)
{
لـ ($i=$start; $i<($start+$length); $i++)
{
$substr .= $str[$i];
}
}
إذا ($الطول <0)
{
لـ ($i=$start; $i<(strlen($str)+$length); $i++)
{
$substr .= $str[$i];
}
}
إرجاع $substr;
}
// }}}
// {{{ ستريف ()
/**
* عكس ترتيب السلسلة
*
* @param string $str يحتاج إلى متغير سلسلة عكسي
* @return سلسلة عكس السلسلة
* @ الإصدار v0.1 www.knowsky.com
* @ إنشاء 2005-5-24
* @ تم التعديل 2005-5-24
* @author heiyeluren < [email protected] >
*/
الدالة strrev1($str)
{
إذا ($str == '')
العودة 0؛
لـ ($i=(strlen($str)-1); $i>=0; $i--)
{
$rev_str .= $str[$i];
}
إرجاع $rev_str;
}
// }}}
// {{{ ستركمب ()
/**
*مقارنة السلسلة
*
*param string $s1 السلسلة الأولى
*param string $s2 السلسلة الثانية
* @return int return -1,str1 < str2; return 1, str1 > str2, str1 = str2,
* إرجاع 0، أخرى، إرجاع خطأ
* @الإصدار v0.1
* @ إنشاء 2005-5-24
* @ تم التعديل 2005-5-24
* @author heiyeluren < [email protected] >
*/
الدالة strcmp1($s1, $s2)
{
إذا (سترلين($s1) <سترلين($s2))
العودة -1؛
إذا (سترلين($s1)> سترلين($s2))
إرجاع 1
لـ ($i=0; $i<strlen($s1); $i++)
{
إذا ($s1[$i] == $s2[$i])
يكمل؛
آخر
عودة كاذبة.
}
العودة 0؛
}
// }}}
// {{{ strchr(), strstr(), strpos()
/**
* البحث عن التواجد الأول للسلسلة
*
*param string السلسلة الأصلية $str
* @param string $substr تحتاج إلى مطابقة السلسلة الفرعية
*return int return ابحث عن السلسلة الفرعية في السلسلة الأصلية في المقام الأول،
* f لم يتم العثور عليه، قم بإرجاع خطأ
* @الإصدار v0.4
* @ إنشاء 2005-5-24
* @ تم التعديل 29-5-2005
* @author heiyeluren < [email protected] >
*/
الدالة strchr1($str، $substr)
{
$m = سترلين($str);
$n = strlen($substr)
;
إرجاع خطأ
لـ ($i=0; $i<=($m-$n+1); $i++)
{
$sub = substr($str, $i, $n);
إذا (strcmp($sub, $substr) == 0)
إرجاع $i;
}
عودة كاذبة.
}
// }}}
// {{{ str_replace()
/**
* استبدل كافة تكرارات سلسلة البحث بسلسلة الاستبدال
*
*param string $substr بحاجة إلى استبدال متغير السلسلة الفرعية
*param string $newsubstr سلسلة فرعية جديدة
*param string $str تعمل على السلسلة الأصلية
*return سلسلة العودة استبدال بعد السلسلة الأصلية الجديدة
* @الإصدار v0.2
* @ إنشاء 2005-5-24
* @ تم التعديل 29-5-2005
* @author heiyeluren < [email protected] >
*/
الدالة str_replace1($substr، $newsubstr، $str)
{
$m = سترلين($str);
$n = strlen($substr);
$x = strlen($newsubstr);
إذا (strchr($str, $substr) == خطأ)
إرجاع خطأ
لـ ($i=0; $i<=($m-$n+1); $i++)
{
$i = strchr($str, $substr);
$str = str_delete($str, $i, $n);
$str = str_insert($str, $i, $newstr);
}
إرجاع $str;
}
// }}}
/************ وظائف معالجة السلاسل التالية غير متوفرة في PHP، لقد كتبتها بنفسي من أجل المتعة ***************/
// {{. {إدراج_ستر ()، حذف_ستر ()، فهرس_ستر ()
/**
* تعمل السلسلة الأساسية
*
* @param string $str تحتاج إلى الحصول على متغير سلسلة فرعية
* @param int $start ابدأ بالحصول على سلسلة فرعية
* @param int $ length يحتاج إلى الحصول على طول السلسلة
* @return سلسلة إرجاع سلسلة فرعية
* @الإصدار v0.1
* @ إنشاء 2005-5-24
* @ تم التعديل 2005-5-24
* @author heiyeluren < [email protected] >
*/
الدالة str_insert($str، $i، $substr)
{
ل($j=0; $j<$i; $j++)
{
$startstr .= $str[$j];
}
لـ ($j=$i; $j<strlen($str); $j++)
{
$laststr .= $str[$j];
}
$str = ($startstr . $substr . $laststr);
إرجاع $str;
}
الدالة str_delete($str, $i, $j)
{
لـ ($c=0; $c<$i; $c++)
{
$startstr .= $str[$c];
}
لـ ($c=($i+$j); $c<strlen($str); $c++)
{
$laststr .= $str[$c];
}
$str = ($startstr . $laststr)
;
}
// }}}
// {{{ ستركبي ()
/**
* استخدم سلسلة فرعية معينة لاستبدال السلسلة
*
* @param string $str تحتاج إلى الحصول على متغير سلسلة فرعية
* @param int $start ابدأ بالحصول على سلسلة فرعية
* @param int $ length يحتاج إلى الحصول على طول السلسلة
* @return سلسلة إرجاع سلسلة فرعية
* @الإصدار v0.1
* @ إنشاء 2005-5-27
* @ تم التعديل 27-5-2005
* @author heiyeluren < [email protected] >
*/
الدالة strcpy($s1, $s2)
{
إذا (سترلين($s1) == NULL)
يعود؛
إذا (! isset($s2))
العودة
لـ ($i=0; $i<strlen($s1); $i++)
{
$s2[] = $s1[$i];
}
إرجاع $s2;
}
// }}}
// {{{ ستركات ()
/**
* استخدم سلسلة فرعية معينة لاستبدال السلسلة
*
* @param string $str تحتاج إلى الحصول على متغير سلسلة فرعية
* @param int $start ابدأ بالحصول على سلسلة فرعية
* @param int $ length يحتاج إلى الحصول على طول السلسلة
* @return سلسلة إرجاع سلسلة فرعية
* @الإصدار v0.1
* @ إنشاء 2005-5-27
* @ تم التعديل 27-5-2005
* @author heiyeluren < [email protected] >
*/
الدالة strcat($s1, $s2)
{
إذا (! isset($s1))
يعود؛
إذا (! isset($s2))
return
$newstr = $s1 $s2
;
}
// }}}
// {{{ php_encode(), php_decode()
/**
* وظيفة ترميز/فك تشفير سلسلة بسيطة
*
* @param string $str يحتاج إلى كود/تشفير متغير السلسلة
* @return رمز السلسلة/التشفير بعد السلسلة
* @الإصدار v0.2
* @ إنشاء 2005-3-11
* @ تم التعديل 2005-5-24
* @author heiyeluren < [email protected] >
*/
/* وظيفة تشفير السلسلة */
الدالة php_encode($str)
{
إذا ($str=='' && strlen($str)>128)
إرجاع خطأ
لـ($i=0; $i<strlen($str); $i++)
{
$c = ord($str[$i]);
إذا ($c>31 && $c<107)
$ج += 20;
إذا ($c>106 && $c<127)
$ج -= 75;
$word = لجنة حقوق الإنسان($c)
;
}
إرجاع $s؛
}
/* وظيفة فك تشفير السلسلة */
الدالة php_decode($str)
{
إذا ($str=='' && strlen($str)>128)
إرجاع خطأ
لـ($i=0; $i<strlen($str); $i++)
{
$c = أورد($word);
إذا ($c>106 && $c<127)
$ج = $ج-20؛
إذا ($c>31 && $c<107)
$ج = $ج+75؛
$word = لجنة حقوق الإنسان($c)
;
}
إرجاع $s؛
}
// }}}
// {{{ php_encrypt(), php_decrypt()
/**
* وظيفة تشفير/فك تشفير سلسلة بسيطة
*
* @param string $str يحتاج إلى متغير سلسلة تشفير
*return سلسلة تشفير/فك تشفير بعد السلسلة
* @الإصدار v0.1
* @ إنشاء 2005-5-27
* @ تم التعديل 29-5-2005
* @author heiyeluren < [email protected] >
*/
/* تحديد مفتاح التشفير */
$encrypt_key = 'abcdefghijklmnopqrstuvwxyz1234567890';
$decrypt_key = 'ngzqtcobmuhelkpdawxfyivrsj2468021359';
/* وظيفة تشفير السلسلة */
الدالة php_encrypt($str)
{
مفتاح التشفير العالمي $، مفتاح التشفير $
إذا (strlen($str) == 0)
إرجاع خطأ
لـ ($i=0; $i<strlen($str); $i++)
{
لـ ($j=0; $j<strlen($encrypt_key); $j++)
{
إذا ($str[$i] == $encrypt_key[$j])
{
$enstr .= $decrypt_key[$j];
استراحة؛
}
}
}
إرجاع $enstr;
}
/* وظيفة فك تشفير السلسلة */
الدالة php_decrypt($str)
{
مفتاح التشفير العالمي $، مفتاح التشفير $
إذا (strlen($str) == 0)
إرجاع خطأ
لـ ($i=0; $i<strlen($str); $i++)
{
لـ ($j=0; $j<strlen($decrypt_key); $j++)
{
إذا ($str[$i] == $decrypt_key[$j])
{
$enstr .= $encrypt_key[$j];
استراحة؛
}
}
}
إرجاع $enstr;
}
// }}}
إذا كان الرمز غير واضح، فمن المستحسن التحقق من الرابط، وهو مدونتي على blogchina: