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

來源:互聯網
上載者:User
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



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。