Reconocer el código de una entidad a través de una BBDD de Entidades Bancarias

[Casimiro Noteví]

Empezado por Delphitest

Me voy contestando...

Sabía que podías

[mamcx]

Una forma mas robusta es usar una expresion regular, a menos que puedas garantizar que SIEMPRE estan entre esas posiciones. Pero si es algo que el usuario puede cambiar, es mejor testear contra una exp. regular.

[Delphitest]

Gracias por vuestra ayuda,

el dato del IBAN aparece en un BDEdit que tiene una máscara y posiciones concretas, también pensé en lo que comentas por si las posiciones pudiesen cambiar pero creo que con Copy lo apaño.

Estoy buscando una base de datos con los códigos de la entidades y su nombre (Solo para España), sin sucursales ni direcciones, algo básico con esos dos campos.

Espero que sea algo público y no esté metiendo la pata

¿Sabéis donde puedo encontrar algo de eso?

[Delphitest]

Vaya, pues sí que es público, lo facilita el banco de España

Aquí está, solo hay que sanearlo un poco...

http://www.bde.es/f/webbde/IFI/servi...CONESTAB_A.XLS

Pero muy completito

[pacopenin]

Pasito a pasito,

[Delphitest]

Lo tengo

Ya prepare la tabla de entidades en base a la excel encontrada en el Banco de España

Y a través de una cuantas vueltas he llegado a obtener el resultado con este código:

Código Delphi [-]
procedure TFCuentasBancarias.DBIBANExit(Sender: TObject);
var entidad :String;
begin
  if DBIBAN.Text <> '' then
    Begin
      Entidad := Copy(DBIBAN.Text,6,4);  // Asigno a la la variable entidad el código de la entidad bancaria
  If not TEntidades.Locate('Codigo',Entidad,[]) then  // Busco en la tabla Entidades ese codigo
     Begin
         Mensaje ('Entidad no encontrada');
         DBEntidad.Text := '';
         DBSwift.Text := '';
     End
    else
         Begin
            DBEntidad.Text := TEntidadesNombre_Entidad.Value; // Relleno el nombre la entidad
            DBSwift.Text := TEntidadesSwift.Value; // Relleno el swift
         End;
    end;
end;

Quedo satisfecho, aunque supongo que se puede mejorar, al menos hace lo que quiero