Levantar archivo de Texto Delimitado

[jose_murugosa]

Hola a todos

Necesito levantar información de una aplicación que solo comparte sus datos mediante archivos planos de este formato:

"1235;0;Jose;4250;0;12/05/2006;10"
"124;45;Antonio;301;12;21/04/2005;8"

y necesito descomponerlo en strings para guardarlos en 7 campos de texto de 40 caracteres de una base de datos.
cada linea esta separada por un enter y seria un registro, cada texto
entre ";" es un campo.

He tratado de levantarlo con append blank delimited sin el resultado esperado, espero cualquier ayuda.

Gracias desde ya

[Raymundo Islas M.]

Hola Jose

Tengo algo parecido, creo que con algunos ajustes te puede servir :

oTxtFil := TTxtFile():New( TuArchivo.TXT )
oMetRec:SetPos(0)
oMetRec:SetRange( 0, oTxtFil:RecCount() )
TuBase->( DbZap() )
FOR nQ := 1 TO oTxtFil:RecCount()
cStrLine := oTxtFil:ReadLine()

// Ya que tienes el contenido de una linea, hay que volcarlo en variables
// o en un arreglo
// en un post de hace poco, lei que con StrToken lo puedes hacer
// yo no lo he usado, pero yo lo he hecho con un FOR...NEXT

aDts := {}
cStrX := ""
For nW := 1 TO Len( cStrLine )
IF SubStr( cStrLine, nQ, 1 ) == ";"
AaDd( aDts, cStrX )
cStrX := ""
ELSE
cStrX += SubStr( cStrLine, nQ, 1 )
ENDIF
NEXT

// Y Vaciamos el arreglo en la base
TuBas->( DbAppend() )
TuBase->XCampo := aDts[1]
..
..

oMetRec:SetPos( nQ )
oTxtFil:Skip()
NEXT
oTxtFil:Close()
TuBase->( DbCommit() )


Espero te sirva


Saludos

[jose_murugosa]

Gracias Master!!

Felicitaciones por tu iBackup, buenísimo

[Raymundo Islas M.]

Muchas Gracias Jose

Ojala y lo puedas probar a conciencia, como comente, es algo que levante en unos dias por ratos

Si te sirvio el codigo para tu archivo de texto ?


Saludos

[jose_murugosa]

El codigo lo estaré probando entre hoy y mañana, en cuanto lo haga, te cuento.

Gracias por tus aportes!!!!!!!!

[Manuel Valdenebro]

He tratado de levantarlo con append blank delimited sin el resultado esperado

Jose Antonio,

No es Append Blank, sino APPEND FROM ....

A mi me funciona perfecto.

En tu ejemplo quizas no funcione, porque el campo fecha tiene que tener el formato aaammdd.

En ese caso, yo tengo una base de datos provisional, con un solo campo, con un ancho de 256 caracteres.

Use provisional
APPE FROM (cFichero) SDF

Con esto, ya tengo todos los registros en Provisional.- Luego desde este base, con un WHILE/ENDD los voy añadiendo a la base que quiero, con SUBS y AT

[jose_murugosa]

Gracias Manuel,

Es cierto, es Append from, me equivoqué al registrarlo en el post, pero excelente la idea de como descomponer utilizando una base de datos intermedia.

Gracias por siempre estar contestando los mensajes del foro, en estos días voy a tener que hacer esta importación y estaré probando ambas ideas para ver con cual me quedo.

[Marco Augusto]

RECUERDO QUE EN DBASE
SE UTILIZABA:
APPEND FROM ARCHIVO.TXT DELIMITED

Y ESO ERA SUFICIENTE PARA ARCHIVOS DELIMITADOS

APPEN FROM ARCHIVO.TXT SDF PARA ARCHIVOS TABULARES


OJALA SIRVA

SALUDOS

[Manuel Valdenebro]

APPEND FROM ARCHIVO.TXT DELIMITED

Marco Augusto,

APPEND FROM ... DELIMITED WITH ... funciona cuando el delimitador es "," pero no (por lo menos a mi) cuando el delimitador es ";" como es el caso que expone José.

Por otra parte, al mostrar las fecha como dd/mm/aaaa, creo que tampoco funcionaría, ya que hay que tenerlas en formato aaaammdd.