Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Problema con ajpdsoft extraer txt PDF
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Problema con ajpdsoft extraer txt PDF

Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
cdistri
Buen usuario


Registrado: May 26, 2009
Mensajes: 5

Asunto: Problema con ajpdsoft extraer txt PDF Responder citando

Hola

He conseguido a traves de esta pagina el codigo de como pasar un pdf a txt. Lo he instalado en mi equipo para ver el funcionamiento del programa y de esta manera poder implementarlo en el mio pero me da un error justo cuando intenta leer el archivo PDF, no se a que es debido ya que no he hecho nada mas que ejecutar el programa selecciono el archivo pdf y error 13.

Pudiera ser que me faltara la instalacion de algo pero no se que puede ser.

Este es el link de donde he obtenido el programa:
http://www.ajpdsoft.com/modules.php?name=Downloads&d_op=getit&lid=174

A ver si me podeis ayudar

Un saludo
MensajePublicado:
Mar May 26, 2009 6:50 am
Top of PageVer perfil de usuario
cdistri
Buen usuario


Registrado: May 26, 2009
Mensajes: 5

Asunto: Responder citando

Problema resuelto.

Hay que tener instalado Acrobat Profesional

Un saludo
MensajePublicado:
Mar May 26, 2009 1:59 pm
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Problema con ajpdsoft extraer txt PDF Responder citando



Anuncios



cdistri escribió:
Problema resuelto.

Hay que tener instalado Acrobat Profesional

Un saludo


¡¡Muchísimas gracias por tu aportación!! efectivamente, AjpdSoft extraer texto PDF necesita las DLLs de Acrobat Profesional, efectivamente si lo ejecutas sin ellas te dará este error:

---------------------------
AjpdSoft extraer texto PDF
---------------------------
Run-time error '13':

Type mismatch
---------------------------
Aceptar
---------------------------
MensajePublicado:
Jue May 28, 2009 6:14 am
Top of PageVer perfil de usuario
cdistri
Buen usuario


Registrado: May 26, 2009
Mensajes: 5

Asunto: Pregunta Responder citando

Hola alonso
Queria preguntarte si hay alguna api que convierta un documento *.xls en txt.
Necesitaba alguna api que me convirtiera archivos xls, pdf ( ya lo tengo) y doc en txt para luego tratarlos.

A ver si me puedes ayudar

Un saludo
MensajePublicado:
Jue May 28, 2009 6:21 am
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Pregunta Responder citando



Anuncios



cdistri escribió:
Hola alonso
Queria preguntarte si hay alguna api que convierta un documento *.xls en txt.
Necesitaba alguna api que me convirtiera archivos xls, pdf ( ya lo tengo) y doc en txt para luego tratarlos.

A ver si me puedes ayudar

Un saludo


Tal vez te sirva este código realizado en Visual Basic 6:

Código:

Private Sub bObtener_Click()
  Dim objExcel As Excel.Application
  Dim objLibro As Excel.Workbook

  On Error GoTo cError
 
  Set objExcel = New Excel.Application
  Set objLibro = objExcel.Workbooks.Open(txtFichero.Text)
 
  txtValor.Text = objExcel.Worksheets(txtHoja.Text).Range(txtColumna.Text & txtFila.Text).Value

  objExcel.Workbooks.Close
  objExcel.Quit
 
  Set objExcel = Nothing
  Set objLibro = Nothing
 
cSalir:
  Exit Sub
 
cError:
  MsgBox Err.Description, vbCritical, vbOKOnly
  GoTo cSalir
End Sub

Private Sub bObtenerRango_Click()
  Dim i As Integer
  Dim j As Integer
  Dim objExcel As Excel.Application
  Dim objLibro As Excel.Workbook
  Dim valor As String

  On Error GoTo cError
 
  Set objExcel = New Excel.Application
  Set objLibro = objExcel.Workbooks.Open(txtFichero.Text)
 
  For i = CInt(txtRFilaI.Text) To CInt(txtRFilaF.Text)
    For j = CInt(txtRColumnaI.Text) To CInt(txtRColumnaF.Text)
      If txtRValor.Text <> "" Then
        txtRValor.Text = txtRValor.Text & vbCrLf & _
            objExcel.Worksheets(txtRHoja.Text).Cells(i, j).Value
      Else
        txtRValor.Text = objExcel.Worksheets(txtRHoja.Text).Cells(i, j).Value
      End If
    Next j
  Next i

  objExcel.Workbooks.Close
  objExcel.Quit
 
  Set objExcel = Nothing
  Set objLibro = Nothing
 
