Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Programación

Tomar sólo texto de un archivo con VB6

wislow
2007-12-09 19:26 - Respuestas: 3 - Tema nº: 2486846


Características: Windows XP Profesional, 1024 MB de RAM, AMD Athlon 64, 2.20 GHz, 120 GB.

Para mi nuevo programa, se ha de seleccionar un archivo *.txt, *.odt o *.doc, y al darle al botón de Tomar, el texto se escribe en un cuadro de texto. Lo he estado probando, y me funciona bien, pero me he dado cuenta de que si le pongo para trabajar que tome un documento *.doc u *.odt que contiene imágenes, cuadros y otros elementos propios de un procesador de textos que son incompatibles con un simple cuadro de texto, no toma sólo el texto, sino que me da el error 62, y se cierra el programa.
He usado el siguiente código:
Open (ruta que se establece en un cuadro de texto) For Input #1
Form3.Text2.Text = Input (LOF(1), #1)
Close #1
Así que mi pregunta es: ¿ Sobre esa base, que modificaciones tengo que hacer para que sean ignorados otros elementos cómo imágenes, cuadros... y se tome sólo texto ?
Gracias y saludos de Wislow.

Posibles soluciones:
Tomar sólo texto de un archivo con vb6Tomar sólo texto de un archivo con vb6
Como puedo tomar los detalles del archivoComo puedo tomar los detalles del archivo
Copiar texto de archivo pdf a un archivo de wordCopiar texto de archivo pdf a un archivo de word
Pasar archivo de imagen a archivo de textoPasar archivo de imagen a archivo de texto
Adjuntar archivo de texto y archivo imagen.Adjuntar archivo de texto y archivo imagen.
ebolo

Re: Tomar sólo texto de un archivo con VB6 - 2007-12-10 08:39 - Respuesta 2

Hola wislow; la verdad que nunca lo he hecho sobre un doc con imagenes, pero se me ocurre que gestiones los errores y hagas un resume next o exit sub y pruebes.
Para gestionar los errores pones en al principio del evento: On Error goto ErrordeEvento.
Luego al final del evento:

....
Exit Sub
ErrordeEvento:
if Err.number=62 then Resume Next 'ó Exit sub, prueba.
Msgbox "Error Nº: " & Err.Number & ". " & Err.Des-c-r-i-p-tion
End sub

Saludos.
wislow

Re: Tomar sólo texto de un archivo con VB6 - 2007-12-10 15:01 - Respuesta 3

Muchas gracias ebolo, pero me parece que no me he expresado bien, lo que pasa es que no me deja tomar texto de ningún documento de procesador de textos, sólo del Bloc de Notas, y yo he pensado que puede ser porque aunque no haya ninguna foto ni nada extraño, sólo texto, el texto de los procesadores no es compatible con el cuadro de texto como el Bloc de Notas; es por ésto que he pensado que usando el RichText puedo hacer al programa capaz de tomar el contenido de un Bloc de Notas y el de Word o el Writer por igual. ¿Qué te parece? ¿Eso funcionaría? Saludos del siempre agradecido Wislow.
ebolo

Re: Tomar sólo texto de un archivo con VB6 - 2007-12-10 19:11 - Respuesta 4

Hola wislow, pásate por http://www.configurarequipos.com/tema2453816-32-5.html. Ahí deje un ejemplo de como comunicar con un archivo de worw y tratarlo como un recordset normal y corriente.

Un saludo.

Página:1

Respuestas relacionadas:

Solo texto en las páginas de internetSolo texto en las páginas de internetForo
Controlador genérico solo textoControlador genérico solo textoForo
Fundir varios texto en uno soloFundir varios texto en uno soloForo
Mouse selecciona texto soloMouse selecciona texto soloForo
 drivers de la impresora generico solo texto drivers de la impresora generico solo textoForo
Drivers generica/solo texto epson tm u220Drivers generica/solo texto epson tm u220Foro
Envío de mms sólo con texto desde samsung galaxy aceEnvío de mms sólo con texto desde samsung galaxy aceForo
Texto scaneado a un archivo wordTexto scaneado a un archivo wordForo
Hp deskjet d2460 sólo imprime fotos nada de textoHp deskjet d2460 sólo imprime fotos nada de textoForo
Como guardar archivo de texto en ms_dosComo guardar archivo de texto en ms_dosForo
InicioSecciones
^ SubirAviso legal
Política Privacidad
Configurarequipos21 Noviembre 2024