Buscar y Extraer Informacion Archivo TXT

[jbrita]

Amigo aca nuevamente, resulta que quiero buscar cierta informacion en un archivo plano y luego mostrarla,, Por Ejemplo:
ARCHIVO error_032015.txt que contiene esto:

Folio: 13
Tipo DTE: 33
Operación: COMPRA
Fecha/Hora Proceso: 2015-03-09T16:08:14
Archivo: compra.txt
Error: El Documento tipo (33) folio (13) la fecha de emision no puede superar el periodo actual


Folio: 10
Tipo DTE: 33
Operación: COMPRA
Fecha/Hora Proceso: 2015-03-09T16:09:25
Archivo: compra.txt
Error: En los <TotalesCompra> el monto neto, no cuadra con el I.V.A. aplicado.-


Folio: 9
Tipo DTE: 33
Operación: COMPRA
Fecha/Hora Proceso: 2015-03-09T16:10:37
Archivo: compra.txt
Error: Error message not available.

QUIERO BUSCAR EL FOLIO 10 y TRAERME TODO LO QUE SE REFIERA A ESE CODIGO TODA SU INFORMACIO;

Saludos

[acuellar]

jbrita quizas esto te ayude

Code: Select all  Expand view  RUN

 cTexto:=MemoRead("error_032015.txt")
 cFolio:=Subs(cTexto,AT("Folio: 10",cTexto),AT("Folio: 11",cTexto)-1)
 ?cFolio
 

Saludos,

Adhemar

[jnavas]

Amigo aca nuevamente, resulta que quiero buscar cierta informacion en un archivo plano y luego mostrarla,, Por Ejemplo:
ARCHIVO error_032015.txt que contiene esto:

Folio: 13
Tipo DTE: 33
Operación: COMPRA
Fecha/Hora Proceso: 2015-03-09T16:08:14
Archivo: compra.txt
Error: El Documento tipo (33) folio (13) la fecha de emision no puede superar el periodo actual


Folio: 10
Tipo DTE: 33
Operación: COMPRA
Fecha/Hora Proceso: 2015-03-09T16:09:25
Archivo: compra.txt
Error: En los <TotalesCompra> el monto neto, no cuadra con el I.V.A. aplicado.-


Folio: 9
Tipo DTE: 33
Operación: COMPRA
Fecha/Hora Proceso: 2015-03-09T16:10:37
Archivo: compra.txt
Error: Error message not available.

QUIERO BUSCAR EL FOLIO 10 y TRAERME TODO LO QUE SE REFIERA A ESE CODIGO TODA SU INFORMACIO;

Saludos

Puedes utilizar la clase TFILE(), cada cuota esta separada por lineas vacias, aqui podras saber cuando concluye cada FOLIO