Comparar cadenas de caracteres sacadas de un fichero

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

[Casimiro Noteví]

que si el fichero es de una forma parecida a esta, tiene una cabecera y luego los registros en sí:
xx bytes -> cabecera de longitud la que sea (puede no tener cabecera)
64 bytes -> datos de un registro
64 bytes -> datos de otro registro
64 bytes -> datos de un registro más
64 bytes -> etc...

cada uno de esos 64 bytes (es un ejemplo), pueden estar subdivididos en los campos de la tabla:
08 bytes -> código
32 bytes -> descripción (es el dato que te interesa, creo)
08 bytes -> precio
xx bytes -> etc...


Si este fuese el caso tan sólo tendrías que "saltar" la cabecera y luego leer/saltar a intervalos fijos para los datos que te interesan de cada registro.

Aunque seguro que esta posibilidad ya lo habrás comprobado, era sólo por dar una idea más.

[papulo]

Negativo, casimiro, no es de longitud fija.Si lo fuera sería un chollete.

[Casimiro Noteví]

al menos podrían decirte qué tipo de archivo es

[papulo]

He aquí la solución al final. Ya funciona perfectamente y esas cosas.

Si no se entiende, la explicaré (lo cual no dice que sea la mas óptima y la mas eficiente y la mas bonita y... pero me la he currao como he podido)

Código Delphi [-]
procedure TfGlobal.CalcularStarCross;
var
  CharSelected: string;
begin
  sStartCross := '';
  buffer := BuildIniFile.ReadString('XREFER_PARAMETERS', TempList.Strings[1], ''); //Leo el sStarCross del INI
  CharSelected := AnsiLeftStr(buffer, 1);
  buffer := AnsiRightStr(buffer, Length(buffer) - 1);

  repeat
    if (CharSelected <> ',') and (CharSelected <> '[') and (CharSelected <> ']') and (CharSelected <> Chr(39)) then
      begin
        buffer2 := buffer2 + CharSelected;
        CharSelected := AnsiLeftStr(buffer, 1);
        buffer := AnsiRightStr(buffer, Length(buffer) - 1);
      end
    else
      if (CharSelected = ',') then
        begin
          sStartCross := sStartCross + Chr(StrToInt(buffer2));
          CharSelected := AnsiLeftStr(buffer, 1);
          buffer := AnsiRightStr(buffer, Length(buffer) - 1);
          buffer2 := '';
        end
      else
        begin
          CharSelected := AnsiLeftStr(buffer, 1);
          buffer := AnsiRightStr(buffer, Length(buffer) - 1);
        end;
  until CharSelected = ']';

  sStartCross := sStartCross + Chr(StrToInt(buffer2));
  CharSelected := AnsiLeftStr(buffer, 1);
  buffer := AnsiRightStr(buffer, Length(buffer) - 1);
  buffer2 := '';
end;

Después de esta, paso a "Novato en Delphi 88%"