Cita:
Empezado por Casimiro Notevi
Pues eso es, un fichero TXT y encontrar palabras, en este caso una palabra de longitud 1.
Ya sabes, abres el TextFile y la conexión a la BD.
Código:
Lees línea a línea hasta eof del fichero.
Primer campo hasta el primer |
Segundo campo hasta el segundo |
Saltas un |
Tercer campo hasta el siguiente |
Guardas en la BD los campos
Finalmente, cierras el fichero.
Y listo.
|
Hasta ahora buscando solo tengo esto, que es para leer caracter por caracter, pero no se como hacer que haga lo que quiero.
Código Delphi
[-]
var
Lista: TStringList;
cadena ,Registro,cadena2:string;
I, k, j: Integer;
begin
Lista:= TStringList.Create;
try
Lista.LoadFromFile('c:\RNC.txt');
for I := 0 to Lista.Count - 1 do
begin
cadena:= Lista.Strings[i];
k:=Length(cadena);
for j := 0 to k do
begin
cadena2:=Copy(cadena,j,1);
if cadena2='|' then
begin
ShowMessage(Registro);
Registro:='';
end
else
begin
Registro:=Registro + cadena2;
end
end;
end;
finally
Lista.Free;
end;
end;
Si supiera como hacerlo no estaría aquí...
Mi fuerte es la reparación de laptops, Lcd, plasmas, y alguna que otra cosa dentro de la electronica, no la elaboración de código, la elaboración de código lo hago porque me gusta aprender programación.