Comparar cadenas de caracteres sacadas de un fichero

[[seoane]]

Una primera aproximacion sería algo como esto:

Código Delphi [-]
function Buscar(Archivo: String; Sub: Pointer; Count: int64): int64;
var
  P: PByte;
  i: int64;
begin
  Result:= -1;
  with TMemoryStream.Create do
  try
    LoadFromFile(Archivo);
    if Size < Count then
      Exit;
    i:= 0;
    P:= Memory;
    while (not CompareMem(Sub,P,Count)) and (i < Size) do
    begin
      inc(P);
      inc(i);
    end;
    if i < Size then
      Result:= i;
  finally
    Free;
  end;
end;

// Por ejemplo
var
  Buffer: Array[1..6]of Byte;
begin
  Buffer[1]:= $00; Buffer[2]:= $F5; Buffer[3]:= $02;
  Buffer[4]:= $40; Buffer[5]:= $00;
  ShowMessage(IntToHex(Buscar('d:\1.dat',@Buffer,5),8));
end;

La función buscar, nos devuelve la posición de la cadena que buscamos, o -1 si no la encuentra. La única desventaja es que cargamos todo el archivo en memoria y si el archivo es muy grande (un par de decenas de megas) puede resultar un problema.

[papulo]

Ostias! Eso me llevará un rato leerlo, comprenderlo y asimilarlo. Asi que aprovecho para hacer una pausita, ir al gimnasio, comer y luego con fuerzas renovadas me enfrentaré a esto.

Gracias Seoane y a todos los demás.

PD:Soluciones mas sencillas también se aceptan

[[seoane]]

Empezado por papulo

Ostias! Eso me llevará un rato leerlo, comprenderlo y asimilarlo. Asi que aprovecho para hacer una pausita, ir al gimnasio, comer y luego con fuerzas renovadas me enfrentaré a esto.

Quizá yo también tendría que ir al gimnasio, en vez de pasarme el día delante del ordenador

[Casimiro Noteví]

Empezado por seoane

Quizá yo también tendría que ir al gimnasio, en vez de pasarme el día delante del ordenador

ya somos dos




Por cierto, Papulo, ¿eso es una tabla de algún tipo de base de datos que quizás sea pública su estructura, no?

[[Crandel]]

Empezado por Casimiro Notevi

ya somos dos

ya somos tres , pero a mi por suerte recien me toca el anio que viene, voy dos meses cada dos anios uy no falta tanto para el anio que viene puedo esperar un anio mas... este anio no comi tantas facturas

[[seoane]]

Total, mucho tendría que estar en el gimnasio para ponerme como el amigo Xander que aquí parece un croasant (sin animo de ofender)

Aqui una fotos de un crosant para comparar
http://images.google.com/images?hl=e...-8&sa=N&tab=wi

[papulo]

Empezado por Casimiro Notevi

ya somos dos

Por cierto, Papulo, ¿eso es una tabla de algún tipo de base de datos que quizás sea pública su estructura, no?

No es pública pero si autorizada, es del perro de uno de nuestros proveedores, que quiere aparecer en nuestro catálogo, pero los mamones se tocan las pelotillas a la hora de pasarnos la información.

No os imaginais lo descoordinadas que son las grandes empresas, BOSCH, VALEO y esta gente.

A veces da la sensación de que ves ciclopes dando palos de ciego.

A todos los demás, el ejercicio viene de fábula, yo no estoy tan cachas como el amigo bombero, pero estoy cuadradete tambien, y a parte hago esgrima y juego a balonmano.

[Casimiro Noteví]

Si son registros de longitud fija lo tienes sencillo.

[papulo]

Empezado por Casimiro Notevi

Si son registros de longitud fija lo tienes sencillo.

Sin que sirva de precendente (dicese de algo que va antes de)...
¿Me lo expliquen?

¿Que quieres decir con eso?