Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-05-2006
zugazua2001 zugazua2001 is offline
Miembro
 
Registrado: oct 2004
Ubicación: Necochea
Posts: 237
Poder: 20
zugazua2001 Va por buen camino
Obtener los valores de un .doc

Hola amigos, tengo un archivo .DOC que tiene diferentes filas, cada fila tiene
<Apellido, fecha_nacimiento, edad>separado por caracteres en blanco Ejm:

DIAZ 01/05/2006 33
MENDOZA 05/05/2006 40
GOMEZ 06/05/2006 55


Lo que yo quiero es poder obtener cada campo y cargarlo en un registro en una tabla por ejemplo
Registro 1: DIAZ, 01/05/2006, 33
Registro 2: MENDOZA,05/05/2006,40

Como puedo hacerlo.
Muchisimas gracias por todo.
Responder Con Cita
  #2  
Antiguo 21-05-2006
JCarlosas JCarlosas is offline
Miembro
 
Registrado: abr 2006
Ubicación: Habana. Cuba
Posts: 103
Poder: 19
JCarlosas Va por buen camino
Hola, la manera mas sencilla de programar, opino yo es usando dos TSTrings.
Con uno lees el archivo y recorres cada linea de el y con el otro vas separando los datos de cada linea y procesandolo.
O sea seria algo asi.
Código Delphi [-]
var
tsTrama, tsArchivo : TStrings;
 :
 :
tsArchivo.loadfromfile('Archivo.txt');
for  i := 0 to tsArchivo.count-1 do
 Begin
   tsTrama.CommaText := tsArchivo[Indice];
 
//Variante 1
       for j:=0 to tsTrama.count-1  do
         Begin
          Campoj := tsTrama[j];  // Asi puedes recorre el segundo TSTring y obtener los valores de cada campo para esa linea para despues insertarlos en la BD.
     
         End; // Fin del for para recorrer los campos
 
//Variante 2, como de seguro conoces la cantidad de campos
      
   Campo0 :=  tsTrama[0]; 
   Campo1 :=  tsTrama[1]; 
   Campo2 :=  tsTrama[2]; 
   
 end; //Fin del for para recorrer todas las lineas

Supuse que los datos vienen en el formato de separados por comas por el ejemplo que pones.

Bueno espero que resuelvas y buena suerte.
Juan Carlos
Responder Con Cita
Respuesta



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
Valores de un checkbox Ivan_25 C++ Builder 3 07-11-2005 10:42:49
redondeo de valores JODELSA Varios 1 04-11-2005 20:10:22
Valores (Predeterminado) vichovi API de Windows 3 04-01-2005 09:40:02
Obtener filas que contienen dos o más valores distintos Angel Firebird e Interbase 3 14-10-2003 17:27:56
Redondeo de valores JODELSA Varios 1 23-08-2003 18:33:50


La franja horaria es GMT +2. Ahora son las 08:19:42.


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