Buscar y Extraer Informacion Archivo TXT

Board index FiveWin para Harbour/xHarbour Buscar y Extraer Informacion Archivo TXT

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Buscar y Extraer Informacion Archivo TXT
Posted: Mon Mar 09, 2015 08:22 PM

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

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Buscar y Extraer Informacion Archivo TXT
Posted: Mon Mar 09, 2015 10:18 PM

jbrita quizas esto te ayude

Code (fw): Select all Collapse

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

Saludos,

Adhemar

Saludos,

Adhemar C.

jnavas

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

Re: Buscar y Extraer Informacion Archivo TXT
Posted: Tue Mar 10, 2015 12:19 AM

jbrita wrote: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

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com

FiveTech Support Forums

Continue the discussion