استبدال وظيفتين غير حساستين لحالة الأحرف (تمييز الكلمات الرئيسية)

فيما يلي الكود المصدري للوظيفة:

<%

إخراج الوظيفة (النمط، السلسلة 1، الألوان)

"استخرج النص المطابق لكلمة البحث الرئيسية."

Dim regEx، Match، Matches، tt 'إنشاء متغيرات.

Set regEx = New RegExp ' إنشاء تعبير عادي.

regEx.Pattern = patrn ' تعيين النمط.

regEx.IgnoreCase = True ' قم بتعيين ما إذا كنت تريد أن تكون حساسًا لحالة الأحرف.

regEx.Global = True ' قم بتعيين التوفر العالمي.

تعيين التطابقات = regEx.Execute(string1) 'تنفيذ البحث.

لكل مباراة في المباريات، قم باجتياز مجموعة المباريات.

RetStr = RetStr & Match.Value &

التالي

RetStr = تقليم (RetStr)

إذا instr(RetStr, )>0 ثم

لـ tt = 0 إلى ubound(split(RetStr, ))

string1 = استبدال(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)

التالي

آخر

string1 = استبدال(string1,RetStr,<font color=&colors&>&RetStr&</font>)

نهاية إذا

الإخراج = السلسلة 1

وظيفة النهاية

Response.write Takeout (jOeKOe، إصدار Joekoe ثنائي اللغة، أحمر)

وظيفة Highlight(strContent,keyword) "وضع علامة على الكلمات الرئيسية المميزة."

خافت RegEx

قم بتعيين RegEx = RegExp الجديد

RegEx.IgnoreCase =True 'غير حساس لحالة الأحرف

RegEx.Global=صحيح

Dim ArrayKeyword، i

ArrayKeyword = Split(keyword, ) 'كلمات رئيسية متعددة مفصولة بمسافات

بالنسبة إلى i=0 إلى Ubound(ArrayKeyword)

RegEx.Pattern=(&ArrayKeyword(i)&)

strContent=RegEx.Replace(strContent,<font color=red>$1</font> )

التالي

تعيين RegEx = لا شيء

Highlight=strContent

وظيفة النهاية

Response.write Highlight (إصدار Joekoe ثنائي اللغة، jOeKOe)

%>

-