Manejo de archivo cvs

[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

[GLGB]

Entonces si se demilita por "1234","lucero","2332" el CommaText ya lo separará como yo quiero??Ya probé el código q me dice, pero me marca un error sintaxis y como yo nunca he usado esta función no se si me pudiera echar la mano...

Código Delphi [-]
cadena = '"' + StringReplace(cadena, ',', '"', ',', '"', [rfReplaceAll]) + '"';

[roman]

Así es, CommaText te separará ahora sólo por las comas. Hay un error en el código que puse. Debería ser

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

en lugar de

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

En C habrá que ajustar porque las " se usan para las cadenas a diferencia de delphi que usa el apóstrofe '.

// Saludos

[delphi.com.ar]

No se olviden de los siguientes detalles:

• Puede haber comas dentro de los valores, es decir encerradas entre comillas y hay que tomarlas como parte del dato
• Puede haber comillas dentro de los valores, al igual que las comas hay que tomarlas como datos. Dos comillas seguidas indican una comilla de dato.

Mi componente FileReader, tiene la lógica para "desmenuzar" un CSV. Nunca he publicado el código porque fue de las primeras cosas que hice en Delphi y creo que si lo veo ahora debe ser vergonzoso. Si estoy seguro que funciona sin problemas, ya que lo he utilizado en infinidad de aplicaciones.

Saludos!

[roman]

Había pensado en eso, pero ¡qué exigentes eres!

La verdad es que tienes razón y habría que cubrir todos los casos. La componente que mencionas, ¿vas a publicar su código? Porque habría que traducirlo a C.

// Saludos