رمز لاستخدام التعبيرات العادية لإضافة روابط إلى عناوين URL في سلاسل ضمن asp <%
'أضف الرابط إلى عنوان URL في الحقل.
الوظيفةToLink(Str)
Dim RE 'كائن التعبير العادي Dim strContent
إذا IsNull(Str) ثم Str =
Set RE = New RegExp 'إنشاء كائن تعبير عادي
مع إعادة
.Global = True 'ينطبق البحث على السلسلة بأكملها
.IgnoreCase = True 'البحث غير حساس لحالة الأحرف
strContent = Str
'********************************************************************************************************************************************************************************* * ***************
'تم تعيين رابط عنوان البريد الإلكتروني تلقائيًا
'********************************************************************************************************************************************************************************* * ***************
.النمط = ([/w]*)@([/w/.]*)
strContent = .Replace(strContent, <A Href='mailto:$1@$2'>$1@$2</A> )
'********************************************************************************************************************************************************************************* * ***************
"تم ضبط الرابط تلقائيًا."
'********************************************************************************************************************************************************************************* * ***************
'======أضف اسم البروتوكول كما هو مطلوب========
خافت د (3)، أنا
د(0) = http
د(1) = بروتوكول نقل الملفات
د(2) = الأخبار
د(3) = رسائل الوسائط المتعددة
'==================================================================================
لأني = 0 إلى UBound(D)
.النمط = D(I) +:////([/w/.]*)
strContent = .Replace(strContent, <A Href=' + D(I) + ://$1' target=_blank> + D(I) + ://$1</A> )
التالي
'********************************************************************************************************************************************************************************* * ***************
نهاية مع
تعيين RE = لا شيء
ToLink = strContent
وظيفة النهاية
%>