Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Necesito ayuda con un stringlist... (https://www.clubdelphi.com/foros/showthread.php?t=58304)

mauser1985 15-07-2008 22:17:53

Necesito ayuda con un stringlist...
 
Hola foro,
Si alguien pudiera ayudarme, la cuestion es que hice un programa usando stringlist paracargar y crear un archivo nuevo, bueno pues lo que me hace falta es como hacer para que la informacion que el stringlistcargue e imprima en el nuevo archivo se copie siguiendo un formato determinado, y tampoco se como añadirle lineas al nuevo archivo que se crea. Aqui esta la parte que usa el tstringlist..


begin
ls := TStringList.Create;
lg := TStringList.Create;
ls.LoadFromFile(nm);
ns := ExtractFilePath(Application.Exename) + '\' + Edit1.Text;
r := ls.Count;
i := 0;
n := 0;
while i < r do
if Pos('*Node',ls[i]) <> 0 then
begin
inc(i);
inc(n);
while (Pos('*Element',ls[i]) = 0) and (i < r) do
begin
lg.Add(ls[i]);
inc(i);
end;
lg.SavetoFile(ns + inttostr(n) + '.txt');
end
else inc(i);
ls.Free;
lg.Free;
end;


Pues bien copmo pueden ver dentro de los marcadores(Node y Element) esta la info que me urge pero necesito que esa info sea guardada en el nuevo archivo siguiendo un patron, ej. Nombre:.... Edad.... Coordenadas....

coso 16-07-2008 21:16:17

donde pone

Código Delphi [-]
...
lg.Add(ls[i]);
...

pon, por ejemplo

Código Delphi [-]
...
lg.Add('Coordenadas ' + ls[i]);
...

el metodo .Add (lo de detras del punto) de TStringlist incluye una string (cadena de texto) dentro de ella, como si fuese una nueva linea. Esta string
puede ser la que quieras.


La franja horaria es GMT +2. Ahora son las 20:35:43.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi