Ver Mensaje Individual
  #1  
Antiguo 15-07-2008
Avatar de mauser1985
mauser1985 mauser1985 is offline
Miembro
 
Registrado: feb 2008
Posts: 21
Reputación: 0
mauser1985 Va por buen camino
Post 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....
Responder Con Cita