Ver Mensaje Individual
  #4  
Antiguo 30-05-2007
GLGB GLGB is offline
Registrado
 
Registrado: may 2007
Posts: 8
Reputación: 0
GLGB Va por buen camino
Red face

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???
Responder Con Cita