[ASP] Data van een HTML pagina halen.. hoe¿ - Softwareontwikkeling

zondag 23 december 2001 19:53

Acties:

'ON ERROR RESUME NEXT

Topicstarter

Ik wil graag data van een HTML pagina halen, maar ik heb geen idee hoe dat gaat.
Kan iemand een code-snippet geven, of een url-rtje waar dat staat uitgelegd?
Ik kan niks vinden op GoT of met google.

tyrips, tywreps, tiewreps, tiereps, tie raps, ripties, taiwraps, kabelbindbandjes » Tie Wraps
\o/

zondag 23 december 2001 20:00

Acties:

Verwijderd

Het xmlhttp componentje laat zich voor veel meer dingen misbruiken dan alleen xml

code:

<%@ Language = "VBScript" %>
<% Response.Buffer = True %>
<html>
<body>
<%
dim xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET","http://www.cnn.com/",False
xml.Send
response.write xml.responsetext
%>
</body>
</html>

zondag 23 december 2001 20:16

Acties:

StarLite

'ON ERROR RESUME NEXT

Topicstarter

k, tnx
http://213.53.18.20/test.asp

maar waar slaat 'ie alles dan in op¿
Stel dat ik de regel Updated: 02:05 p.m. EST (1905 GMT) -- 23 December 2001 in een var wil hebben, hoe moet dat dan verder¿

tyrips, tywreps, tiewreps, tiereps, tie raps, ripties, taiwraps, kabelbindbandjes » Tie Wraps
\o/

zondag 23 december 2001 20:25

Acties:

Verwijderd

code:

<%@ Language = "VBScript" %>
<% Response.Buffer = True %>

<html>
<body>

<%
dim xml,resp
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET","http://www.cnn.com/",False
xml.Send
resp = Mid(xml.responsetext, InStr(1, xml.responsetext, "cnnTimestamp") + 14)
resp = Left(resp, InStr(1, resp, Chr(10)) - 1)
response.write resp
%>

</body>
</html>

Zoo nu genoeg script requestjes gedaan, nu zelf weer de manual er weer bij pakken en het zelf uit zoeken okay?

zondag 23 december 2001 20:42

Acties:

StarLite

'ON ERROR RESUME NEXT

Topicstarter

bedankt man!

Wat je dus doet is met instr() een regel selcteren en dan met mid(), left() en right() de bruikbare info eruit filteren?

Dus als ik het goed begrijp:

code:

1	resp = Mid(xml.responsetext, InStr(1, xml.responsetext, "cnnTimestamp") + 14)

Je zet in de var resp: 14 karakters rechts van het midden van de regel waarin "cnnTimestamp" voorkomt

en deze regel haalt alles NA de gevonden code bij resp weg:

code:

1	resp = Left(resp, InStr(1, resp, Chr(10)) - 1)

resp word: De linkerhelft van resp waarin Chr(10) voorkomt¿ [wat doen die 1, en die -1]

tyrips, tywreps, tiewreps, tiereps, tie raps, ripties, taiwraps, kabelbindbandjes » Tie Wraps
\o/

zondag 23 december 2001 20:48

Acties:

Verwijderd

Zie de html code van cnn.com en de manual van instr en left en het zal je allemaal duidelijk worden.

zondag 23 december 2001 20:55

Acties:

StarLite

'ON ERROR RESUME NEXT

Topicstarter

start > run > "cmd" > man Instr > man unknown command

k, ik denk dat ik er nu wel uitkom

tyrips, tywreps, tiewreps, tiereps, tie raps, ripties, taiwraps, kabelbindbandjes » Tie Wraps
\o/

zondag 23 december 2001 21:00

Acties:

Verwijderd

't is geen unix doos hoor

Het niet hebben van 'n manual is geen excuus rtfm'ers te posten hoor

http://msdn.microsoft.com

zondag 23 december 2001 23:44

Acties:

StarLite

'ON ERROR RESUME NEXT

Topicstarter

ah, kep al wat gevonden op www.4guysfromrolla.com

tyrips, tywreps, tiewreps, tiereps, tie raps, ripties, taiwraps, kabelbindbandjes » Tie Wraps
\o/