وظيفة اعتراض سلسلة asp
'********************************************************************************************************************************************************************************* * *********
'الوظيفة: CutStr[str(strlen)]
'المعلمات: str، السلسلة المراد معالجتها، strlen، الطول المعترض
'المؤلف: مومو
'التاريخ: 2007/7/12
'الوصف: اعتراض سلسلة ذات طول محدد
'مثال: <%=cutStr("مرحبًا بك في Alixixi"،5)%>
'********************************************************************************************************************************************************************************* * *********
دالة CutStr(str,strlen)
إذا كان str = "" ثم
CutStr = "استثناء دالة CutStr: السلسلة فارغة"
وظيفة الخروج
نهاية إذا
'------------التحقق من طول المصدر
إذا strlen = "" ثم
CutStr = "استثناء دالة CutStr: الطول غير محدد"
وظيفة الخروج
نهاية إذا
إذا كان CInt(strlen) = 0 إذن
CutStr = "استثناء دالة CutStr: الطول هو 0"
وظيفة الخروج
نهاية إذا
'----------اكتشف طول حرف المصدر
خافت ل، ر، ج، ط
ل = لين (شارع)
ر = 0
'----------تكرار لاعتراض الأحرف
لأني = 1 إلى ل
ج = عبس (تصاعدي (منتصف (شارع، ط، 1)))
'------تحديد ما إذا كان حرفًا صينيًا
إذا ج> 255 ثم
ر=ر+2
آخر
ر=ر+1
endIf
'------تحديد ما إذا تم الوصول إلى الطول المحدد
إذا t>=strlen ثم
CutStr=left(str,i)&"."
الخروج ل
آخر
CutStr=str
نهاية إذا
التالي
CutStr=replace(cutStr,chr(10),"")
وظيفة النهاية
''************************************************************************************************************************************************************************ *********
'الوظيفة: strlen[str]
'المعلمة: str، السلسلة المراد معالجتها
'المؤلف: مومو
'التاريخ: 2007/7/12
'الوصف: تحديد طول السلسلة، طول الأحرف الصينية هو 2
'مثال: <%=strlen("مرحبًا بك في Alixixi")%>
'********************************************************************************************************************************************************************************* * *********
الدالة strlen(str)
خافت p_len
p_len=0
سترلين=0
إذا تقليم (str) <>"" ثم
p_len=len(تقليم(شارع))
لـ xx=1 إلى p_len
إذا كان asc(mid(str,xx,1))<0 إذن
سترلين = كثافة العمليات (سترلين) + 2
آخر
سترلين = كثافة العمليات (سترلين) + 1
نهاية إذا
التالي
نهاية إذا
وظيفة النهاية
اعترض الأحرف n الموجودة على اليسار '****************************************** * ****************
'الوظيفة: LeftTrue(str,n)
'المعلمات: str، السلسلة المراد معالجتها، n، الطول الذي تم اعتراضه
'المؤلف: مومو
'التاريخ: 2007/7/12
'الوصف: عرض الأحرف n على وظيفة (التعرف التلقائي على الأحرف الصينية) على اليسار
'مثال: <%=LeftTrue("مرحبًا بك في Alixixi"،6)%>
'********************************************************************************************************************************************************************************* * *********
الدالة LeftTrue(str,n)
إذا len(str)<=n/2 إذن
LeftTrue=str
آخر
خافت TStr
خافت ل، ر، ج
خافت ط
ل = لين (شارع)
ر = ل
تيستر =""
ر = 0
لأني = 1 إلى ل
ج = تصاعدي (منتصف (شارع، ط، 1))
إذا كان c<0 فإن c=c+65536
إذا ج> 255 ثم
ر=ر+2
آخر
ر=ر+1
نهاية إذا
إذا t>n ثم الخروج ل
TStr=TStr&(منتصف(str,i,1))
التالي
LeftTrue = TStr
نهاية إذا
وظيفة النهاية
مقالات قد تهمك: