اعتراض أحرف N مع HTML من سلسلة طريقة التنفيذ الحالية ليست مثالية. العملية هي: العثور على بداية عناصر التحكم المختلفة من السلسلة، ثم فصلها بالتسلسل، ووضعها في مصفوفة، ثم إضافتها واحدة تلو الأخرى. المصفوفة تعال وانظر إذا كان الحرف أكبر من الحرف المحدد، ثم قم بإرجاع هذه المصفوفة.
"اسم الوظيفة: getHTMLContent" المعلمات: NO-->عدد الأحرف المطلوب الحصول عليها، txtContent-->السلسلة المراد معالجتها
'الوظيفة: اعتراض أحرف N مع HTML من السلسلة. طريقة التنفيذ الحالية ليست مثالية. العملية هي: العثور على بداية عناصر التحكم المختلفة من السلسلة، ثم فصلها، ووضعها في المصفوفة، ثم إضافتها واحدة تلو الأخرى. المصفوفة لمعرفة ما إذا كان الحرف أكبر من الحرف المحدد، إذا كان الأمر كذلك، فقم بإرجاع هذه المصفوفة.
"المؤلف: ليو يونغفا
'الوقت: 2007-6-1 20:03 :)
الدالة getHTMLContent(NO, txtContent)
إذا كان Len(txtContent)<= NO إذن
getHTMLContent = txtContent
وظيفة الخروج
EndIf
تعيين إعادة = جديد RegExp
re.IgnoreCase =True
re.Global = صحيح
نمط =<p|<br|<li|<table
نمط = سبليت (نمط، |)
ForEach ص في pattern
إعادة النمط = ص
txtContent = re.Replace(txtContent,||& p )
التالي
txtContent = سبليت(txtContent,||)
ForEach E في txtContent
إذا كان Len(s)>NO ثمExitFor
ق = ق + ه
التالي
getHTMLContent=s
وظيفة النهاية
%>