Telefonnummer in Datenbank Finden

[ajmbarros]

Ok, es gibt eben nicht genug Funktionen in Firebird.
Ich werde das Ganze auf Grund der Vorschläge so machen:

1) neues Feld, über extra dafür geschriebenes Tool alle Numern "sauber" in neuen Feld abspeichern.
2) bei Eingabe zweites Feld sauber füllen.

In meinem Fall bietet sich sogar dafür eine neue Tabelle an da die Nummern aus zwei Tabellen kommen.
Ich kann's halt nicht zur Laufzeit mit allen Nummern machen. Ich hab nicht mehr als eine Sekunde zeit aus über 3 Millionen Nummern die richtige rauszusuchen.
Ganz löschen kann ich den Kram (erstmal) auch nicht da das Feld auch noch zweckentfremdet wurde und teilweise wichtige Kurzinformationen drin stehen die nicht verloren gehen dürfen, aber auch keine Telefonnummer sind.

Saubermachen kann halt manchmal nicht umgangen werden. Auch nicht wenn's ne Altlast eines anderen ist.

Danke an alle!

[ajmbarros]

Zumachen nicht vergessen...

[jensw_2000]

Zitat von ajmbarros:

Ok, es gibt eben nicht genug Funktionen in Firebird.

Man kann sich mit Delphi sehr einfach Firebird UDFs (userdefined functions) schreiben und den Funktionsumfang damit problemlos erweitern.
Hier mal ein Link dazu.
Firebird UDF mit Delphi ...

Der alte Firebird hatte damals kaum Date/Time Funktionen im Angebot. Dafür hatte ich für einen Kunden die halben Delphi DateUtils per DLL als UDF bereitgestellt.

Du kannst Dir also einfach eine Firebird "Addin" DLL in Delphi schreiben, die Dir Folgendes ermöglicht:

Code:

SELECT 
  * 
FROM 
  KONTAKTE K 
WHERE
  NormalizedPhoneNumber(K.Telefon) = '04040404040404040';

"NormalizedPhoneNumber" ist eine Delphi Funktion, die per DLL bereitgestellt wird und etwa so aussehen könnte:

Delphi-Quellcode:

function NormalizedPhoneNumber(const aTelefonnummer:WideString):WideString;
  var t:String;
begin
  t := StringReplace(aTelefonnummer,'+','00');
  t := RemoveNoneNumericCharsFromString(t);

  result := t;
end;

[himitsu]

Die implizite "(0)" nicht vergessen zu entfernen,
wenn keine Landesvorwahl vorhanden, dann diese hinzufügen
usw.

[ajmbarros]

Geht das auch für Linux?

[jensw_2000]

Kann ich nicht sagen. Hatte bisher nur Windows Firebird Server in den Fingern.

[dataspider]

In Firebird zumindest seit der 2.x ' er Version kann man die meisten UDF' s durch SP' s ersetzen.

Code:

create or alter procedure nur_ziffern (
    wert varchar(80)
returns (
    result varchar(80))
as
declare variable laenge smallint$;
declare variable pos smallint$;
declare variable zeichen char1$;
begin
  laenge = char_length(:wert);
  if (:laenge > 0) then
  begin
    pos = 1;
    while (:pos <= :laenge) do
    begin
      zeichen = substring(:wert from :pos for 1);
      if (:zeichen in ('0','1','2','3','4','5','6','7','8','9')) then
        result = coalesce(:result, '')||:zeichen;
      pos = :pos + 1;
    end 
  end
  suspend;
end

Ich führe immer ein Feld mit (Bsp. nummer$, welches nur die Ziffern enthält.
Dieses wird über einen Trigger aktuell gehalten:

Code:

CREATE OR ALTER TRIGGER TELEFON_BUI1 FOR TELEFON
ACTIVE BEFORE INSERT OR UPDATE POSITION 1
as
begin
  execute procedure nur_ziffern(new.nummer) returning_values new.nummer$;
end

Das Feld ist indexiert und wird für die Suche benutzt.

Frank

[ajmbarros]

Das sieht sehr gut aus. Werde ich gleich mal in die Tat umsetzten.