Newsgroup: it.lavoro.informatica
Titolo: [OT] Script interessante per produrre il PDF de Il Giornale di oggi

Vi segnalo questo script capace di scaricare dal sito de IL GIORNALE tutte
le pagine del quotidiano e produrne il PDF completo.
http://trotterello.wordpress.com/about/
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Per stamparlo e poi farne un falo'?

 Per stamparlo e poi farne un falo'?
Uno shred sul PDF non darà la stessa sensazione di un falò però è più
ecologico ;)
-- 
Vide

 ha scritto nel messaggio 
news:1184229436....@n60g2000hse.googlegroups.com...

A che pro? 

 A che pro? 
E' giusto non bisogna inquinare l'aria

 ha scritto nel messaggio 
news:81Z208Z105Z164Y...@usenet.libero.it...

perchè non pubblichi la versione per win? 


Lo posso stampare anche su carta doppio velo?
m.

 ha scritto nel messaggio 
news:1184244910....@d55g2000hsg.googlegroups.com...

devi. 

joy artel ha scritto:

Questo è un .VBS equivalente:
------- 8< ------- 8< ------- 8< ------- 8< ------- 8< -------
Const DIR_TMP= "C:TEMP"	' Niente spazi nel path, PDFTK non gestisce path
con spazi in mezzo...
Const WGET= "C:ProgrammiWGETwget.exe"
Const PDFTK= "C:ProgrammiPDFTKpdftk.exe"
Const ForReading= 1, TristateFalse= 0, WinMin= 7
Set Shell = WScript.CreateObject ("WSCript.shell")
FileHtml= DIR_TMP & "index.html"
FilePDF= DIR_TMP & "ilgiornale.pdf"
Shell.run "cmd /c del /q " & DIR_TMP & "~*.pdf", WinMin, True
Shell.run WGET & " 
http://www.ilgiornale.it/lp_n.pic1
 -O " & FileHtml,
WinMin, True
Set fso= CreateObject ("Scripting.FileSystemObject")
strHtml= fso.GetFile(FileHtml).OpenAsTextStream(ForReading,
TristateFalse).ReadAll()
Set regEx = New RegExp
regEx.IgnoreCase = False: regEx.Global = True   
regEx.Pattern= """/lp_n.pic1?PAGE=(d+)"""
Set ricorr= regEx.Execute (strHtml)
For Each ric in ricorr
	Pag= ric.SubMatches (0)
	Shell.Run WGET & " 
http://www.ilgiornale.it/pag_pdf.php?ID=
" & Pag & " -O
" &  DIR_TMP & "~" & Pag & ".pdf", WinMin, True	
Next
Shell.Run PDFTK & " " & DIR_TMP & "~*.pdf cat output " & FilePDF & "
dont_ask verbose", WinMin, True
Shell.Run FilePDF
------- 8< ------- 8< ------- 8< ------- 8< ------- 8< -------
Ciao, Alessandro
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ah, da me ha impiegato un quarto d'ora per creare il pdf da 130 MB con 72
pagine...



Il copia & incolla da Newsland si è fumato tutti i ... :-D
Vediamo se raddoppiandoli gli garba... se non "passano" ancora, be', chi
lo vuole usare si trovi dove mancano... :-)
------- 8< ------- 8< ------- 8< ------- 8< ------- 8< -------
Const DIR_TMP= "C:\TEMP"	' Niente spazi nel path, PDFTK non gestisce path
con spazi in mezzo...
Const WGET= "C:\Programmi\WGET\wget.exe"
Const PDFTK= "C:\Programmi\PDFTK\pdftk.exe"
Const ForReading= 1, TristateFalse= 0, WinMin= 7
Set Shell = WScript.CreateObject ("WSCript.shell")
FileHtml= DIR_TMP & "\index.html"
FilePDF= DIR_TMP & "\ilgiornale.pdf"
Shell.run "cmd /c del /q " & DIR_TMP & "\~*.pdf", WinMin, True
Shell.run WGET & " 
http://www.ilgiornale.it/lp_n.pic1
 -O " & FileHtml,
WinMin, True
Set fso= CreateObject ("Scripting.FileSystemObject")
strHtml= fso.GetFile(FileHtml).OpenAsTextStream(ForReading,
TristateFalse).ReadAll()
Set regEx = New RegExp
regEx.IgnoreCase = False: regEx.Global = True   
regEx.Pattern= """/lp_n\.pic1\?PAGE=(\d+)"""
Set ricorr= regEx.Execute (strHtml)
For Each ric in ricorr
	Pag= ric.SubMatches (0)
	Shell.Run WGET & " 
http://www.ilgiornale.it/pag_pdf.php?ID=
" & Pag & " -O
" &  DIR_TMP & "\~" & Pag & ".pdf", WinMin, True	
Next
Shell.Run PDFTK & " " & DIR_TMP & "\~*.pdf cat output " & FilePDF & "
dont_ask verbose", WinMin, True
Shell.Run FilePDF
------- 8< ------- 8< ------- 8< ------- 8< ------- 8< -------



Compreso quello qui sopra... :-D
Comunque ora sono usciti i \


 Comunque ora sono usciti i \
http://rafb.net/paste
-- 
Salvatore Iovene
http://www.iovene.com


Grazie, figo!!! A parte il violetto per le stringhe...
http://rafb.net/p/4q2vlz60.html
Ma quanto dura quel link?
Ciao, Alessandro


 Ma quanto dura quel link?
24H, come scritto... 
-- 
__________________________________________________
Luc (34, CO)
MS Visual Studio developer - Programmer since 1985
__________________________________________________


Scritto dove??? :-)
Ok, non mi sono messo a leggere le FAQ quando l'ho provato.
Ritiro il figo dell'altro post, comunque il tipo che rende disponibile il
servizio, poteva metterlo anche in evidenza nella form dove si pasta il
codice, visto il vincolo mica da poco.
Ok, sbagliato io...



Oggi sono particolarmente rincoglionito... c'è già scritto, in piccolino
tipo postilla in basso a sx, ma c'è scritto, è proprio ora di cambiare gli
occhiali... :-)


 occhiali... :-)
rafb.net/paste
 è pensato per IRC. 24h sono tante. Se ti serve qualcosa che
duri di più, di pastebin ce ne sono a centinaia.
http://pastebin.com/



Rithx, comunque anche con questo la colorazione fa schifo...
Ciao, Alessandro



No per quello meglio Liberazione (anche su pdf per il falò virtuale).
PaF