Leer archivo rtf y capturar campos

73 views
Skip to first unread message

José Luis

unread,
Dec 29, 2022, 7:17:56 AM12/29/22
to Comunidad de Visual Foxpro en Español
Hola amigos,

Necesito leer un archivo rtf que contiene una serie de campos que quiero pasar a una tabla mySQL.
Según veo los campos están separados por tabulación, pero no sé como capturar los datos.
¿Me pueden ayudar?

Mil gracias

captura1.jpg

ggcagnola gmail

unread,
Dec 29, 2022, 7:25:30 AM12/29/22
to publice...@googlegroups.com

es lo que ves en pantalla, "adentro" es otra cosa...

https://www.ibiblio.org/pub/linux/docs/LuCaS/Presentaciones/200002hispalinux/conf-04/04-html/formato_RTF.html

en fox, help filetostr()

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/4d57c37b-ed5a-4985-8736-0bc878262e7an%40googlegroups.com.

José Luis

unread,
Dec 29, 2022, 10:34:07 AM12/29/22
to Comunidad de Visual Foxpro en Español
Creo que lo mejor será convertir el fichero a Excel, y luego recoger los campos
Por si a alguien le sirve he encontrado un código que hace un copy de Word y lo pega en Excel

    WordApp = CREATEOBJECT("Word.Application")
    ExcelApp = CREATEOBJECT("Excel.Application")
    WITH WordApp
        .Documents.Open ("c:\TEMP\fichero.rtf")
        .ActiveDocument.Select
        .Selection.Copy
    ENDWITH
   
    WITH ExcelApp
        .Visible = .T.
        .SheetsInNewWorkbook = 1
        .WorkBooks.Add
        .ActiveSheet.Range("A1").Select
        .ActiveSheet.Paste
    ENDWITH
   
    WordApp.Quit
Reply all
Reply to author
Forward
0 new messages