Leer y ordenar fichero en delphi

[izubal]

Si, creo que ya te he entendido.

1. Montó la cadena.
2. Pasarlas al StringList
3. Usar el método de ordenación que tiene el StringList

pero y al StringList le tendría que decir por qué campo ordenar no? hay ya no lo tengo... vamos que no he entendido muy bien.
Si me puedes aclarar este último punto....

gracias
un saludo

[izubal]

Voy a intentarlo.
estoy mirando como funciona el objeto StringList y si no lo consigo ya vuelvo a escribir.

Gracias por todo.
Un saludo

[izubal]

Hola,

Tengo una duda.
Cargo en el TStringList todas las líneas del fichero.
pero el método sort no tiene como pasarle los parámetros.

sl := TStringList.Create;
try
Reset(ftIN);
Rewrite(ftOUT);
while (not EOF(ftIN)) and (Error<> 1) do
begin
Readln(ftIN, S);
sl.Add(S);
...

pero como le digo que quiero ordenarlo en base al campo2 y 8??
con el método xprocs.strTokenToStrings(S,'|',s2); puedo cargar en otro TStringList (s2) todos los campos que tiene pero no se como seguir.

un saludo.

[Neftali [Germán.Estévez]]

Por pasos:
(1) Carga el fichero en un TStringList (llamaremos el original). Hay un método que lo hace, esa es otra de las ventajas del TStrigList.

Código Delphi [-]
  TS.loadFromFile('nombrefichero')

(2) Monta un segundo TStringList con las cadenas; Ese segundo es el que utilizaremos para ordenar. Tendrás las cadenas y el apuntador e la posición en la lista original.

Código Delphi [-]
var
  i:Integer;
  pi:PInteger;
begin
...
TS2 := TStringList.Create();
...
for i := 0 to (TS.Count - 1) do begin
  Str := 'Cadena con los campos 2 y 8'  // CURRO PARA TÍ
  // tendrás en Str concatenados el campo2 y el campo8

  // Añadirlo a la segunda lista
  pi := Pointer(i);
  // Añadimos a la segunda lista el String y la posicion en la original (usamos el puntero para colocar la posicion)
  TS2.AddObject(Str, TObject(pi));
end;

// Cuando salgas del FOR, en TS2 tendrás tantas cadenas como en TS
// pero sólo con los campos2 y 8

Ahora tu segunda lista tiene las cadenas 2 y 8 y la posicion en la lista original; Al ordenar, ordenará por las cadenas y segirás teniendo cada cadena con un entero que te dirá la posición en la lista original.

(3) Ordenar.

Código Delphi [-]
  TS2.Sort();

Si originalmente la lista estaba así (TS):
Lunes
Martes
Miercoles
Jueves
Viernes
Sábado
Domingo

La segunda lista estará así (TS2) despues de ordenar; Lo segundo es el apuntador:
Domingo (7)
Jueves(4)
Lunes(1)
Martes(2)
Miercoles(3)
Sábado(6)
Viernes(5)

Por lo tanto puedes reordenar la lista original en una tervera (TS3) utilizando algo así:

Código Delphi [-]
    for i := 0 to (TS2.Count - 1) do begin
      // cadena en la segunda lista
      Str := TS2[i];
      // posicion en la lista original
      j := Integer(TS2.Objects[i]);
      // añadirlo a la ternera lista
      TS3.Add(TS.[j]);
    end;

Espero que quede más claro.

[[Lepe]]

Edito: Neftali sigue siendo el más rápido del Oeste.... .

(No sé si borrar el mensaje o dejarlo, lo dejo de momento, si te lías más, olvídame , prácticamente digo lo mismo que Neftali)

Vamos por partes:
- Para cargar el fichero, puedes usar un stringlist llamado fichero y usar fichero.LoadFromfile('ruta completa.txt');

Ahora por cada elemento de ese string, tienes que recorrerlo y ponerlo en formato:
000000000Carlos000000000000234

Suponiendo que "Carlos" es el campo1 y "234" es el campo8

Estos strings con formato especial, vamos a cargarlo en otro stringlist llamado Aordenar, de forma que lo añadimos así:

Código Delphi [-]
fichero := TStringlist.create;
Aordenar := TStringlist.create;
for i:= 0 to fichero.count-1 do
begin 
   strConCeros := pues eso, la cadena con los ceros, usa el xprocs o lo que sea para armar la cadena
   aordenar.AddObject(strConCeros, pointer(i));
end;
aordenar.sort;

Un ejemplito, Supongamos que aordenar (después de llamar a Sort) tiene esto

string                Object[i]
00000Antonio          3
00000Carlos           1

Eso significa que fichero[3] tendrá a "Antonio" y es el primer nombre en orden alfabético que existe en el fichero.

También significa que en segundo lugar de la lista ordenada, está "Carlos" el cual se encuentra en fichero[1]

Quizás sea un lío, te aconsejo probar con algo así

Código Delphi [-]
var str:string;
begin
for i:= 0 to Aordenar.count-1 do
begin
   str := Aordenar[i] + ' está en el índice '+  IntTostr(integer(Aordenar.objects[i])) + ' de fichero';
  ShowMessage(str);
end;

Dicho de otra forma Aordenar.objects[i] guarda la linea en que se encuentra ese individuo en el archivo.

Saludos

[izubal]

OK.
Con las explicaciones que me habeís dado espero conseguirlo esta tarde.
Ya os comentaré que tal me ha ido.

muchas gracias a los dos.
un saludo

[Neftali [Germán.Estévez]]

Empezado por Lepe

...prácticamente digo lo mismo que Neftali

Bueno, eso debe ser que no vamos tan mal encaminados, pistolero!

[izubal]

Hola,

lo he conseguido!!
ahora lo veo sencillo, pero no me salía!!!

Muchas muchas gracias.

un saludo

[izubal]

Hola,

lo he conseguido!!
ahora lo veo sencillo, pero no me salía!!!

Muchas muchas gracias.

un saludo