يضيف التدوير المنتظم لـ ASP وvbs عنوان URL واسم موقع الويب ومقدمة موقع الويب والمحتويات الأخرى بعد فقرة المقالة <script language =vbs>
'اسم الوظيفة: RegExpTest
'المعلمات: strng--"السلسلة المراد معالجتها؛ patrn--"علامات نهاية مختلفة مفصولة بـ |، مثل: <br/>|</p>|<br>; مفصولة أيضًا بـ |
يفتح
"المؤلف: ليو يونغفا (yongfa365)" مدونة
'الوظيفة: قم بإضافة المحتوى في patrn2 بشكل عشوائي بعد انتهاء الحرف بـ patrn في السلسلة النصية
الدالة RegExpTest(strng, patrn, patrn2)
Dim regEx، Match، Matches "إنشاء متغيرات".
Set regEx =New RegExp 'إنشاء تعبير عادي.
regEx.IgnoreCase =True' يحدد ما إذا كانت الأحرف حساسة لحالة الأحرف.
regEx.Global =True' يعين التوفر العالمي.
نمط = سبليت (نمط، |)
ForEach ص في pattern
regEx.Pattern = p 'تعيين النمط.
strng = regEx.Replace(strng,||& Chr(10)& p)
التالي
سلسلة = سبليت (سلسلة، ||)
ForEach E في strng
الصورة = الصورة + E + arrArt(patrn2)
التالي
RegExpTest = s
وظيفة النهاية
الدالة arrArt(patrn2)
arrArti = سبليت(patrn2,|)
عشوائية
arrArt = arrArti(CInt(UBound(arrArti)* Rnd))
وظيفة النهاية
السلسلة =111<br/>222</p>333<br/>444</p>555<Br>666</P>111
المصدر = strng
النمط =<br/>|</p>|<br>
patrn2 =www.xiaoshuo8.net|http://www.vevb.com/blog|hi.baidu.com/
الكلمات = RegExpTest(strng، patrn، patrn2)
MsgBox(كلمات)
</script>
<النص البرمجي>
document.Write <fieldset><legend>السلسلة الأصلية</legend>+ المصدر +</fieldset><br>
document.Write <fieldset><legend>سلسلة محولة</legend>+ كلمات +</fieldset><br>
</script>