Visual Basic

C#Coudou wrote:

Is there a way in vb.net that will not use some utilities?

Imports iTextSharp.text
Imports iTextSharp.text.pdf

Public Class PDFMerge

#Region "Fields"
    Private _sourcefolder As String
    Private _destinationfile As String
    Private _fileList As IList = New ArrayList()
#End Region

#Region "Properties"
    ''' 
    ''' Gets or Sets the SourceFolder 
    ''' 
    Public Property SourceFolder() As String
        Get
            Return _sourcefolder
        End Get
        Set(ByVal value As String)
            _sourcefolder = value
        End Set
    End Property

    ''' 
    ''' Gets or Sets the DestinationFile 
    ''' 
    Public Property DestinationFile() As String
        Get
            Return _destinationfile
        End Get
        Set(ByVal value As String)
            _destinationfile = value
        End Set
    End Property
#End Region

#Region "Public Methods"

    ''' 
    ''' Add a new file, together with a given docname to the fileList and namelist collection 
    ''' 
    Public Sub AddFile(ByVal pathnname As String)
        _fileList.Add(pathnname)
    End Sub

    ''' 
    ''' Generate the merged PDF 
    ''' 
    Public Sub Execute()
        MergeDocs()
    End Sub

    Public Sub Execute(ByVal Destination As String)
        DestinationFile = Destination
        MergeDocs()
    End Sub

#End Region

#Region "Private Methods"

    ''' 
    ''' Merges the Docs and renders the destinationFile 
    ''' 
    Private Sub MergeDocs()

        'Step 1: Create a Docuement-Object 
        Dim document As New Document()
        Try
            'Step 2: we create a writer that listens to the document 
            Dim writer As PdfWriter = PdfWriter.GetInstance(document, New System.IO.FileStream(DestinationFile, System.IO.FileMode.Create))

            'Step 3: Open the document 
            document.Open()

            Dim cb As PdfContentByte = writer.DirectContent
            Dim page As PdfImportedPage

            Dim n As Integer = 0
            Dim rotation As Integer = 0

            'Loops for each file that has been listed 
            For Each filename As String In _fileList
                'The current file path 
                Dim filePath As String = SourceFolder + filename

                ' we create a reader for the document 
                Dim reader As New PdfReader(filePath)

                'Gets the number of pages to process 
                n = reader.NumberOfPages

                Dim i As Integer = 0
                While i < n
                    i += 1
                    document.SetPageSize(reader.GetPageSizeWithRotation(1))
                    document.NewPage()

                    'Insert to Destination on the first page 
                    If i = 1 Then
                        Dim fileRef As New Chunk(" ")
                        fileRef.SetLocalDestination(filename)
                        document.Add(fileRef)
                    End If

                    page = writer.GetImportedPage(reader, i)
                    rotation = reader.GetPageRotation(i)
                    If rotation = 90 OrElse rotation = 270 Then
                        cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, _
                        reader.GetPageSizeWithRotation(i).Height)
                    Else
                        cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, _
                        0)
                    End If
                End While
            Next
        Catch e As Exception
            Throw e
        Finally
            document.Close()
        End Try
    End Sub

#End Region

End Class

thebiostyle wrote:

Will they ever make it possible?

Smithers-Jones wrote:

Who is "they"? Evil mad scientists?