Fra webside indhold til tekstfil - findes der en let måde?

Jeg kunne nok lave et script der hiver info ud af sidernes tabeller, men det er lidt af et hestearbejde og overkill for 12 siders skyld! Især når man næsten får det du ønsker, ved at åbne siden, trykke Ctrl+a efterfulgt af Ctrl+c, og dernæst indsætte det kopierede i Notepad med Ctrl+v. Så mangler man bare at fjerne lidt i starten og i slutningen, og man har en linjeskifts-separeret tekstfil. Linjeskiftene kan nemt udskiftes med ; vha. Søg/Erstat i Word.
Ctrl+a, Ctrl+c og Ctrl+v kan evt. erstattes med hhv. højreklik -> marker alt,højreklik -> kopier og højreklik -> indsæt.

hmm fed ide, hvorfor tænkte jeg ikke på det selv.

Well om det er programmeret i VB eller ej, så præsenterede du mig da for en løsning jeg kan bruge i dette tilfælde, og derfor får du også alle points.

Mange tak!

Selv tak! Og jeg ser først nu at det er et VB-spørgsmål, så  til inspiration får du lige, noget jeg engang har brugt til at plukke teksten ud af <H1>- og <PRE>-tags på en masse sider i et hug. Så er pointene ikke helt ved siden af. ;-)

aUrls = Array("ARRAY MED DE ØNSKEDE HJEMMESIDERS ADRESSER")

set ie = createobject("internetexplorer.application")

For i = 0 to ANTAL_HJEMMESIDER
  ie.navigate aUrls(i)

  Do while ie.busy
  loop
 
  Set h1node = ie.Document.getElementsByTagName("h1")
  s = ""
  If Not IsNull  (h1node(0)) Then
    s = s &  h1node(0).InnerHTML & vbNewLine
  end If
 
  Set loNodes = ie.Document.getElementsByTagName("pre")

  If loNodes.length > 1 Then
    For j = 1 to (loNodes.length - 1)
      s = s & loNodes(j).InnerHTML & vbNewLine
    Next
  end If
 
  s = s & vbNewLine & "@@@" & vbNewLine
  writeFileT s,"TEKSTFIL"
Next

ie.visible = false
ie.quit

Function writeFileT (txt, sti)
  Dim filesys, filetxt
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Set filesys = CreateObject("Scripting.FileSystemObject")
  Set filetxt = filesys.OpenTextFile(sti, ForAppending, True)
  filetxt.WriteLine(txt)
  filetxt.Close
  writeFileT = txt
end Function

okay very nice!
-Det er fedt at have, for jeg er sikker på det ikke er sidste gang jeg får brug for den slags!