عند استخدام ASP لمعالجة النص. في بعض الأحيان لا تكون وظيفة الكشف عن طول السلسلة التي تأتي مع النظام مفيدة جدًا. على سبيل المثال، سيتم احتساب الحرف الصيني كبايت واحد فقط إذا كانت جميع الأحرف صينية أثناء التنضيد، فمن السهل القول أنه لا يوجد فرق على أي حال، ومع ذلك، إذا كانت السلسلة المراد معالجتها تحتوي على أحرف صينية وأحرف إنجليزية. سيكون هذا غير مريح. يمكن للوظائف الثلاث التالية أن تحل محل الوظائف ذات الصلة التي تأتي مع ASP.
هناك أيضًا شيء يجب ملاحظته. إذا تم استخدامه في حلقة، فإن i هو أيضًا متغير شائع الاستخدام في الحلقات. عند تنفيذ الوظيفة التالية، ستتغير قيمة i إذا تم استخدام نفس المتغير في الحلقة التي تستدعي ستظهر قيم غير معروفة، وإذا تم العثور على النتيجة، فيرجى استخدام اسم متغير آخر.
الاستخدام التالي هو نفس استخدام len()، left()، right().
رمز البرنامج
انسخ رمز الكود كما يلي:
الدالةStrlength(Str)
Temp_Str=لين(شارع)
لأني = 1 إلى Temp_Str
Test_Str=(منتصف(Str,I,1))
إذا تصاعدي (Test_Str)>0 ثم
الطول=الطول+1
آخر
الطول=الطول+2
نهاية إذا
التالي
وظيفة النهاية
الدالة Strleft(Str,L)
Temp_Str=لين(شارع)
لأني = 1 إلى Temp_Str
Test_Str=(منتصف(Str,I,1))
Strleft=Strleft&Test_Str
إذا تصاعدي (Test_Str)>0 ثم
عدسة=عدسة+1
آخر
عدسة=عدسة+2
نهاية إذا
إذا كانت العدسة>=L ثم قم بالخروج من أجل
التالي
وظيفة النهاية
وظيفة: مستقيم (شارع، L)
Temp_Str=لين(شارع)
لأني = Temp_Str إلى خطوة واحدة -1
Test_Str=(منتصف(Str,I,1))
Strright=Test_Str&Strright
إذا تصاعدي (Test_Str)>0 ثم
عدسة=عدسة+1
آخر
عدسة=عدسة+2
نهاية إذا
إذا كانت العدسة>=L ثم قم بالخروج من أجل
التالي
وظيفة النهاية