asp利用正運算式解析html的類代碼

最後更新：2017-02-28 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

VBScript5中增加了許多新功能，最振奮人心的當屬類和Regex的出現。以下是本人寫的一個解析html代碼的類。我是學php的，文法有不習慣的地方，請大家多包含。
<%
Class HTMLParse
    ’ 設定 Initialize 事件。
    Private Sub Class_Initialize
        myGlobal = True
        myIgnoreCase = True
    End Sub

    Property Let Global(g)
    Dim regEx            ’ 建立變數。
Set regEx = New RegExp         ’ 建立Regex。
regEx.Pattern = "True|False|1|0"         ’ 設定模式。
regEx.IgnoreCase = True         ’ 設定是否區分大小寫。
If regEx.Test(CStr(g)) Then
        myGlobal = g
    Else
        Call Halt("無效Global參數配置")
    End If
    End Property

    Property Get Global()
        Global = myGlobal
    End Property

    Property Let IgnoreCase(c)
    Dim regEx
Set regEx = New RegExp
regEx.Pattern = "True|False|1|0"
regEx.IgnoreCase = True
If regEx.Test(CStr(c)) Then
        myIgnoreCase = c
    Else
        Call Halt("無效IgnoreCase參數配置")
    End If
    End Property

    Property Get IgnoreCase()
        IgnoreCase = myIgnoreCase
    End Property

    ’解析所有HTML標記的函數
    Public Function Parse(input)
        Parse = "<table border=1 width=50% align=center>" & vbCrLf
        Dim regEx , regVal , match , i

        Set regEx = New RegExp
        regEx.Pattern = "<([a-z]\w*)(?:.*?)>(.*)<\/\1>"
        regEx.Global = myGlobal
        regEx.IgnoreCase = myIgnoreCase

        Set regVal = regEx.Execute(Trim(input))
        If regVal.Count > 0 Then ’如果發現匹配元素
            Parse = Parse & "<caption>發現" & regVal.Count & "個HTML標記</caption>" & vbCrLf
            Parse = Parse & "<tr align=center><th>編號</th><th>匹配標記<th>匹配顯示</th></tr>" & vbCrLf
        For i=0 To regVal.Count-1
            Set match = regVal(i)
            Parse = Parse & "<tr align=center>" & vbCrLf
            Parse = Parse & "<td>" & i+1 & "</td><td>" & match.SubMatches(0) & "</td><td>" & match
& "</td>" & vbCrLf
            Parse = Parse & "</tr>" & vbCrLf
        Next
        Else Parse = Parse & "<caption>沒有發現HTML標記</caption>" & vbCrLf
        End If
        Parse = Parse & "</table>" & vbCrLf
    End Function

    ’解析指定HTML標記的函數
    Public Function ParseTag(input,tag)
        ParseTag = "<table border=1 width=50% align=center>" & vbCrLf
        Dim regEx , regVal , match , i

        Set regEx = New RegExp
        regEx.Pattern = "<(" & tag & ")(?:.*?)>(.*?)<\/\1>"
        regEx.Global = myGlobal
        regEx.IgnoreCase = myIgnoreCase

        Set regVal = regEx.Execute(Trim(input))
        If regVal.Count > 0 Then ’如果發現匹配元素
            ParseTag = ParseTag & "<caption>發現" & regVal.Count & "個" & UCase(tag) & "標記</caption>" &
vbCrLf
            ParseTag = ParseTag & "<tr align=center><th>編號</th><th>發現位置<th>包含內容</th></tr>" &
vbCrLf
        For i=0 To regVal.Count-1
            Set match = regVal(i)
            ParseTag = ParseTag & "<tr align=center>" & vbCrLf
            ParseTag = ParseTag & "<td>" & i+1 & "</td><td>" & match.FirstIndex & "</td><td>" &
match.SubMatches(1) & "</td>" & vbCrLf
            ParseTag = ParseTag & "</tr>" & vbCrLf
        Next
        Else ParseTag = ParseTag & "<caption>沒有發現" & UCase(tag) & "標記</caption>" & vbCrLf
        End If
        ParseTag = ParseTag & "</table>" & vbCrLf
    End Function

    ’列印錯誤
    Private Sub Halt(errstr)
        Response.Write("<font color=red size=3>" & errstr & "</font>" & vbCrLf)
        Call Class_Terminate
    End Sub

    Private Sub Class_Terminate   ’ 設定 Terminate 事件。
    End Sub

    ’定義兩個內部變數
    Private myGlobal
    Private myIgnoreCase

End Class
%>

<html>
<body>
<div align=center><h2>範例1</h2></div>
<%
’範例1
Dim input , result
input = "<i>這是</i>一個<font color=green>VBScript</font>的<b>正則<i>運算式</i>範例</b>。"

Set hp = New HTMLParse
hp.Global = 1
hp.IgnoreCase = False
result = hp.Parse(input)
Response.Write(result)
%>
<br>
<div align=center><h2>範例2</h2></div>
<%
’範例2
’hp.Global = 1
’hp.IgnoreCase = False
result2 = hp.ParseTag(input,"i")
Response.Write(result2)
Set hp = Nothing
%>
</body>
</html>

　　大家應該注意到了，VBScript的Regex和Jscript的解析是一樣的，只是文法不同。關於最新的VBScript的文檔，大家可以到微軟中國的指令碼技術首頁去下載，網址：http://www.microsoft.com/china/scripting

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More