Telefonnummer in Datenbank Finden

[ajmbarros]

Zumachen nicht vergessen...

[jensw_2000]

Zitat:

Zitat von ajmbarros (Beitrag 1282206)

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.

[ajmbarros]

Anbei die Funktionierende Lösung dank einer Procedure:

Code:

CREATE PROCEDURE STRTOINT(
  STRINGWERT VARCHAR(80) CHARACTER SET ISO8859_1 COLLATE ISO8859_1)
RETURNS(
  RESULT VARCHAR(80) CHARACTER SET ISO8859_1 COLLATE ISO8859_1)
AS
DECLARE VARIABLE laenge INTEGER;
DECLARE VARIABLE pos INTEGER;
DECLARE VARIABLE zeichen CHAR(1);
BEGIN
  /* Procedure body */
  
  laenge = char_length(:STRINGWERT);
  if (:laenge > 0) then
  begin
    pos = 1;
    while (:pos <= :laenge) do
    begin
      zeichen = substring(:STRINGWERT 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;

Und mit diesem select ist auch kein zweites Feld nötig:

Code:

select *
from ANSPR a
where (select result from  STRTOINT(a.TEL)) = '0123456'

Ich hab natürlich einige Datenbank-Reads aber es hält sich in unter einer Sekunde.

Evtl. muss ich mit den Landesvorwahlen tricksen bzw. muss ich mal testen wie gut das mit einem like '%0123456' funktioniert, wenn ich vorher im Delphi-Code die Landesvorwahlen immer raus nehme. Nochmals vielen Dank!

[Dejan Vu]

Zitat:

Zitat von ajmbarros (Beitrag 1282313)

Und mit diesem select ist auch kein zweites Feld nötig:

Muss ja nicht, aber wenn Du mal mehr Daten hast, würdest Du dich freuen. 'Unter einer Sekunde' ist übrigens bei den paar Daten ein GAU, imho. Eine DB sollte zum Finden einzelner Sätze 0.1 Sekunden brauchen, mehr nicht. Ein Table-Scan sollte bei Standardsuchen vermieden werden, finde ich.

[p80286]

Was soll's, er hat verkorkste Daten, eine Möglichkeit so zu tun als sei alles in Ordnung, also geht's weiter so.

http://de.wikiquote.org/wiki/Max_Liebermann

Gruß
K-H