Delphi - como extraer datos de un fichero txt. ..

 
Vista:

como extraer datos de un fichero txt. ..

Publicado por JAVIER (1 intervención) el 14/09/2000 00:00:00
Como extraer datos de un fichero txt. O Xls, previamente exportado en excel.
Tendría que importarlos de un fichero txt, separado con tabuladores y crear una tabla y convertirlos en un fichero dbf, definiendo campos..etc.Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como extraer datos de un fichero txt. ..

Publicado por Jose Maria (177 intervenciones) el 28/09/2000 00:00:00
Mira. Yo he tenido que hacer algo parecido en el currele.
Aqui te pongo una serie de instrucciones para que te puedan servir...espero. Un saludo.

var
F: TextFile; {declaro una variable para enlazar al fichero}


begin
table1.Open; {la table1 se corresponde a una BD}
....
AssignFile(F, Edit1.text); {Le asigno el fichero que aparece en el OBJETO EDITTEXT}
Reset(F); {lo situo en la primera linea, primera posicion}
Readln(F,N); {leo la linea (con readln) y la meto en N}
...
READLN(F,N); {PASO A OTRA LINEA}

Codigo:=copy(N,1,7); {LA VARIABLE CODIGO VA
A CONTENER DESDE LA POSICION 1, 7 POSICIONES MAS
Y NO HASTA LA SIETE, QUE LA COGE DE N}
.......
table1.AppendRecord([Codigo,Dcorta,S]);
{AÑADO EL REGISTRO A LA BASE DE DATOS}
.....
TABLE1.EDIT; {PARA AÑADIR 1 CAMPO, EN ESTE CASO EL CAMPO DESCRIPCION}
Table1.FieldByName(´Descripcion´).asstring:=S;
table1.Post(); {meto los datos en la base de datos especificada en table1}
......

En los puntitos, te curras el código. Un consejo es que cada vez que leas la línea, hagas un TRIM, para quitar los espacios en blanco. Te será más fácil tratar el texto, ya que es muy puñetero.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar