Como Leo un TXT y lo guardo en una tabla?

[roman]

Yo creo que la técnica que explico en este hilo puede servirte.

// Saludos

[AGAG4]

Para leer de linea a linea utiliza un..

Código Delphi [-]
//Mientras no sea Fin de Archivo
While EOF(Archi) do begin
Readln(Archi,Linea);//Linea =String
........
{ ExtraeDatoDelimitador(Linea,'1',',');
Primer Parámetro: Linea=Variable String
Segundo Parámetro: '1' que dato va agarrar en este caso el dato de la 1er Coma
Tercero Parámetro: ','=Caracter Separador 
}
Tabla.Insert;
Tabla.Campo1.Value:=ExtraeDatoDelimitador(Linea,'1',',');
Tabla.Campo2.Value:=ExtraeDatoDelimitador(Linea,'2',',');
Tabla.Campo3.Value:=ExtraeDatoDelimitador(Linea,'3',',');
Tabla.Campo4.Value:=ExtraeDatoDelimitador(Linea,'4',',');
Tabla.Post
end;

La opción que dice Roman de usar TStringList es Excelente, pero tengo la duda, como saber cual es el Delimitador para separar los datos????
ó ya esta estandarizado que se tiene que usar entre comillas separado con comas????

Espero te haya ayudado.
Saludos.

[danytorres]

Gracias por responder Roman, observe el hilo que me indicaste pero no se adapta a lo que quiero la sintaxi que uso es la siguiente;

Code:
______________________________________________________________
Var
ArchivoCsv, Campos: TStringList;
I, J: Integer;
F1: TextFile;
Ch: string;
begin
ArchivoCsv := TStringList.Create;
Campos := TStringList.Create;

try
ArchivoCsv.LoadFromFile('c:\HV.txt');
for I := 0 to ArchivoCsv.Count - 1 do
begin
Campos.Clear;
Campos.CommaText := ArchivoCsv[i];

for J := 0 to DataModule2.Table1.FieldCount do
begin
DataModule2.Table1.Insert;
DataModule2.Table1.Fields[J].Value := Campos[J];
DataModule2.Table1.Post;
end;
end;
finally
ArchivoCsv.Free;
Campos.Free;
end;
____________________________________________________________

El txt tien esta forma;

005,260.00,0.00,25
006,2.00,0.00,285
007,2600.00,15.00,25
008,55.00,45.00,25

el problema que tengo es que los datos estan separados por coma pero el detalle es que no tienen la misma longitud por ejemplo en la linea uno 005 es el codigo del trabajador que lo uso como referencia para buscar en la tabla, el 260.00 es dato que debo guaradar en la tabla al igual que el 0.00 y el 25, como hago para determinar el tamaño y guardar corectamente el campo sin cortarlo ?????????


Ayuda

[danytorres]

Gracias por responder AGAG4, el codigo me da error como declaro el ExtraeDatoDelimitador??

[AGAG4]

ExtraeDatoDelimitador es una función que no esta en Delphi, tu mismo la tienes que programar, es por eso que te di el algoritmo para que lo implementes, pero aqui te doy un ejemplo para 2 campos lo puedes modificar para que sea para cualquier número de campos, para que te guies:

Código Delphi [-]
//Ahora el 2do parámetro es de Tipo Byte
//ExtraeDatoDelimitador(Linea,1,',');
function ExtraeDatoDelimitador( Linea:String; Parte:byte; Delimitador:char:String;
var x,pos:byte;
    Campo1,Campo2:String;
begin
  Campo1:=''; Campo2:='';
  Pos:=0;
  //Separar Campo1
  for x:=1 to length(Linea) do 
    if Linea[x]<>Delimitador then
      Campo1:=Campo1+Linea[x]
    else begin
      Pos:=x;
      Break;
    end;

  //Separar Campo2 
  for x:=Pos+1 to length(Linea) do
    Campo2:=Campo2+Linea[x];
  if Parte=1 then
    result:=Campo1
  else
    result:=Campo2;
end;

Saludos.

[roman]

Empezado por danytorres

Gracias por responder Roman, observe el hilo que me indicaste pero no se adapta a lo que quiero

Yo creo que se adapta perfectamente.

Empezado por danytorres

el problema que tengo es que los datos estan separados por coma pero el detalle es que no tienen la misma longitud

El ejemplo sirve justamente para cuando los campos no tienen longitud fija sino que están separados por un delimitador (coma en este caso).

Empezado por danytorres

por ejemplo en la linea uno 005 es el codigo del trabajador que lo uso como referencia para buscar en la tabla

Luego de la asignación

Campos.CommaText := ArchivoCsv[i];

en Campos[0] tienes el código a buscar.

Empezado por danytorres

el 260.00 es dato que debo guaradar en la tabla al igual que el 0.00 y el 25, como hago para determinar el tamaño y guardar corectamente el campo sin cortarlo

¿En qué parte del código piensas que se va a cortar el campo?

Igual que antes, una vez que llenas Campos en cada línea del archivo, Campos[0], Campos[1], Campos[3], etc. tendrán los valores de cada campo y con un Length(Campo[n]) calculas la longitud del valor del campo n-ésimo.

Está claro que la tabla dbase debe tener la estructura adecuada para recibir los valores pero esto ya no es una cuestión del código sino de que el archivo de texto proporcionado con los datos se ajuste al formato de la tabla.

// Saludos

[AGAG4]

Puedes Usar esta otra:
Ejemplo de uso:
Texto:='aaaaa,bbbbb,ccccccccc,dddddd'
For bucle:=0 to SeparaCount(Texto,',')
do ShowMessage(Separa(Texto,',',bucle) );

Código Delphi [-]
Function Separa(Linea: String; Separador: String; Indice: Integer): String;
var
   aa,ll: Integer;
   inici,conta: Integer;
begin
     ll:=length(separador);
     Result := '';
     conta:=0;
     // Treiem separadors del inici de la cadena
     if copy(linea,1,ll)=separador then linea:=copy(linea,2,length(linea));
     // Posem un separador al final si no es que hi sigui
     if not(copy(linea,length(linea)-ll+1,ll)=separador) then Linea:=Linea+Separador; 
     inici:=1;
     For aa:=1 to length(linea) do begin
         if copy(linea,aa,length(separador))=separador
         then begin
              conta:=conta+1;
              if conta=indice then begin
                 Result := copy(linea,inici,(aa)-inici);
                 Break;
              end;
              inici:=aa+ll;
         end;
     end;
end;
Function SeparaCount(Linea: String; Separador: String): Integer;
var
   aa: Integer;
begin
     if EsVuit(linea) then result:=0 else result:=1;
     For aa:=2 to length(linea)-1
     do if separador=copy(linea,aa,length(separador)) then result:=result+1;
end;

Saludos.

[danytorres]

Amigo roman necesito de tu ayuda, estoy utilizando el codigo que me diste lo adapte a mis necesidades pero me da un error que espero tu me puedas ayudar

Code:
______________________________________________________________
procedure TForm1.Button1Click(Sender: TObject);
Var
ArchivoCsv, Campos: TStringList;
I, J: Integer;

begin
ArchivoCsv := TStringList.Create;
Campos := TStringList.Create;

try
ArchivoCsv.LoadFromFile('c:\HV.txt');

for I := 0 to ArchivoCsv.Count -1 do
begin
Campos.Clear;
Campos.CommaText := ArchivoCsv[i];

for J := 0 to DataModule2.Table1.FieldCount -1 do
begin

DataModule2.Table1.Locate('Ficha',Campos[0],[]);

DataModule2.Table1.Edit;
DataModule2.Table1.Fields[1].Value := Campos[1];
DataModule2.Table1.Fields[2].Value := Campos[2];
DataModule2.Table1.Post;

end;

end;
finally
ArchivoCsv.Free;
Campos.Free;
end;
end;
_________________________________________________________

cuando corro el procedimiento me da este error "List index of bound (3)"

como hago para que no mede este error. Ayuda

[danytorres]

Buenos dias amigos tengo un pequeño problema estoy utilizando el codigo que me dio el amigo Roman que me a servido de mucha ayuda pero me da un error cuando corro el procedimiento me da este error "List index of bound (0)", que debo hacer para que no me siga dando este error. Agradesco la ayuda amigos.

El codigo que utilizo es el siguente
____________________________________________________________
procedure TForm1.Button1Click(Sender: TObject);
Var
ArchivoCsv, Campos: TStringList;
I, J: Integer;

begin
ArchivoCsv := TStringList.Create;
Campos := TStringList.Create;

try
ArchivoCsv.LoadFromFile('c:\HV.txt');

for I := 0 to ArchivoCsv.Count -1 do
begin
Campos.Clear;
Campos.CommaText := ArchivoCsv[i];

for J := 0 to DataModule2.Table1.FieldCount -1 do
begin

DataModule2.Table1.Locate('Ficha',Campos[0],[]);

DataModule2.Table1.Edit;
DataModule2.Table1.Fields[1].Value := Campos[1];
DataModule2.Table1.Fields[2].Value := Campos[2];
DataModule2.Table1.Post;

end;

end;
finally
ArchivoCsv.Free;
Campos.Free;
end;
end;
_______________________________________________________


Que hago para corregirlo.????

[roman]

Supongo que el error te lo marca en la línea

DataModule2.Table1.Locate('Ficha',Campos[0],[]);

y diera la impresión de que la lista Campos está vacía. Revisa el formato del archivo de texto pues es posible que tenga algunas líneas en blanco.

// Saludos