لقد كتبت شيئًا مطابقًا للتعبير العادي، وهذه هي الوظائف الوحيدة التي استخدمتها.
انسخ الكود كما يلي:<%
str = request(str)
reg = request(reg)
set regex = new RegExp
With regex
.Pattern = reg
.IgnoreCase = False
.Global = True
End With
Set match = regex.Execute(str)
إذا كانت المطابقة. عد > 0، ثم
لكل
استجابة متطابقة في المطابقة. اكتب <B><input value= & matched.Value & ></B> الموضع: <B> & matched.FirstIndex & </B>
الطول
: &matched.Length&<BR>التالي
الاستجابة
الأخرى
. اكتب <B> & regex.Pattern & </B> لم يتم العثور على تطابق، النهايةإذا
تم تعيين regex = لا شيء
%>
<form Method=post >
text :<br>
<textarea cols=50rows=10 name=str><%=str%></textarea><br>
regexp:<input name=reg value=<%=reg%>><br>
<input type=submit value=regexp>
</form>
حول وظائف التعبير العادي المحددة