FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Extraer datos de un archivo plano.
Hola necesito ir, extayendo de cada registro para verificar si la deuda total de cada registro es correcta, esto lo hago con ciertas operaciones , pero para ello necesito ir estrayendo las siguientes información:
CORTE INTERES: TASA INTERES: FECHA QUE DEBIO PAGAR: FEC.PAGO/FEC.GEN: CEDULA DEUDA INTERESES DEUDA TOTAL alguien me puede decir como puedo ir extrayendo estos datos.
__________________
Enseñar es la virtud de un sabio. Última edición por ingabraham fecha: 25-08-2010 a las 17:07:25. |
#2
|
||||
|
||||
Plantea un algoritmo de como lo harías tú...y de ahí partimos.
__________________
AKA "El animalito" ||Cordobés a mucha honra|| |
#3
|
|||
|
|||
Ingabraham, lee cada línea y métela en una variable tipo string,luego usa la función pos() para detectar el texto que deseas,
p.ej. Linea := readln(f,t); P := pos('CORTE INTERES :',Linea); if P > 0 then vCorte := copy(Linea,p+15,10) y así sucesivamente... Seguro que te servirá, pero no esperes que te pongamos todo el código de la rutina que necesitas. |
#4
|
||||
|
||||
si no he puesto codigo, es por que no se por donde empezar
y no se como validar cual linea es la correcta para tomarla. agradezco mucho sus aportes.
__________________
Enseñar es la virtud de un sabio. |
#5
|
|||
|
|||
Hola.
He mirado el archivo de ejemplo que adjuntas. Me parece que es fácil leer los datos de ese archivo; aunque te llevará un tiempito hacer que todo salga bien. No tengo ni idea de tus conocimientos, ni de la versión de Delphi que usas. Así que te comentaré lo que creo más importante. Para leer el archivo puedes usar un ListBox, un Memo o un TStringList. Con LoadFromFile ('NombreArchivo.txt'). Luego utilizas Items (Lines si usas un Memo). Por ej. memo1.Lines [3]. Todo ello, sabiendo que se parte de el item nº 0, no del nº 1. Por ej.: memo1.Lines.Count -1 te da el número de índice de la última línea del Memo. Para recorrer todas las líneas del Memo, puedes usar:
También podrías usar un While...do...
cc es una variable integer. Para localizar un tipo determinado de texto en una línea, usa la función Pos. Con ella podrás saber si existe un texto determinado dentro de una línea, y devuelve la posición en la que se encuetra ese texto. Por ej., en el bucle for anterior, podrías ver si aparece el texto "VENTAS:" en la línea que está leyendo. Si aparece, devolverá un valor superior a 0:
Para sacar partes del texto de una línea, usa la función COPY, que devuelve una parte del texto que comienza en una posición xx y que contiene yy caracteres. Ej: Copy ( Memo1.Lines [ cc ], xx, yy ) ; Combinando todo esto, seguro que puedes hacer muchas cosas. Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Extraer datos generales de un archivo | Albano | Varios | 1 | 13-06-2007 10:58:38 |
Archivo PLANO | jorge_mosquera | Varios | 1 | 26-02-2007 23:20:37 |
Como extraer los datos de un archivo de texto | JamesD | OOP | 3 | 23-12-2005 17:29:20 |
archivo plano | nazly | Varios | 5 | 28-11-2005 20:26:25 |
archivo plano y excel | acertij022 | Varios | 1 | 15-05-2003 16:31:02 |
|