ฉันเขียนสิ่งที่ตรงกับนิพจน์ทั่วไป และนี่เป็นฟังก์ชันเดียวที่ฉันใช้
คัดลอกโค้ดดังนี้:<%
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)
ถ้า match.Count > 0 จากนั้น
สำหรับแต่ละรายการที่ตรงกัน
Response.Write <B><input value= &matched.Value & ></B> ตำแหน่ง: <B> & matched.FirstIndex & </B>
ความยาว
:&matched.Length&<BR>Next
Else
Response.Write <B> & regex.Pattern & </B> ไม่พบรายการที่ตรงกันสิ้นสุด
ถ้า
ตั้งค่า regex = ไม่มีอะไรเลย
%>
<form method=post >
text :<br>
<textarea cols=50 แถว=10 ชื่อ=str><%=str%></textarea><br>
regexp:<input name=reg value=<%=reg%>><br>
<input type=submit value=regexp>
</form>
เกี่ยวกับฟังก์ชันนิพจน์ทั่วไปเฉพาะ