none
Crear pdf a partir de otro. RRS feed

  • Debate general

  • Hola Amigos, 

    Tengo un pequeño código que extrae los textos de un pdf, y la pregunta es como puedo hacer que a partir de esa extracción me cree uno nuevo pero con un texto diferente.

    Es decir lo que hace mi código es que busca la palabra Folio Interno si la encuentra, toma todo lo que sigue hasta que encuentra la palabra Folio Externo y lo que hay entre esas 2 palabras es lo que quiero cambiar y hacer un pdf nuevo.

    Por ahí leí de campos editables, pero estos pdfs no traen. Me pueden ayudar o dar una recomendación?

    Slds!

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            Try
    
                Dim strPathPdf = "C:\23.pdf"
    
                If File.Exists(strPathPdf) Then
                    Dim oReader As New iTextSharp.text.pdf.PdfReader(strPathPdf)
                    Dim its As New iTextSharp.text.pdf.parser.SimpleTextExtractionStrategy
                    Dim strFactura As String
    
                    Dim DocumentText = iTextSharp.text.pdf.parser.PdfTextExtractor.GetTextFromPage(oReader, 1, its)
    
                    If InStr(DocumentText, "FOLIO INTERNO") > 0 Then
    
                        If InStr(DocumentText, "FOLIO EXTERNO") > 0 Then
    
                            Dim strPosicionInicial = InStr(DocumentText, "FOLIO INTERNO") + 13
                            Dim strPosicionFinal = InStr(DocumentText, "FOLIO EXTERNO") - 1
                            strFactura = Replace(DocumentText.Substring(strPosicionInicial, strPosicionFinal - strPosicionInicial), " ", "")
                            oReader.Close()
    
    
    
                        End If
    
                    End If
    
                    strFactura = Nothing
                    oReader = Nothing
                    its = Nothing
    
                Else
                   
                End If
    
    
                Throw New Exception("Error en verificar PDF")
            Finally
    
            End Try
    
    
    
    
        End Sub

    jueves, 9 de junio de 2016 15:26

Todas las respuestas

  • Puedes hacer uso de la libreria iTextSharp.

    Acá te dejo un link de un libro en pdf de esta libreria:

    http://data.pauldijou.fr/books/iText%20in%20Action-Mantesh.pdf


    Saludos.

    miércoles, 22 de junio de 2016 17:38