Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19528 > unrolled thread

Programma per unire 2 file PDF

Started by"Sauro" <vicchi@crsscala.it>
First post2019-02-22 15:14 +0100
Last post2019-03-01 13:29 +0100
Articles 14 — 6 participants

Back to article view | Back to it.comp.lang.visual-basic

Contents

  Programma per unire 2 file PDF "Sauro" <vicchi@crsscala.it> - 2019-02-22 15:14 +0100
    Re: Programma per unire 2 file PDF Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2019-02-22 18:23 +0100
      Re: Programma per unire 2 file PDF "Sauro" <vicchi@crsscala.it> - 2019-02-24 11:26 +0100
        Re: Programma per unire 2 file PDF Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2019-02-24 16:21 +0100
          Re: Programma per unire 2 file PDF "Sauro" <vicchi@crsscala.it> - 2019-02-25 11:19 +0100
            Re: Programma per unire 2 file PDF Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2019-02-25 14:19 +0100
              Re: Programma per unire 2 file PDF "Sauro" <vicchi@crsscala.it> - 2019-02-25 15:59 +0100
            Re: Programma per unire 2 file PDF SB <stNOOObenevSPAM@tin.it> - 2019-02-25 18:59 +0100
              Re: Programma per unire 2 file PDF "Sauro" <vicchi@crsscala.it> - 2019-02-26 09:54 +0100
              Re: Programma per unire 2 file PDF "Cerebus" <Cerebus@test.it> - 2019-03-15 16:29 +0100
    Re: Programma per unire 2 file PDF "Andrea (Work)" <andrea.isworkDELETEME@gmail.invalid> - 2019-02-22 18:51 +0100
      Re: Programma per unire 2 file PDF "Sauro" <vicchi@crsscala.it> - 2019-02-24 11:31 +0100
      Re: Programma per unire 2 file PDF RobertoA <amorosik@tiscalinet.it> - 2019-02-26 18:00 +0100
        Re: Programma per unire 2 file PDF "Andrea (Work)" <andrea.isworkDELETEME@gmail.invalid> - 2019-03-01 13:29 +0100

#19528 — Programma per unire 2 file PDF

From"Sauro" <vicchi@crsscala.it>
Date2019-02-22 15:14 +0100
SubjectProgramma per unire 2 file PDF
Message-ID<q4p049$dm1$1@gioia.aioe.org>
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

[toc] | [next] | [standalone]

#19530

FromFranz_aRTiglio <franzgol@N0SPAMtin.it>
Date2019-02-22 18:23 +0100
Message-ID<q4pb2q$2lv$1@gioia.aioe.org>
In reply to#19528
Nel suo scritto precedente, Sauro ha sostenuto :
> 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.


e perchè non hai cercato QUI ? :)

<https://groups.google.com/forum/?hl=it#!searchin/it.comp.lang.visual-basic/unire$20pdf|sort:date/it.comp.lang.visual-basic/ukFGM27pL8Q/5GCQGUCMCQAJ>

[toc] | [prev] | [next] | [standalone]

#19535

From"Sauro" <vicchi@crsscala.it>
Date2019-02-24 11:26 +0100
Message-ID<q4trh7$1tdo$1@gioia.aioe.org>
In reply to#19530
"Franz_aRTiglio"  ha scritto nel messaggio >
>
> e perchè non hai cercato QUI ? :)
>
> <https://groups.google.com/forum/?hl=it#!searchin/it.comp.lang.visual-basic/unire$20pdf|sort:date/it.comp.lang.visual-basic/ukFGM27pL8Q/5GCQGUCMCQAJ>

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

[toc] | [prev] | [next] | [standalone]

#19537

FromFranz_aRTiglio <franzgol@N0SPAMtin.it>
Date2019-02-24 16:21 +0100
Message-ID<q4ucmk$9u3$1@gioia.aioe.org>
In reply to#19535
Sauro scriveva il 24/02/2019 :

> Ma come diavolo ai fatto a rintracciare quei messaggi di agosto 2018?
> 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.

[toc] | [prev] | [next] | [standalone]

#19539

From"Sauro" <vicchi@crsscala.it>
Date2019-02-25 11:19 +0100
Message-ID<q50fgd$1g3d$1@gioia.aioe.org>
In reply to#19537
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

