Comparar cadenas de caracteres sacadas de un fichero

[papulo]

Casimiro:
Se que podría saltarmelo y buscar la cadena 'F5:02:40:00' directamente, pero eso no resolvería mi problema, solo lo parchearía. Y si en un momento dado tengo que pelearme con cadenas cuyo identificador comienza por '00' tendré que aprender, y ya que el tema me pilla pez, mejor aprenderlo sin vicios ni malas costumbres

Aqui un trozo:

00000000:00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20    ..              
00000010:20 20 20 00 32 34 32 31 31 00 20 20 20 20 20 20       .24211.      
00000020:20 20 00 4e 45 57 20 48 4f 4c 4c 41 4e 44 00 20      .NEW HOLLAND. 
00000030:20 20 20 20 20 20 20 00 33 33 33 20 54 52 41 43           .333 TRAC
00000040:54 4f 52 00 20 20 20 20 20 20 20 20 20 20 20 20    TOR.            
00000050:20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
00000060:20 20 20 20 20 20 20 20 20 20 00 31 39 37 35 00              .1975.
00000070:31 39 38 34 00 f5 02 40 01 00 00 00 00 00 20 20    1984.õ.@......  
00000080:20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00                   .
00000090:32 33 39 38 33 00 20 20 20 20 20 20 20 20 00 46    23983.        .F
000000a0:4f 52 44 00 20 20 20 20 20 20 20 20 20 20 20 20    ORD.            
000000b0:20 20 20 00 43 4f 52 54 49 4e 41 20 49 56 20 31       .CORTINA IV 1
000000c0:2c 33 20 28 4c 46 50 2d 54 4f 20 52 45 50 4c 41    ,3 (LFP-TO REPLA
000000d0:43 45 20 4c 55 43 41 53 20 4f 4e 4c 59 29 00 20    CE LUCAS ONLY). 
000000e0:20 20 20 20 20 20 00 31 39 37 36 00 31 39 37 39          .1976.1979
000000f0:00 f5 02 40 01 00 00 00 00 00 20 20 20 20 20 20    .õ.@......      
00000100:20 20 20 20 20 20 20 20 20 20 20 00 32 33 39 38               .2398

Crandel:
Esa es la opción que estaba barajando y que parametrizandola me dará toda la funcionalidad que busco.

[[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.