Function getTitle(strText)
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = true
regEx.Pattern = "/<title[^>]*>([^<]+)<\/title>/im"
getTitle = regEx.Execute(strText)
Set regEx = Nothing
End Function
response.write getTitle(strHTML)
responseText fungerar. Tack!
Nåt är inte helt rätt med raderna ovan...?
Hej!
Ursäkta mig för den långsamma konversationen! Jag försöker hitta svaren på egen hand, att inte fråga om allt.
Tack för pattern!
Jag hittar inte hur man gör för att returnera första värdet.
Ofta ska man byta ut olika saker med regular expressions. Men jag vill ju inte byta ut något!
Den här attans texten vill jag åt!
<TITLE>Den här attans texten vill jag åt!</TITLE>
:-)
Function getTitle(strText)
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = true
regEx.Pattern = "<title[^>]*>([^<]+)<\/title>"
set matches = regEx.Execute(strText)
getTitle = matches(0).Submatches(0)
Set matches = Nothing
Set regEx = Nothing
End Function