Leer un archivo de texto

[carlosegs11]

Hola Amigos....

Tengo un archivo de texto con la siguiente estructura:

- Id Numero(12)
- Apellidos Texto(30)
- Nombres Texto(30)

Mas o menos con esta estructura:

Código Delphi [-]
12345678901212345678901234567890123456789012345678901234567890
000009971788GIRALDO SALAZAR                        CARLOS EDUARDO
000010215220GAVIRIA                                      YENNY

El archivo contiene muchas líneas y deseo subirlo a una base de datos.

Cual es la forma correcta de saber cuantas filas tiene el archivo de texto, como se lee cada una y como se sube a una base de datos?

Gracias.

Carlos E.

[Casimiro Notevi]

Existen multitud de formas y algunas de ellas desde la misma base de datos, pero, ¿qué base de datos usas?

[carlosegs11]

Utilizo bases de datos dbf y las acceso mediante Querys.

Carlos E.

[carlosegs11]

En si lo que realmente me interesa es el manejo de los archivos de texto. El subirlo a la base de datos lo puedo hacer fácilmente.

Muchas gracias.

Carlos E.

[jachguate]

podes ayudarte con la clase TStringList:

Código Delphi [-]
var
  Strs: TStringList;
  I: Integer;
begin
  Strs := TStringList.Create();
  try
    Strs.LoadFromFile('c:\datos.txt'); //lees el archivo del disco
    ShowMessage('Lineas: ' + IntToStr(Strs.Count));
    for I:= 0 to Strs.Count - 1 do
      ShowMessage('Linea ' + IntToStr(I+1) + ': ' + Strs[i]);
  finally
    Strs.Free;
  end;

Si son archivos muy grandes, este método resulta costoso en memoria, así como el tiempo de apertura... pero con archivos pequeños/medianos... la simplicidad del código justifica el gasto de recursos...

Hasta luego.

[[egostar]]

Ve este hilo, ahi comentan sobre las lineas de un archivo de texto.

Por otro lado, para leerlo, te basta con hacer esto:

Código Delphi [-]
begin
   AssignFile(Arch,'archivo.txt');
   Reset(Arch);
   While not EoF(Arch) do begin
       readln(Arch,Cadena);
       Id  := Copy(Cadena,1,12);
       Apellidos := Copy(Cadena,13,30);
       Nombres := Copy(Cadena,53,30);
       //Haces lo que quieras con esas variables
   end;
   CloseFile(Arch);
end;

Salud OS.

[[egostar]]

jachguate, mis respetos, ese código que pusiste esta de lujo.

Salud OS.

[carlosegs11]

Muchas Gracias!!!! Funcionó Perfecto !!!

[Casimiro Notevi]

Empezado por carlosegs11

Muchas Gracias!!!! Funcionó Perfecto !!!

Con maestros como jachguate y egostar era de esperar