HEj!
Följande kod hämtar just nu allt från en sida, jag undrar lite hur man får den att bara hämta just innehållet i en <div med class=tableContainer>.
Har föröskt lite men får inte dte att fungera.
Några ideer?
<%
objGetPage.Send
strHTML=objGetPage.responseText
set re = new regexp
re.global = true
re.pattern = "<div class=tableContainer[^>]*>(?:.*?)</div>"
set m = re.execute(strHTML)
set re = nothing
Set objGetPage = Nothing
Set objFSO= CreateObject("Scripting.FileSystemObject")
Set objTxt = objFSO.CreateTextFile(Server.MapPath("XMLHTTP ") & "elitserien.txt")
objTxt.WriteLine strHTML
objTxt.Close
Set objTxt = Nothing
Set objFSO = Nothing
%>
Då måste göra något med strHTML, och dessutom plocka ut värdet.
<%
objGetPage.Send
strHTML=objGetPage.responseText
set re = new regexp
re.global = true
re.pattern = "<div class=tableContainer[^>]*>(.*?)</div>"
set m = re.execute(strHTML)
set re = nothing
Set objGetPage = Nothing
if m.count>0 then
strHTML=m(0).submatches(0)
Set objFSO= CreateObject("Scripting.FileSystemObject")
Set objTxt = objFSO.CreateTextFile(Server.MapPath("XMLHTTP ") & "elitserien.txt")
objTxt.WriteLine strHTML
objTxt.Close
Set objTxt = Nothing
Set objFSO = Nothing
End If
%>
Följande kod ger ingen textfil, det verkar som om att dne inte går in i if satsen.
objGetPage.Send
strHTML=objGetPage.responseText
set re = new regexp
re.global = true
re.pattern = "<div class=tableContainer[^>]*>(.*?)</div>"
set m = re.execute(strHTML)
set re = nothing
Set objGetPage = Nothing
if m.count>0 then
strHTML=m(0).submatches(0)
Set objFSO= CreateObject("Scripting.FileSystemObject")
Set objTxt = objFSO.CreateTextFile(Server.MapPath("XMLHTTP ") & "elitserien.txt")
objTxt.WriteLine strHTML
objTxt.Close
Set objTxt = Nothing
Set objFSO = Nothing
End If
tar jag bort "if m.count>0 then" så får jag:
Invalid procedure call or argument
på rad 18 som är: strHTML=m(0).submatches(0)
