mauser1985
15-07-2008, 22:17:53
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....
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....