Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-04-2007
Avatar de Lester
Lester Lester is offline
Miembro
 
Registrado: may 2003
Ubicación: Cienfuegos, Cuba.
Posts: 106
Poder: 21
Lester Va por buen camino
Question Saber cantidad de lineas que se van a leer de un fichero texto...

Hola a todos, mi problema es el siguiente:

Tengo que realizar un programita que lee los datos de un fichero texto, pero el caso es que quiero poner un Gauge para indicarle al usuario por dónde va el estado de la lectura del fichero y no sé como asignarle al Gauge la propiedad MaxValue puesto que no conozco la cantidad de líneas total que tiene el fichero texto. Se podrá hacer???, o sea, leer previamente la cantidad total de líneas que tiene el fichero texto y luego cuando las vaya leyendo ir incrementando el Gauge...???

Desde ya muchas gracias...
__________________
Lester Espinosa Martínez

[ Guía de estilo | La otra guía de estilo | Buscador | Trucos | My personal blog ]
Responder Con Cita
  #2  
Antiguo 04-04-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Depende del tipo de fichero y de cómo lo estés leyendo.
¿Qué estructura tiene?
¿Lo lees mediante TStrings?
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 04-04-2007
[basti] basti is offline
Miembro Premium
 
Registrado: ago 2004
Posts: 388
Poder: 20
basti Va por buen camino
Si vas a usar un archivo de texto leyéndolo secuencialmente, no podrás saber el número de líneas por adelantado. Si sólo lo quieres saber para usar un Gauge, te puedes basar en el tamaño del archivo y usar los bytes.
Código Delphi [-]
var
  f : file of Byte;
  f1 : TextFile;
  s : string;
begin
  AssignFile(f, 'archivo.txt');
  Reset(f);
  gauge1.MaxValue := Filesize(f);
  CloseFile(f);
  AssignFile(f1, 'archivo.txt');
  Reset(f1);
  while not Eof(f) do
  begin
    Readln(f, s);
    Gauge1.Position := Gauge1.Position + Length(s) + 2;
  end;
  CloseFile(f);
end;
Primero abrimos el archivo como si fuese binario, con valor 1 para el tamaño del registro. Así Filesize nos devuelve el tamaño en bytes (Se podría usar también findfirst, por ejemplo, para saber el tamaño del archivo).

Luego lo vamos leyendo y contando los bytes, el +2 es para contar también el salto de línea (podría ser +1 dependiendo de si usa sólo #13 para salto de línea en vez de #13#10).
Responder Con Cita
  #4  
Antiguo 04-04-2007
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¡Estupenda idea basti! Me la apunto

// Saludos
Responder Con Cita
  #5  
Antiguo 04-04-2007
Avatar de Lester
Lester Lester is offline
Miembro
 
Registrado: may 2003
Ubicación: Cienfuegos, Cuba.
Posts: 106
Poder: 21
Lester Va por buen camino
Lightbulb OK, funciona perfectamente...

Hola a todos nuevamente..., basti me ha dado la solución perfecta, todo funciona perfectamente... un millón de gracias nuevamente basti y a todos los que de una forma u otra hacen posible que este foro exista...
__________________
Lester Espinosa Martínez

[ Guía de estilo | La otra guía de estilo | Buscador | Trucos | My personal blog ]
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Leer fichero texto palabra por palabra... Lester Varios 2 03-04-2007 16:28:27
Como saber cuantas lineas tiene un archivo de texto MRSAM .NET 3 28-03-2007 03:35:00
Saber cantidad de recursos que utiliza mi aplicación... Gabriel2 Varios 3 02-12-2005 14:00:46
leer fichero de texto davidgaldo Varios 1 08-11-2005 16:05:12
Quickreport Imprimir Texto procedente de BDD sin saber el numero de lineas Javier Buendia Impresión 1 22-02-2005 08:13:23


La franja horaria es GMT +2. Ahora son las 22:31:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi