Newsgroup: it.comp.aiuto
Titolo: Scaricare

Salve a tutti , avete presente il sito , 
televideo.rai.it
sto cercando un programma che salvi in formato testo
tutte le notizie Ultima ora , a partire dalla prima pagina fino
ad una a scelta .Solo l'intestazione per capirci.
Conoscete qualche programma che svolge questo compito?
http://www.televideo.rai.it/televideo/pub/archiviopagine.jsp
Grazie a tutti
Ciao

c> Conoscete qualche programma che svolge questo compito?
Io conosco WTT WINDOWS TELETEXT che visualizza sul computer le pagine
del televideo, non so se permette di salvarne il testo.
-- 
Sprea
http://sprea.altervista.org

 del televideo, non so se permette di salvarne il testo.
dove lo scarico?
Ciao

"??" <df...@xvv.cbbzs> ha scritto nel messaggio news:4507f12b$0$47967$4faf...@reader3.news.tin.it...

se ti interessano sole le intestazioni perche' non evidenzi quello
che ti interessa e poi con il "Copia e Incolla" lo riporti in un
file di testo? :-)
Per intestazione intendi questa? :
14/09/2006 16:58 Napoli, turista ferito da proiettile
Ciao Nicola

"??"
adesso NON ho il tempo di pulirlo ma guarda google2.txt
dovrebbe contenere (anche) quello che dici :
x = TextFromHTML("
http://www.televideo.rai.it/televideo/pub/archiviopagine.jsp
")
'WScript.Echo x
Function TextFromHTML(URL)
  set ie = createobject("InternetExplorer.Application")
  ie.navigate URL
  do until ie.readystate = 4 : wscript.sleep 10: loop
  TextFromHTML = ie.document.body.outerHtml
  ie.quit
End Function
filename = "google2.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine x
x = TextFromHTML("
http://www.google.it/
")
'WScript.Echo x
Function TextFromHTML(URL)
  set ie = createobject("internetexplorer.application")
  ie.navigate URL
  do until ie.readystate = 4 : wscript.sleep 10: loop
  TextFromHTML = ie.document.body.innerText
  ie.quit
End Function
filename = "google.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine x
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

 "??"
Se installi firefox o seamonkey la stessa cosa la puoi
ottenere direttamente nel browser
http://www.google.it/search?hl=it&q=firefox%2Brss&meta=
--
Fosco

 adesso NON ho il tempo di pulirlo
x = TextFromHTML("http://"& _
"
www.televideo.rai.it/televideo/pub/archiviopagine.jsp
")
'WScript.Echo x
Function TextFromHTML(URL)
  set ie = createobject("InternetExplorer.Application")
  ie.navigate URL
  do until ie.readystate = 4 : wscript.sleep 10: loop
  TextFromHTML = ie.document.body.innerText
  ie.quit
End Function
filename = "Televideo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine x
set oShell = CreateObject("WScript.Shell")
while not FSO.FileExists("Televideo.txt")
WScript.Sleep 100
Wend
oShell.run"Televideo.txt"
--
Fosco


Scusa ero assente e non ti ho risposto.
Lo trovi qui ed è free: 
http://www.yuv.info/~wavexx/hacks/wtt/
Ciao
-- 
Sprea
http://sprea.altervista.org

ti ringrazio.
Ciao

 Ciao
ti ringrazio.
Ciao

 Ciao Nicola
e quello che faccio , ma servirebbe farlo in automatico.
Ciao

 e quello che faccio , ma servirebbe farlo in automatico.
' Avevo un po' di tempo e curiosita' di provare 'na cosa :
' siccome NON so se la pagina e statica o no per affinare
' diminuire o aumentare >>  For i = 0 To 41
x = TextFromHTML("http://"& _
"
www.televideo.rai.it/televideo/pub/solotesto.jsp
")
'WScript.Echo x
' test OFF line
'x = TextFromHTML("C:\WINDOWS\Desktop\Rai televideo\Rai_it - Televideo.htm")
'WScript.Echo x
Function TextFromHTML(URL)
  set ie = createobject("InternetExplorer.Application")
  ie.navigate URL
  do until ie.readystate = 4 : wscript.sleep 10: loop
  TextFromHTML = ie.document.body.innerText
  ie.quit
End Function
filename = "Televideo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine x
set oShell = CreateObject("WScript.Shell")
Msgbox SkipLineInFile
Function SkipLineInFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
  ' Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  ' f.Write "UNO" & vbCrLf & "DUE"& vbCrLf & "TRE" & vbCrLf &"Ciao"
   Set f = fso.OpenTextFile("Televideo.txt", ForReading)
For i = 0 To 41
   f.SkipLine
Next
   SkipLineInFile = f.ReadAll
End Function
filename = "Televideo2.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine SkipLineInFile
while not FSO.FileExists("Televideo2.txt")
WScript.Sleep 100
Wend
oShell.run"Televideo2.txt"
--
Fosco

 'x = TextFromHTML("C:\WINDOWS\Desktop\Rai televideo\Rai_it - Televideo.htm")
ATTENZIONE  che se questa riga sopra viene copiata male da' errore
si puo togliere anche il messagbox .. eccolo qui pulito senza msgbox :
x = TextFromHTML("http://"& _
"
www.televideo.rai.it/televideo/pub/solotesto.jsp
")
'WScript.Echo x
Function TextFromHTML(URL)
  set ie = createobject("InternetExplorer.Application")
  ie.navigate URL
  do until ie.readystate = 4 : wscript.sleep 10: loop
  TextFromHTML = ie.document.body.innerText
  ie.quit
End Function
filename = "Televideo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine x
set oShell = CreateObject("WScript.Shell")
'Msgbox SkipLineInFile
Function SkipLineInFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("Televideo.txt", ForReading)
For i = 0 To 41
   f.SkipLine
Next
   SkipLineInFile = f.ReadAll
End Function
filename = "Televideo2.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set newf = fso.createtextfile(filename)
newf.WriteLine SkipLineInFile
while not FSO.FileExists("Televideo2.txt")
WScript.Sleep 100
Wend
oShell.run"Televideo2.txt"
'Copia incolla su notepad e salva con estensione .vbs
