Código Delphi
[-]
var Lista, Linea:TStringList;
begin
Lista := TStringList.Create;
Linea := TStringList.Create;
Lista.LoadFromFile('c:\ldjsflakjdlf');
Linea.DelimitedChar := ' '; for i:=0 to Lista.Count-1 do
begin
linea.DelimitedText := Lista[i];
ShowMessage('La cadena a decodificar: '+ Lista[i]);
for j:= 0 to Linea.Count-1 do
begin
ShowMessage('Decodificada la Linea en trozos: '+linea[j]);
end;
freeandnil(lista); freeandnil(linea);
Hasta donde yo sé , no existe nada como Scanf.
Ese código carga en Lista todo el archivo, y ahora desglosa cada línea, el bucle interior (el de variable j) mostrará:
Points
4
4
5
Para la primera línea.
Saludos