Como crear una tabla partiendo desde un archivo plano

Lo unico que se me ocurre es primero llevarla a una tabla de un solo
campo ancho de texto, con un "appe from". Una vez el texto dentro tratas
de alguna manera de "identificar" los espacios en blanco con la
esperanza de crear desde alli la tabla que necesitas.

Josepe depronto te sirva este codigo, yo lo uso en una pantalla que trae
un código de barras, espero que te sirva.

m.PlanoFile = GETFILE('*', 'Seleccione el archivo:',
'Aceptar',1,'Seleccione el archivo:')

IF EMPTY(m.PlanoFile)
MESSAGEBOX("Seleccione el Archivo Primero",0,"m.nombre_ programa")
RETURN
ELSE
CREATE CURSOR CPlano (Cama C(13),Cortadora C(4),NumTallos N(5))
APPEND FROM (m.PlanoFile) DELIMITED WITH CHARACTER ,
SCAN
m.bloque = SUBST(CPlano.Cama,2,2)
m.camas = SUBST(Cplano.Cama,4,4)
m.Codv = RIGHT(Cplano.Cama,4)
m.Especie = SUBST(Cplano.Cama,8,2)
m.Codcorta = PADL(ALLT(CPlano.Cortadora),3,"0")
SELE Corte_Prov
INDEXSEEK(m.Camas+m.Especie+ m.CodVariedad)
IF FOUND()
SCATTER MEMVAR
IF EMPTY(Cortadora)
REPLA Cortadora WITH m.CodCorta
REPLA NoTallos WITH CPlano.NumTallos
ELSE
IF Cortadora = m.CodCorta
REPLA NoTallos WITH NoTallos + CPlano.NumTallos
ELSE
APPEND BLANK
GATHER MEMVAR
REPLA Cortadora WITH m.CodCorta
REPLA NoTallos WITH CPlano.NumTallos
ENDIF
ENDIF
m.Contador = m.Contador+1
ELSE
MESSAGEBOX("La Cama " + CPlano.Cama + " No
Existe",0,"m.Nombre_programa")
m.NoCamas = m.NoCamas + 1
ENDIF
SELE CPlano
ENDSCAN
MESSAGEBOX("Camas Grabadas con Exito" + CHR(13) + ;
" "+ ALLT(STR(m.Contador)) + " Camas" + CHR(13) + CHR(13)
+ ;
" Camas No Encontradas " + CHR(13) + ;
" "+ ALLT(STR(m.NoCamas)) + " Camas" ,0,
"m.Nombre_Programa")
ENDIF

Espero que te funcione, a mi me funciona super!!

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Si se trata de una tabla y no mas que una vez, pues yo lo haria usando
excel..., al abrir el archivo delimitado desde excel, el mismo te dira si
esta delimitado y porque caracter, y ahi listo, despues lo salvas como
DBaseIV y cheque.


Saludos-.


"Gualdo" escribió en el mensaje
news:200e01c4ac78$a5a60370$

Hola.

Ayudenme con esto:
Necesito crear una tabla tomando como base un archivo
plano separado por comas

Gracias.