[toc] | [prev] | [next] | [standalone]

#19540

FromFranz_aRTiglio <franzgol@N0SPAMtin.it>
Date2019-02-25 14:19 +0100
Message-ID<q50pss$11r5$1@gioia.aioe.org>
In reply to#19539
Sauro ha detto questo lunedì :
> 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.

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 :).

[toc] | [prev] | [next] | [standalone]

#19541

From"Sauro" <vicchi@crsscala.it>
Date2019-02-25 15:59 +0100
Message-ID<q50vse$1tt2$1@gioia.aioe.org>
In reply to#19540
Andrò a vedere di cosa si tratta.

Ciao Franz e grazie.


"Franz_aRTiglio" <franzgol@N0SPAMtin.it> ha scritto nel messaggio 
news:q50pss$11r5$1@gioia.aioe.org...
> Sauro ha detto questo lunedì :
>> 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.
>
> 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 :).

[toc] | [prev] | [next] | [standalone]

#19542

FromSB <stNOOObenevSPAM@tin.it>
Date2019-02-25 18:59 +0100
Message-ID<7ma87etlfm9niremogni6b5rn5j0kt3f4v@4ax.com>
In reply to#19539
Il giorno Mon, 25 Feb 2019 11:19:59 +0100, "Sauro" <vicchi@crsscala.it> ha
scritto:

>Non ho capito.
>
>Dov'?he 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 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

[toc] | [prev] | [next] | [standalone]

#19543

From"Sauro" <vicchi@crsscala.it>
Date2019-02-26 09:54 +0100
Message-ID<q52urr$qd1$1@gioia.aioe.org>
In reply to#19542
"SB"  ha scritto nel messaggio

[cut]

> 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

[toc] | [prev] | [next] | [standalone]

#19606

From"Cerebus" <Cerebus@test.it>
Date2019-03-15 16:29 +0100
Message-ID<q6ggdq$1852$1@gioia.aioe.org>
In reply to#19542
"SB" <stNOOObenevSPAM@tin.it> ha scritto nel messaggio 
news:7ma87etlfm9niremogni6b5rn5j0kt3f4v@4ax.com...

> Se vuoi usare il vecchio OE anche su O.S. più moderni, ci si riesce.

Lo uso persino sul Win10!!!
:)

[toc] | [prev] | [next] | [standalone]

#19532

From"Andrea (Work)" <andrea.isworkDELETEME@gmail.invalid>
Date2019-02-22 18:51 +0100
Message-ID<c510jx28hrn0.5l0cfd0xahrx$.dlg@40tude.net>
In reply to#19528
Il Fri, 22 Feb 2019 15:14:37 +0100, Sauro ha scritto:

> 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ù.

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.

[toc] | [prev] | [next] | [standalone]

#19536

From"Sauro" <vicchi@crsscala.it>
Date2019-02-24 11:31 +0100
Message-ID<q4trqf$1ulg$1@gioia.aioe.org>
In reply to#19532
"Andrea (Work)"  ha scritto nel messaggio

> 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.

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

[toc] | [prev] | [next] | [standalone]

#19545

FromRobertoA <amorosik@tiscalinet.it>
Date2019-02-26 18:00 +0100
Message-ID<q53qil$120n$1@gioia.aioe.org>
In reply to#19532
Il 22/02/2019 18:51, Andrea (Work) ha scritto:
> Il Fri, 22 Feb 2019 15:14:37 +0100, Sauro ha scritto:
> 
>> 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ù.
> 
> 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.
> 

Esplicati mellio, peppiacere

[toc] | [prev] | [next] | [standalone]

#19547

From"Andrea (Work)" <andrea.isworkDELETEME@gmail.invalid>
Date2019-03-01 13:29 +0100
Message-ID<1h7moxj226xik.1a2mo8kmc0thj.dlg@40tude.net>
In reply to#19545
Il Tue, 26 Feb 2019 18:00:57 +0100, RobertoA ha scritto:

>> O scarichi visual studio gratuito e con itextsharp e 20 righe di codice ti
>> fai il tuo programma da usare a riga di comando.
>> 
> 
> 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

[toc] | [prev] | [standalone]

Back to top | Article view | it.comp.lang.visual-basic

csiph-web