經典ASP正則表達式小的變化

Question

我有抓住一個頁面上的標題標籤之間的數據的一些正則表達式代碼：

<% 
    Function UrlExists(sURL) 
     Dim objXMLHTTP 
     Dim thePage 
     Dim strPTitle 
     Dim blnReturnVal 
     Dim objRegExp 
     Dim strTitleResponse 

     'Create object 
     Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") 
     on error resume next 

     'Get the head 
     objXMLHTTP.Open "HEAD", sURL, false 
     objXMLHTTP.setRequestHeader "User-Agent", Request.ServerVariables("HTTP_HOST") 
     objXMLHTTP.Send "" 

     '404?   
     If Err.Number <> 0 or objXMLHTTP.status <> 200 then blnReturnVal = "0|404 Error" Else blnReturnVal = "1|" 
     objXMLHTTP.close 

     'If not 404 
     if left(blnReturnVal,1) = "1" then 

      'Get the physical page 
      objXMLHTTP.Open "GET", sURL, false 
      objXMLHTTP.Send "" 
       thePage = objXMLHTTP.responseText 
       thePage = replace(thePage, vbCrlf, "") 
      objXMLHTTP.close 

      'Find title 
      Set objRegExp = New Regexp 

      objRegExp.IgnoreCase = true 
      objregexp.Multiline = true 
      objRegExp.Global = false 
      objRegExp.Pattern = "<title[^>]*?>(.*)</title>" 

      set strPTitle = objRegExp.Execute(thePage) 
      strTitleResponse = strPTitle.Item(0).Value 
      strTitleResponse = replace(strTitleResponse, vbCrlf, "") 
      strTitleResponse = trim(strTitleResponse) 
      if len(strTitleResponse) <1 OR strTitleResponse = "" then strTitleResponse = "(No Title)" 

      set objRegExp = nothing 
      strTitleResponse = replace(strTitleResponse,"</title>","") 
      strTitleResponse = replace(strTitleResponse,"<title>","") 
      strTitleResponse = replace(strTitleResponse,"'","&#39; ") 
      blnReturnVal = blnReturnVal & strTitleResponse 

     end if 

     Set objXMLHTTP = nothing 

     UrlExists = blnReturnVal 
    End Function 
%>   

這工作得很好，並已爲許多個月，但是當我寫的（愚蠢？）我做了假設，每個頁面只有一個或沒有標題標籤。它最近開始對John Lewis page拋出奇怪的錯誤，因爲它在它的HTML兩項冠軍：

<title>John Lewis - Shop online at Britain's Favourite Retailer</title> 
... bunch of html 
<title> 

    </title> 

如何修改正則表達式匹配只有第一配對，不感到困惑與上面的HTML？

Answer 1

在這之前所有的 「你應該使用分析器」：讓你的正則表達式non-greedy：

objRegExp.Pattern = "<title[^>]*?>(.*?)</title>" 

通知.*後加入?。默認.*將盡可能匹配。這種行爲與額外的?相反，現在匹配儘可能少。

警告：我知道絕對沒有任何有關正則表達式我傳統的ASP（或「現代」的ASP，如果有這樣的事情），但由於非貪婪/懶惰運營商已經用在<title>標籤匹配，我認爲它會起作用。