grab dele af en hjemmeside i VBS

Hej Carsten,

Skal det absolut være vbs? :)

/Michael

Hej igen,

Du må lige bære over med udseendet af mit vbscript men dette henter tekst fra en div på denne side og smider det ud i .csv:

Dim ie, data, objFSO, objTextFile, result
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Set ie = WScript.CreateObject("InternetExplorer.Application")

ie.Navigate "http://www.eksperten.dk/spm/970346#reply_7990562"
ie.visible = false

while ie.readystate <> 4
    wscript.sleep 100
WEnd

set data = ie.document.getElementById("reply_7990562")
result = data.innerText
ie.Quit

   
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\data.csv", True)
   

objTextFile.Write ("1;" & result & ";")

objTextFile.Close

Og dette hiver alle anchor-tags:

Dim ie, data, objFSO, objTextFile, item, count
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
count = 0
Set ie = WScript.CreateObject("InternetExplorer.Application")

ie.Navigate "http://www.eksperten.dk/spm/970346#reply_7990562"
ie.visible = false

while ie.readystate <> 4
    wscript.sleep 100
WEnd

Set data = ie.Document.getElementsByTagName("a")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\data.csv", True)
    objTextFile.WriteLine "id;" & "link;"
For Each item In data
    count = count + 1
    objTextFile.Writeline (count & ";" & item & ";")
    Next

objTextFile.Close
ie.Quit

det er ikke et krav tænkte bare selv det ville være nemmer men ser lige på det du har lavet og vender tilbage :)

i den anden ting du har skrevet hvis jeg ændrer a til div skriver den [object] er det mig som gør noget forkert ?

Prøv at ændre foreach løkken:

For Each item In data
    count = count + 1
    objTextFile.Writeline (count & ";" & item& ";")
    Next

til (så det er item.innerText):

For Each item In data
    count = count + 1
    objTextFile.Writeline (count & ";" & item.innerText & ";")
    Next

mange tak for hjælpen det vil dog bare ikke som jeg vil så dropper det nok igen :)