Hente data fra eksterne sider...
Jeg mangler hjælp til at hente data fra nationalbankens hjemmeside (valuta kurser) Jeg har et WSH scripts som gør det samme, men det er jo lidt resource krævende. Er der nogen som kan hjælpe mig med at lave den om ? Har fået at vide at det meste kan genbruges... I'm lost *LOL*------- koden -------
Set IE = WScript.CreateObject("InternetExplorer.Application")
set RegExp = New RegExp
ie.navigate "http://www.nationalbanken.dk/nb/nb.nsf/alldocs/Fvalutakurser"
do until ie.readystate = 4: loop
set doc = IE.Document
set table = doc.all.tags("TABLE").item(0)
wscript.echo "Valutakurser pr. " & table.rows(2).cells(1).inntertext & ":"
for each row in table.rows
regexp.pattern ? "\([A-Z]{3}\)"
set match = regexp.execute(row.cells(0).inntertext)
if match.count>0 then
id = mid(match.item(0) ,2 ,3)
kurs = row.cells(1).innertext
wscript.echo id & ": " & kurs
end if
next
set IE = Nothing
---------------------------
