Importar fichero ascii de Contaplus

[José Luis]

Hola amigos,

Necesito convertir un fichero ascii de asientos y subcuentas de contaplus a un cursor para poder manipularlo.

El caso es que el fichero ascii que tengo no está delimitado, ni es de ancho fijo y no sé como tratarlo.

Intento importarlo con Excel con todas las opciones de delimitación pero no obtengo resultado.

¿Me pueden decir como tengo que tratarlo?

[Ignacio Debole]

Vas a tener que cortarlo con un Excel para saber qué campos corresponden a cada columna. Tienen ancho fijo por lo que vi.

Después crear un dbf o cursor con esas mismas columnas y tipos de dato.

Lees cada línea y hacés la misma cantidad de SUBSTR que columnas del dbf o cursor, pasando cada corte a una variable.

Después volcás la variable a cada columna con Insert o Replace al dbf o cursor.

Saludos

--
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/904df8e9-eecb-4564-a972-0148ea7042a2n%40googlegroups.com.

[HernanCano]

Jose:

Sí es de ancho fijo.

Y sí se puede tratar con Excel.

Desde Excel debes tratar como ancho fijo.

[José Luis]

Vale, veo que moviendo las flechas lo puedo adaptar.

¿Pero lo puedo importar a un cursor sin tener que pasar por un excel?

La idea es convertir esta información a otro formato sin tener que pasar por el excel

[Ignacio Debole]

Como te respondí previamente, sí, pero no hay nada automático, hay que trabajarlo.

Debés trabajarlo sólo una vez con el Excel para saber cómo crear las columnas, los tipos de datos y cuántos caracteres tomar en cada columna, después creas el programa para automatizarlo y ya no debés usar el Excel, quizás no se entendió eso.

Saludos

--
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/5858c259-a149-4a71-8388-e768b5006e5bn%40googlegroups.com.

[HernanCano]

Plenamente de acuerdo con tu comentario, Ignacio.

[Gerardo Cagnola]

lo primero es saber como es la estructura de los archivos de contaplus

primero lo primero 

sin ese dato no se puede arrancar...

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFLmjfYMw7BUO-a4%3D4d6m99ZRssGVhgb9wUQU-91r1OeLzP1yg%40mail.gmail.com.

[José Antonio Peña Martínez]

Jose luis el archivo ascii trae dos renglones. me podrias decir si ocupas los dos? Otra, podrias decir que columnas ocupas?

veo el archivo tiene campos de logitud  fija ... podrias intentar extraer los datos de ocupas.

Saludos!

--

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/904df8e9-eecb-4564-a972-0148ea7042a2n%40googlegroups.com.

--

Desarrollo de Sistemas TecnoPro

José Antonio Peña

Saludos!

[Marco Plaza]

Los archivos de ancho fijo se pueden importar directo a un dbf usando append from xx type sdf"

pero es complicado crear el cursor o mantenerlo si es muy largo como es tu caso.

esta rutina facilita  esa tarea:

```

 _sdf2cursor("diario2.txt","4,8,10,12,20,6,13,8")

browse normal

```

_sdf2cursor.prg:

```

*---------------------------------
* Marco Plaza, 2012
* crea una tabla util para importar archivos de ancho fijo
* indicando el ancho de cada columna separado por comas
* ej _sdf2cursor('miarchivo.sdf',"2,10,25,38")
* posdeCorte:
* suministrar una lista de posiciones de corte
* ej _sdf2cursor('miarchivo.sdf','2,12,37,75',.t.)
*---------------------------------
parameter txtFile,listacsv,posdeCorte

try

    local desde,lc,tt,coma,v1,l,oerror

    listacsv = m.listacsv+','

    desde = 1
    oerror = .f.

    lc = 'create cursor '+sys(2015)+' ( '
    tt = 1

    do while .t.

        coma = at(',',m.listacsv)

        if m.Coma = 0
            exit
        endif

        v1 = val(   left( m.listacsv , m.Coma-1 ) )

        listacsv = substr(m.listacsv,m.Coma+1,1000)

        if m.posDeCorte
            l = m.v1-m.desde
            desde = m.desde+m.l
        else
            l = m.v1
        endif

        lc =  m.lc+' C'+trans(m.tt)+' C('+trans(m.l)+') ,'

        tt = m.tt+1

    enddo

    lc = m.lc+')'
    lc = strtran(m.lc,',)',')')

    &lc
    append from (m.txtFile) sdf

catch to oerror
endtry

if vartype(m.oerror) = 'O'
    error oerror.message
else
    return alias()
endif

```

[José Luis]

Muchas gracias a todos por sus respuestas

Saludos

[almonts ( www.ontariombd.es )]

Buenas tardes.

Adjunto una rutina funcional que a mi me sirve para lo que mencionas. 
En este caso es para importar el fichero de asientos.
Espero que te sirva, saludos :)



     release MARCHIVO, CLINEA
     local   MARCHIVO as memo, CLINEA
     
     MARCHIVO=""
     CLINEA=""
     
    MARCHIVO=FILETOSTR("C:\Contaplus\XDiario.txt")   && VARIABLE MEMO DONDE SE CARGA TODO EL ARCHIVO
   
    SET MEMOWIDTH TO 1190   && ANCHO LINEA CONTAPLUS   ( POSIBLEMENTE HAYA QUE AJUSTARLO, DEPENDIENDO DE LA VERSION)
    IF MEMLINES(MARCHIVO)>00
        FOR TT=01 TO MEMLINES(MARCHIVO)  && FOR -  END FOR DE TODAS LAS LINEAS

            CLINEA=ALLTRIM(MLINE(MARCHIVO, TT))  && LINEA DEL APUNTE

            CVAR      =SUBSTR(CLINEA,05,08)
            DFECHA =CTOD(RIGHT(CVAR,02)+"/"+SUBSTR(CVAR,05,02)+"/"+LEFT(CVAR,04))   && FECHA
                   
            CASIENTO=PADL(ALLTRIM(SUBSTR(CLINEA,01,04)),08,'0')  && ASIENTO
            CTEXTO=UPPER(ALLTRIM(SUBSTR(CLINEA,53,30)))          && TEXTO - DESCRIPCION
           
            CDOCUMENTO=ALLTRIM(SUBSTR(CLINEA,94,10))             && DOCUMENTO

            CSUBCUENTA=ALLTRIM(SUBSTR(CLINEA,13,10))             && SUBCUENTA
           
            CCONTRAPARTIDA=ALLTRIM(SUBSTR(CLINEA,25,10))         && CONTRAPARTIDA
            IF LEN(CCONTRAPARTIDA)<08
                    CCONTRAPARTIDA=""
            ENDIF                
                       
            NDEBE=VAL(CHRTRAN(ALLTRIM(SUBSTR(CLINEA,238,15)),'.' , ','))   && DEBE
            NHABER=VAL(CHRTRAN(ALLTRIM(SUBSTR(CLINEA,254,15)),'.' , ','))  && HABER

        NEXT TT
   
    ENDIF