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 28-05-2015
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.744
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Creo que lo mas facil es pedir los dos archvivos Excel.
1- Lees el primero línea a línea.
2- Por cada línea buscas en el segundo archivo una línea con ese departamento.
3- Si la encuentras, haces la comparación que te pidan. Si no la encuentras informas que hay una línea que no existe en el segundo archivo Excel.
4- Finalmente buscas líneas que estén en el segundo y no en el primero, recorriendo el segundo archivo y buscando las que no estén en el primero.
Responder Con Cita
  #2  
Antiguo 28-05-2015
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.744
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Pseudocodigo...
Código:
Open E1
Open E2
// Recorro Excel 1
while not EOF(E1)
begin
   BuscarCategoriaEnE2(E1.CATEGORIA)
   if Encontro
      Informar(Diferencias)
   else
      Informar("La categoria " + E1.CATEGORIA + " no Existe en E2")
end
Close E1
Close E2

Open E1
Open E2
// Recorro Excel 2
while not EOF(E2)
begin
   BuscarCategoriaEnE1(E2.CATEGORIA)
   if not Encontro
      Informar("La categoria " + E2.CATEGORIA + " no Existe en E1")
end
Close E1
Close E2
Responder Con Cita
  #3  
Antiguo 29-05-2015
Avatar de jeremiselxi
jeremiselxi jeremiselxi is offline
Miembro
 
Registrado: ago 2008
Posts: 199
Poder: 16
jeremiselxi Va por buen camino
Muchas gracias por darme una luz.

Voy a probar y cualquier cosa te dejo saber.

Saludos y Gracias Nuevamente.
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho
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
Hagamos entre todos un programa (No Novatos) Caral La Taberna 29 23-07-2008 19:24:45
Obtener todos los datasets de un tdatamodule jlrbotella Conexión con bases de datos 3 18-05-2007 08:59:25
Mover todos los elementos entre dos listbox creus Varios 2 05-11-2006 11:59:37
Abstracción de aplicación por departamentos adlfv OOP 2 26-10-2005 07:46:38
Obtener TODOS los registros de una tabla Fita SQL 2 06-09-2005 03:06:24


La franja horaria es GMT +2. Ahora son las 23:58:43.


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