تدعم وظيفة طول نص الاعتراض UTF-8، والتي يمكن أن ترضي معظم الأصدقاء الذين يعترضون السلاسل. انسخ رمز الكود كما يلي:
'***************************************
'وظيفة اعتراض طول النص، تدعم UTF-8
'معلمات الإدخال:
1. محتوى النص
2. الحد الأقصى لطول النص
'***************************************
الوظيفة العامة Cut_Title(Title,TLen)
خافت ك، ط، د، ج
ikB
خافت للإجمالي
إذا CDbl(TLen) > 0 ثم
ك = 0
د=سترلين(العنوان)
iStr=
ForTotal = لين (العنوان)
من أجل i=1 إلى ForTotal
ج=أبس(تصاعدي(منتصف(العنوان،ط،1)))
إذا ج> 255 ثم
ك=ك+2
آخر
ك=ك+1
نهاية إذا
iStr=iStr&Mid(العنوان،i،1)
إذا كان CLng(k)>CLng(TLen) إذن
iStr=iStr..
الخروج ل
نهاية إذا
التالي
Cut_Title=iStr
آخر
Cut_Title=
نهاية إذا
وظيفة النهاية
'*********************************
'وظيفة الكشف عن طول النص، تدعم UTF-8
'معلمات الإدخال:
1. محتوى النص
'*********************************
الوظيفة العامة StrLen (strText)
خافت ك، ط، ج
خافت للإجمالي
ك = 0
ForTotal = لين (strText)
من أجل i=1 إلى ForTotal
ج=أبس(تصاعدي(منتصف(strText,i,1)))
إذا ج> 255 ثم
ك=ك+2
آخر
ك=ك+1
نهاية إذا
التالي
سترلين=ك
وظيفة النهاية