Leer Fichero y cargarlo en un cursor

Tengo un fichero de texto plano con la siguente estructura
10 posiciones(1campo) y sin separador 2 campo de 10 posiciones y me
gustaria
cargarlo en un cursor.
Estoy un poco perdido.

Un saludo

____________________________________________________________________________
________________________

Este mensaje se envía desde Ges Seguros y Reaseguros S.A., está protegido
por la ley y puede contener secretos de empresa. Si lo recibiera por
error, por favor notifíquelo respondiendo al mensaje y bórrelo de su
sistema. Por favor, no lo copie o use para cualquier propósito o comunique
a
otras personas, si lo hiciese supondría ruptura de confidencialidad, esto
podría suponer una seria infracción legal, civil y penalmente perseguida
en
España y otros países. Gracias por su colaboración. Tel . 34 902 308 585

This e-mail is confidential and may well also be legally privileged. If
you
have received it in error, you are on notice of its status. Please notify
immediately by reply e-mail and then delete this message from your
system. Please do not copy it or use it for any purposes, or disclose its
contents to any other person: to do so could be a breach of confidence.
Breach of confidentiality

¿Has probado con APPEND FROM cFichero TYPE SDF?

Si los campos del cursor tienen todos una longitud de 10 caracteres se
añaden sin problemas. Si el tipo de datos es distinto de caracter puedes
convertirlos una vez cargados en el cursor.


Espero que te sirva de ayuda.


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

No entiendo bien si después del primer campo hay un separador,...Por lo

entiendo son tres campos de 10 caracteres cada uno y sin separador entre
ellos, o sea, cada fila del fichero está formada por una cadena de 30
caracteres y necesitas dividirla en 3 de tres y ponerlos en un cursor. Si

así, éste código te puede servir.


Procedure LeeFichero
lparameters cFicheroFuente

local fn

create cursor mycursor (;
campo1 c(10), ;
campo2 c(10), ;
campo3 c(10) )

fn = fopen(cFicheroFuente)

do while !feof(fn)
cLine = fgets(fn)

insert into mycursor(;
campo1, ;
campo2, ;
campo3 );
values(;
left(cLine,10), ;
substr(cLine,11,10), ;
right(cLine,10) ;
)
enddo

= fclose(fn)
return



"Alfonso Lucas Carbonell" escribió en el mensaje
news:eF$
>
> Tengo un fichero de texto plano con la siguente estructura
> 10 posiciones(1campo) y sin separador 2 campo de 10 posiciones y me
> gustaria
> cargarlo en un cursor.
> Estoy un poco perdido.
>
> Un saludo
>
>

> ________________________
>
> Este mensaje se envía desde Ges Seguros y Reaseguros S.A., está

> por la ley y puede contener secretos de empresa. Si lo recibiera por
> error, por favor notifíquelo respondiendo al mensaje y bórrelo de su
> sistema. Por favor, no lo copie o use para cualquier propósito o

> a
> otras personas, si lo hiciese supondría ruptura de confidencialidad,

> podría suponer una seria infracción legal, civil y penalmente perseguida
> en
> España y otros países. Gracias por su colaboración. Tel . 34 902 308

>
> This e-mail is confidential and may well also be legally privileged. If
> you
> have received it in error, you are on notice of its status. Please

> immediately by reply e-mail and then delete this message from your
> system. Please do not copy it or use it for any purposes, or disclose

> contents to any other person: to do so could be a breach of confidence.
> Breach of confidentiality
>
>
>
>