Newsgroup: it.comp.lang.visual-basic
Titolo: Programma per unire 2 file PDF

Mi servirebbe un programma per poter eseguire con
vb6 la seguente istruzione:
 
Shell "ProgrammaPDF file1.pdf, file2.pdf, fileFinale.pdf"
 
Insomma un programma che mi unisce 2 file pdf senza
dover essere caricato.
 
Sono stato un vero stupido..
Qualcuno di voi me lo aveva suggerito tempo fà.
L'ho scaricato e provato.
Andava benissimo.
Non l'ho memorizzato correttamente e adesso non
lo trovo più.
 
Ho cercato in rete.
C'è un sacco di roba sui pdf ma non trovo più quello.
 
Chiedo aiuto.
 
Saluti
Sauro 
 
 

 lo trovo più.
 
C'è anche PDFSam che ha la riga di comando, ti basta fare un batch da
codice e lanciarlo.
O scarichi visual studio gratuito e con itextsharp e 20 righe di codice ti
fai il tuo programma da usare a riga di comando.


 
Proprio Pdftk è perfetto e questa volta non me lo scordo.
 
Ma come diavolo ai fatto a rintracciare quei messaggi di agosto 2018?
Lascia stare; non è una domanda ma solo un'esclamazione.
 
Ciao Franz e grazie.
Sauro 
 
 

 fai il tuo programma da usare a riga di comando.
 
Ho risolto bene con Pdftk.
Comunque grazie Andrea.
PDFSam mi è stato utile in altri casi.
Non sapevo che funzionasse anche a riga di comando.
 
Ciao Sauro 
 
 

 Lascia stare; non è una domanda ma solo un'esclamazione.
 
 
lol: comunque da qui ho fatto ctrl + f (cerca)
 
autore "sauro"
 
oggetto "pdf"
 
primo risultato
 
copiaincollato il MSGID nel cerca di google: fatto.

Non ho capito.
 
Dov'è che si possono specificare autore e oggetto?
 
E quando dici "da qui" che cosa intendi?
Io per esempio sono dentro a un outlook express di vecchia data.
Se premo ctrl+f mi si apre una finestra per una risposta al tuo post.
 
Ciao Franz
Sauro 
 
 

Sauro ha detto questo lunedì :

Abbundoh... io uso mesnews e col ctrl+f si apre il "cerca" :)
 
https://postimg.cc/GTbKy5Mq
 
 
sono migrato da OE a mesnews perchè OE non funzionava su 7 e non mi
fidavo (ai tempi) delle varie patch homebrew, ci ho messo un po' a
farmelo piacere ma ora non tornerei indietro :).

Andrò a vedere di cosa si tratta.
 
Ciao Franz e grazie.
 
 
"Franz_aRTiglio" <fran...@N0SPAMtin.it> ha scritto nel messaggio 
news:q50pss$11r5$1...@gioia.aioe.org...


Io per esempio sono dentro a un outlook express di vecchia data.
 
Se vuoi usare il vecchio OE anche su O.S. più moderni, ci si riesce.
 
Leggiti questo thread, compresi i riferimenti:
 
https://groups.google.com/forum/#!topicsearchin/it.comp.os.win.windows10/subject$3A%5BX-Post%5D$20AND$20subject$3AQuotefix$20AND$20subject$3Aper$20AND$20subject$3AOutlook$20AND$20subject$3AExpress$20AND$20subject$3A6.0...$20AND$20subject$3Ao$20AND$20subject$3Aquasi/it.comp.os.win.windows10/xNzsXj4_ujc
 
 
o   
https://goo.gl/6Hex5M
 
 
 
-- 
ciao
  Stefano

 Se vuoi usare il vecchio OE anche su O.S. più moderni, ci si riesce.
 
Intanto me lo sono scaricato; poi ci ragionerò.
 
Grazie Stefano
Sauro
 
 


Esplicati mellio, peppiacere

 Esplicati mellio, peppiacere
 
Qualcosa del genere
 
|     Sub AddPdf(ByVal sInFilePath As String, ByRef oPdfDoc As iTextSharp.text.Document, ByRef oPdfWriter As PdfWriter)
| 
|         Dim oDirectContent As iTextSharp.text.pdf.PdfContentByte = oPdfWriter.DirectContent
|         Dim oPdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sInFilePath)
|         Dim iNumberOfPages As Integer = oPdfReader.NumberOfPages
|         Dim iPage As Integer = 0
| 
|         Do While (iPage < iNumberOfPages)
|             iPage += 1
| 
|             Dim iRotation As Integer = oPdfReader.GetPageRotation(iPage)
|             Dim oPdfImportedPage As iTextSharp.text.pdf.PdfImportedPage = oPdfWriter.GetImportedPage(oPdfReader, iPage)
| 
|             oPdfDoc.SetPageSize(oPdfReader.GetPageSizeWithRotation(iPage))
|             oPdfDoc.NewPage()
| 
|             If (iRotation = 90) Or (iRotation = 270) Then
|                 oDirectContent.AddTemplate(oPdfImportedPage, 0, -1.0F, 1.0F, 0, 0, oPdfReader.GetPageSizeWithRotation(iPage).Height)
|             Else
|                 oDirectContent.AddTemplate(oPdfImportedPage, 1.0F, 0, 0, 1.0F, 0, 0)
|             End If
| 
|         Loop
|         
|     End Sub
 
|     Sub Main()
|         Dim workFolder As String = System.AppDomain.CurrentDomain.BaseDirectory
|         Dim oFolderInfo As New System.IO.DirectoryInfo(workFolder)
|         Dim sOutFilePath As String = workFolder & "\" & oFolderInfo.Name & ".pdf"
| 
| 
|         If IO.File.Exists(sOutFilePath) Then
|             Try
|                 IO.File.Delete(sOutFilePath)
|             Catch ex As Exception
|                 Console.WriteLine("Output file already exists: " & sOutFilePath & " and could not be deleted.")
|                 Exit Sub
|             End Try
|         End If
| 
|         Dim oFiles As String() = Directory.GetFiles(workFolder, "*.PDF")
| 
|         ' esco se non ci sono files
|         If oFiles.Length = 0 Then Exit Sub
| 
|         Dim oPdfDoc As New iTextSharp.text.Document()
|         Dim oPdfWriter As PdfWriter = PdfWriter.GetInstance(oPdfDoc, New FileStream(sOutFilePath, FileMode.Create))
| 
|         oPdfDoc.Open()
| 
|         System.Array.Sort(Of String)(oFiles)
| 
|         For i As Integer = 0 To oFiles.Length - 1
|             Dim sFromFilePath As String = oFiles(i)
|             Dim oFileInfo As New FileInfo(sFromFilePath)
| 
|             Try
| 
|                 AddPdf(sFromFilePath, oPdfDoc, oPdfWriter)
| 
|             Catch ex As Exception
|                 Console.WriteLine(sFromFilePath & vbTab & ex.Message)
|             End Try
| 
| 
|         Next
| 
|         Try
|             oPdfDoc.Close()
|             oPdfWriter.Close()
|         Catch ex As Exception
|             Console.WriteLine(ex.Message)
|             Try
|                 IO.File.Delete(sOutFilePath)
|             Catch ex2 As Exception
|             End Try
|         End Try
| 
| 
| 
|     End Sub

 Se vuoi usare il vecchio OE anche su O.S. più moderni, ci si riesce.
 
Lo uso persino sul Win10!!!
:)