cSalir:
  Exit Sub
 
cError:
  MsgBox Err.Description, vbCritical, vbOKOnly
  GoTo cSalir

End Sub

Private Sub bObtenerTodos_Click()
  Dim i As Integer
  Dim j As Integer
  Dim objExcel As Excel.Application
  Dim objLibro As Excel.Workbook
  Dim valorObtenido As String
  Dim numeroColumnas As Integer
  Dim numeroFilas As Integer
  Dim fila As String
 
  On Error GoTo cError
 
  Set objExcel = New Excel.Application
  Set objLibro = objExcel.Workbooks.Open(txtFichero.Text)

  numeroColumnas = objExcel.Worksheets(txtTHoja.Text).UsedRange.Columns.Count
  numeroFilas = objExcel.Worksheets(txtTHoja.Text).UsedRange.Rows.Count
 
  For i = 1 To numeroFilas
    fila = ""
    For j = 1 To numeroColumnas
      valorObtenido = objExcel.Worksheets(txtTHoja.Text).Cells(i, j).Value
      If fila <> "" Then
        fila = fila & "," & Chr(34) & valorObtenido & Chr(34)
      Else
        fila = Chr(34) & fila & Chr(34)
      End If
    Next j
    If txtTValor.Text <> "" Then
      txtTValor.Text = txtTValor.Text & vbCrLf & fila
    Else
      txtTValor.Text = fila
    End If
  Next i
 
  objExcel.Workbooks.Close
  objExcel.Quit
 
  Set objExcel = Nothing
  Set objLibro = Nothing
 
cSalir:
  Exit Sub
 
cError:
  MsgBox Err.Description, vbCritical, vbOKOnly
  GoTo cSalir
End Sub



Para que te funcione, en el menú "Proyecto" - "Referencias" tienes que añadir: "Microsoft Excel 8.0 Object Library":

MensajePublicado:
Jue May 28, 2009 11:14 am
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Pregunta Responder citando



Anuncios



En el siguietne enlace tienes la descarga gratuita del código fuente de la aplicación AjpdSoft Acceso Excel Visual Basic:

http://www.ajpdsoft.com/modules.php?name=Downloads&d_op=viewdownloaddetails&lid=236
MensajePublicado:
Jue May 28, 2009 12:27 pm
Top of PageVer perfil de usuario
cdistri
Buen usuario


Registrado: May 26, 2009
Mensajes: 5

Asunto: Problema con archivos xls Responder citando

Hola Alonso

He estado probando el archivo que me has pasado y funciona bien cuando son archivos simples.

El archivo que tengo que tratar cuando ejecuto el programa me sale el siguiente error:

El subindice esta fuera de intervalo.

Si queires te puedo adjuntar el xls para que lo veas.

Un saludo
MensajePublicado:
Vie May 29, 2009 7:03 am
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Problema con archivos xls Responder citando



Anuncios



cdistri escribió:
Hola Alonso

He estado probando el archivo que me has pasado y funciona bien cuando son archivos simples.

El archivo que tengo que tratar cuando ejecuto el programa me sale el siguiente error:

El subindice esta fuera de intervalo.

Si queires te puedo adjuntar el xls para que lo veas.

Un saludo


Existe otro método, mediante ADO, que tal vez sea más eficaz, se trata de realizar una conexión al fichero Excel como si de una base de datos se tratase, es algo así:

Código:

   Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=C:\fichero_excel.xls;Extended Properties=Excel 8.0;"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Bill', 'Brown')"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Fernando', 'Alonso')"
   conn.Close


En realidad el código anterior inserta una fila en el fichero de excel "fichero_excel.xls". No lo hemos probado aún, tal vez funcione. En tu caso será un SELECT en vez de un INSERT y tendrás que recorrer los registros devueltos por el select.
MensajePublicado:
Sab May 30, 2009 8:21 pm
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A