Manejo de archivo cvs

[[seoane]]

Bueno, no creo que a los de borland les importe mucho que partiendo del método SetDelimitedText y recortando aquí y allá, lleguemos a esto:

Código Delphi [-]
procedure SetDelimitedText(StringList: TStringList; const Str: string);
var
  P, P1: PChar;
  S: string;
begin
  with StringList do
  begin
    BeginUpdate;
    try
      Clear;
      P := PChar(Str);
      while P^ <> #0 do
      begin
        if P^ = QuoteChar then
          S := AnsiExtractQuotedStr(P, QuoteChar)
        else
        begin
          P1 := P;
          while (P^ <> #0) and (P^ <> Delimiter) do
            P := CharNext(P);
          SetString(S, P1, P - P1);
        end;
        Add(S);
        if P^ = Delimiter then
        begin
          P:= CharNext(P);
          if P^ = #0 then
            Add('');
        end;
      end;
    finally
      EndUpdate;
    end;
  end;
end;

Por ejemplo:

Código Delphi [-]
var
  Lista: TStringList;
begin
  Lista:= TStringList.Create;
  try
    SetDelimitedText(Lista,'0001,GERARDO PEREZ GALINDO, GALEANA 211, 3949588');
    ShowMessage(Lista.Text);
  finally
    Lista.Free;
  end;
end;

Seguimos teniendo que traducirlo a C, pero teniendo en cuenta que se hace un uso intensivo de punteros, creo que el paso a C tendría que ser sencillo.

PD: Creo que ya lo dije antes, pero en el nuevo turbo la propiedad StrictDelimiter soluciona este problema.

[roman]

Empezado por seoane

Bueno, no creo que a los de borland les importe mucho que partiendo del método SetDilimitedText y recortando aquí y allá, lleguemos a esto

Seguro que no, ya Andreano dijo que la VLC era Open Source.



// Saludos

[roman]

Por cierto, donde dices SetDilimitedText, ¿no quieres decir SetDelimitedText?



// Saludos

[[seoane]]

Empezado por roman

Por cierto, donde dices SetDilimitedText, ¿no quieres decir SetDelimitedText?

Veo que tienes alma de compilador

[GLGB]

Gracias por sus sugerencias, de hecho se me hizo un poco complicado conl a solución que me dieron, además que seguí trabajando con el código que ya tenía. Ya me función y está en Builder, x si a alguien le sirve

Código Delphi [-]

if (Memo->Lines->Count <=0)
   ShowMessage ("Primero debe seleccionar un archivo");
else
   {
    AnsiString cadena;
    int contador_filas;
    int no_caracteres;
    int no_filas;
    int caracter,flag;
    
    contador_filas=Memo->Lines->Count;
    
    for(no_filas=1; no_filas<=contador_filas; no_filas++ )
       {
        flag=0;
        cadena=Memo->Lines->Strings[no_filas];           
        
        no_caracteres=cadena.Length(); 
 
       for ( caracter=1; caracter<= no_caracteres; caracter++)
            {
             if (cadena[caracter] != ',')
                  Edit1->Text=Edit1->Text + cadena[caracter];
             
              else                   
                 {
                    flag=flag+1;
 
                    if(flag==1)
                      Edit2->Text=Edit1->Text;
 
                     if (flag==2)
                        Edit5->Text=Edit1->Text;
 
                     if(flag==3)
                      Edit3->Text=Edit1->Text;
 
                     if(flag==5)
                      Edit4->Text=Edit1->Text;
 
                    Edit1->Clear();
               }
     }
ShowMessage("ARCHIVO EXPORTADO.....");
}

Gracias a todos!!! y espero les sirva de algo mi código....

[[seoane]]

Bonita solución GLGB, aunque debes de tener cuidado de que no aparezcan comas en el medio de uno de los campos. De todas formas si estas seguro de que eso nunca va a ocurrir, la solución parece eficaz.

Por cierto, ya que hablamos de cvs, hace poco puse en mi pagina web un pequeño código para manipular ese tipo de ficheros. Permite modificar el delimitador, las comillas, el número de campos y su orden.

http://delphi.jmrds.com/?q=node/28

Por si a alguien le interesa ...

[GLGB]

Gracias.. lo tomare en cuenta por si algo falla con mi algoritmo!!

Saludos