Archivos TXT
 

Tengo una aplicación en dos equipos diferentes y en diferentes ubicaciones, al final del día tengo que crear un archivo con todos los movientos del día y se los tengo que pasar a uno de estos que es el central por e-mail o por diquet para actualizar los movimientos.
Yo había pensodo en crear un archivo TXT y luego leerlo, pero no se bien como hacerlo. Me podeis ayudar ?. No sé si hay otra manera mejor de hacerlo.

Y por ultimo como puedo hacer que una string tenga una longitud fija y que si concateno dos strings me guarden la longitud de las variables.

ejemplo.

a longitud = 10
b longitud = 10

a = 'Hola'
b = 'Mundo'

al final de la concatenación sea 'Hola Mundo '

Gracias, Jordy.

Te puedo recomendar unos componentes que son de mi autoría, aunque lamento no poder publicar el código de los mismos.

http://www.delphi.com.ar/vcl/index.html

Suerte!

Hola Jordy


Si los datos a pasar son muy grandes, no es recomendable el
uso de Txt.

Para crear el archivo es muy simple, usa un TStringList y su método SaveToFile

Var Lista:TStringList;



Lista:=TStringList.Create;

...
Lista.Add(Cadena);
...
...
Lista.SaveToFile('Ruta\Archivo.txt');


Para fijar el tamaño no recuerdo ninguna función en Delphi, pero implementar una es sencillo

function Rellena(Cad:String, Largo:Integer): String;
begin
Result:=Copy(Cad+StringOfChar(' ',Largo),1,Largo);
end;

Espero te sirva.

Archivos TXT
 

A Delphi.com.ar he intentado bajarme los tres componentes para exportor los datos y no los encuentra y me da un error, en cambio el de lectura OK.

Y a Cancun el archivo no es muy grande. Aún no lo he probado pero supongo que me irá bien, ahora mi pregunta es como lo leo en el central el archivo TXT que he creado para pasarlo a la DB ?

Gracias a los dos por vuestra ayuda.


Jordy.

Hola!

Miraté el Truco 380 de trucomanía
http://www.q3.nu/trucomania/truco.cgi?380&esp

Te Explica como grabar un Dataset en un fichero con delimitadores, si modificas un poco el codigo, obtendrás lo que buscas.

Saludos!

Re: Archivos TXT
 

Ups... mil disculpas, ya está corregido!


Por el FileReader te recomiendo leer este hilo http://www.clubdelphi.com/foros/show...1&goto=newpost

Hola


Para cargar el archivo usa el método LoadFromFile y recorreres los elementos de la lista, te recomiendo checar la ayuda de delphi


Cargar archivo

Lista.LoadFromFile('Archivo');


Recorrer archivo

for x:=0 to Lista.Count-1 Do

y tomas la cadena con

Lista.Strings[x]


Por ultimo en el mensaje anterior se me olvido que debes liberar la lista

Lista.Free;