Manejo de archivo cvs

[GLGB]

Hola que tal buenos días soy nueva en esto de Builder C++.... mi pregunta es la siguiente, tengo un archivo CVS el cual deseo pasar a una base de datos que ya tengo.

He utilizado lo siguiente:

1.- En un TMemo, paso el contenido de mi archivo separado por comas, y enseguida cada una de las lineas del Memo lo manejo como una cadena por separado donde utilizo un TStringList con el siguiente código


Código Delphi [-]

if (Memo->Lines->Count <=0)
ShowMessage ("Primero debe seleccionar un archivo");

else
{
TStringList *SL = new TStringList;

AnsiString cadena;

int i,contador=Memo->Lines->Count;

for (i=1; i<=contador; i++)
{
cadena=Memo->Lines->Strings[i];
SL->CommaText = cadena;
DM->Proveed->Insert();

int cantidad = SL->Count; // La cantidad de componentes

for (int fila=0; fila < cantidad; fila++)
{
Memo1->Lines->Add(SL->Strings[fila]);

if (fila==0)
DBEdit1->Text=SL->Strings[fila];
if (fila==2)
DBEdit2->Text=SL->Strings[fila];
if (fila==8)
DBEdit8->Text=SL->Strings[fila];
}
DM->Proveed->Post();
}
ShowMessage("ARCHIVO EXPORTADO.....");

}






Como se puede notar yo intente controlarlo con un If, y que cuando sea la segunda linea (nombre) me lo ponga en mi dbEdit pero el problema que tengo es que aquí no me separa por comas, si no por palabras, y si yo tengo el archivo con la siguiente estructura

CLAVE,NOMBRE,DIRECCION,TELEFONO
0001,GERARDO PEREZ GALINDO, GALEANA 211, 3949588
0020,AGUSTIN LOPEZ MENDOZA, MINA 344, 3948588

La separación sería:

001
GERARDO
PEREZ
GALINDO
GALEANA
211
3949588

y no puedo identificar cuántas líneas corresponden al nombre y cuantas a dirección, etc etc....

Espero alguien me pueda decir una mejor forma de realizar esto... muchas gracias

[droguerman]

if (Memo->Lines->Count <=0)
        ShowMessage ("Primero debe seleccionar un archivo");
 else
   {
        TStringList *SL = new TStringList;
    AnsiString cadena;
 
        int i,contador=Memo->Lines->Count;
 
        for (i=1; i<contador; i++)
         {
           cadena=Memo->Lines->Strings[i];
                  SL->CommaText = cadena;
                  DM->Proveed->Insert();
 
                  int cantidad = SL->Count; // La cantidad de componentes
 
                  for (int fila=0; fila < cantidad; fila++) 
               Memo1->Lines->Add(SL->Strings[fila]); 
 
         DBEdit1->Text=SL->Strings[0];
         DBEdit2->Text=SL->Strings[2];
         DBEdit8->Text=SL->Strings[8];
             }
             DM->Proveed->Post();
     }
     ShowMessage("ARCHIVO EXPORTADO.....");
 
   }

[roman]

Me parece GLGB que vas a tener que elaborar más. El problema es que la propiedad CommaText, como ya observaste, divide no sólo por comas sino también por espacios.

Lo ideal sería que los campos en el archivo CSV estuviesen delimitados, por ejemplo:

"0001","GERARDO PEREZ GALINDO", "GALEANA 211", "3949588"
"0020","AGUSTIN LOPEZ MENDOZA", "MINA 344", "3948588"

Pero si no tienes control sobre el formato del archivo, no se me ocure otra cosa que hacer el rastreo manualmente, esto es,

1. buscas la primera coma y apuntas su posición
2. copias la parte de la cadena desde el principio hasta esa posición
3. borras dela cadena la parte recién copiada
4. repites los pasos anteriores mientras la cadena no esté vacía.

Esta es la idea. No pongo un código más explícito porque desconozco las funciones en C que hacen eso, pero creo que puedes partir de ahí.

// Saludos

[GLGB]

Hola.... pues si creo que si voy a tener que crear un algoritmo que vaya recorriendo uno a uno los caracteres....

Intente hacer lo siguiente:

Código Delphi [-]
if (Memo->Lines->Count <=0)
   ShowMessage ("Primero debe seleccionar un archivo");
else
   {
    TStringList *SL = new TStringList;
    AnsiString cadena;
    int i,contador_filas=Memo->Lines->Count;
    int no_caracteres;
        
    DM->Proveed->Insert();
    int no_filas;
    int caracter,flag=0;
    for(no_filas=1; no_filas<=contador_filas; no_filas++ )
       {
        flag=0;
        cadena=Memo->Lines->Strings[i]; // se asigna linea de texto del memo a la variable "cadena"
        no_caracteres=cadena.Length(); // Cuenta el numero de caracteres de la linea del Memo y se asigna a "no_caracteres"
        for ( caracter=0; caracter < no_caracteres; caracter++)
            {
             if (cadena[caracter]  !=  ',') // guarda los caracteres en Edit1 mientras sea diferente de ","
                  Edit1->Text=Edit1->Text + cadena[caracter];                          
             else      // Si en la posicion el caracter es una ","
                {
                 if(cadena[caracter+1]!=' ') // Si lo guardado en Edit1 es diferente de espacio en blanco
                   {                
                    flag++;
 
                    if(flag=1)
                      DBEdit1->Text=Edit1->Text;   
                 
                    if(flag=2)
                      DBEdit2->Text=Edit1->Text;
                    if(flag=3)
                      DBEdit8->Text=Edit1->Text;
                   
                    Edit1->Clear(); 
                   }            
            
                  else // Si la posicion despues de una "," es espacio en blanco...se incrementa "caracter" para empezar a guardar la siguiente cadena
                    caracter=caracter+2;
               }
               ShowMessage(Edit1->Text);
           
            } // For Caracter
      DM->Proveed->Post(); //Guarda en la base de datos los valores de DBEdits      
     } 
        
ShowMessage("ARCHIVO EXPORTADO.....");
}

Pero no me funciona, todo me lo pone en el DBEdit1, no se bien como hacer la separación de cadenas, alguien que me pueda echar la mano???

[GLGB]

AAhh ahi en los ifs le tengo de la siguiente manera:


if (flag==1)
.......

if (flag==2)
.......

if (flag==3)
.......

osea q si le tengo doble == solo q en el anterior post se me paso ponerlo

[roman]

Algo que se me ocurre, un poco jalado de los pelos, pero que te permitiría usar la idea original, sería completar el CSV con los delimitadores conforme procesas cada línea

cadena = Memo->Lines->Strings;

Reemplazas todas las comas en cadena por la cadena "," y anexas el primero y último ". En delphi sería algo así:

Código Delphi [-]
cadena := Memo1.Lines[i];
cadena := '"' + StringReplace(cadena, ',', '"', [rfReplaceAll]) + '"';

Así, conviertes

0020,AGUSTIN LOPEZ MENDOZA, MINA 344, 3948588

en

"0020","AGUSTIN LOPEZ MENDOZA"," MINA 344"," 3948588"

con lo que puedes aplicar lo de CommaText sin problemas.

// Saludos