دالة تكتشف عدد المرات التي تظهر فيها سلسلة داخل سلسلة أخرى

وظيفة CheckTheChar(TheChar،TheString)
'TheChar="السلسلة التي سيتم اكتشافها"
'TheString="السلسلة التي سيتم اكتشافها"
إذا كان inStr(TheString,TheChar) إذن
لـ n =1 إلى Len(TheString)
if Mid(TheString,n,Len(TheChar))=TheChar إذن
CheckTheChar=CheckTheChar+1
انتهي إذا
التالي
CheckTheChar="هذا الحرف"&CheckTheChar&"مرات"
آخر
CheckTheChar = "0 مرات"
نهاية إذا
وظيفة النهاية

مثال:

كود البرنامج
Response.Write CheckTheChar("everyone"،"a224everyone4a434a4everyone654arewr4a4a")

رمز البرنامج
<%
"اكتشف عدد المرات التي تظهر فيها السلسلة Str1 في السلسلة Str2."
SearchChar الوظيفة العامة (Str1، Str2)
خافت أنا، العداد
العداد = 0
إذا InStr(Str2، Str1) ثم
لأني = 1 إلى لين (Str2)
إذا كان Mid(Str2, I, Len(Str1))=Str1 إذن
العداد = العداد + 1
نهاية إذا
التالي
انتهي إذا
SearchChar=Counter
وظيفة النهاية
%>
<اسم النموذج = "form1" طريقة = "نشر" الإجراء = "">
<p>أدخل سلسلتين:</p>
<p> السلسلة 1:
<اسم الإدخال = "نص 1" نوع = "نص" معرف = "نص">
</ص>
<p> السلسلة 2:
<اسم الإدخال = "نص 2" نوع = "نص" معرف = "نص">
<نوع الإدخال = "إرسال" الاسم = "إرسال" القيمة = "إرسال">
</ص>
</النموذج>
<%
خافت
X=Request.Form("text1")
Y=Request.Form("text2")
إذا كان X<>"" و Y<>"" إذن
%>
<p>السلسلة 1: <%=X%></p>
<p>السلسلة 2: <%=Y%></p>
<p>عدد مرات ظهور السلسلة 1 في السلسلة 2<%=SearchChar(X,Y)%></p>
<%
نهاية إذا
%>

بعد تحويل بسيط، يمكن تحويله إلى وظيفة تكتشف وجود أكثر من عنواني URL في محتوى الرسالة وتحظره.