AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Telefonnummer in Datenbank Finden

Telefonnummer in Datenbank Finden

Ein Thema von ajmbarros · begonnen am 3. Dez 2014 · letzter Beitrag vom 5. Dez 2014
Antwort Antwort
Seite 2 von 2     12
ajmbarros
(Gast)

n/a Beiträge
 
#11

AW: Telefonnummer in Datenbank Finden

  Alt 4. Dez 2014, 10:41
Zumachen nicht vergessen...
  Mit Zitat antworten Zitat
jensw_2000
(Gast)

n/a Beiträge
 
#12

AW: Telefonnummer in Datenbank Finden

  Alt 4. Dez 2014, 11:21
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;
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.107 Beiträge
 
Delphi 12 Athens
 
#13

AW: Telefonnummer in Datenbank Finden

  Alt 4. Dez 2014, 12:24
Die implizite "(0)" nicht vergessen zu entfernen,
wenn keine Landesvorwahl vorhanden, dann diese hinzufügen
usw.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
ajmbarros
(Gast)

n/a Beiträge
 
#14

AW: Telefonnummer in Datenbank Finden

  Alt 4. Dez 2014, 18:03
Geht das auch für Linux?
  Mit Zitat antworten Zitat
jensw_2000
(Gast)

n/a Beiträge
 
#15

AW: Telefonnummer in Datenbank Finden

  Alt 4. Dez 2014, 18:45
Kann ich nicht sagen. Hatte bisher nur Windows Firebird Server in den Fingern.
  Mit Zitat antworten Zitat
Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
 
Delphi 11 Alexandria
 
#16

AW: Telefonnummer in Datenbank Finden

  Alt 4. Dez 2014, 18:56
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
Frank Reim

Geändert von dataspider ( 4. Dez 2014 um 18:59 Uhr)
  Mit Zitat antworten Zitat
ajmbarros
(Gast)

n/a Beiträge
 
#17

AW: Telefonnummer in Datenbank Finden

  Alt 5. Dez 2014, 09:21
Das sieht sehr gut aus. Werde ich gleich mal in die Tat umsetzten.
  Mit Zitat antworten Zitat
ajmbarros
(Gast)

n/a Beiträge
 
#18

AW: Telefonnummer in Datenbank Finden

  Alt 5. Dez 2014, 09:37
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!
  Mit Zitat antworten Zitat
Dejan Vu
(Gast)

n/a Beiträge
 
#19

AW: Telefonnummer in Datenbank Finden

  Alt 5. Dez 2014, 10:30
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.
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#20

AW: Telefonnummer in Datenbank Finden

  Alt 5. Dez 2014, 12:10
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
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz