Anrufmonitor --> Einer Rufnummer den Namen zuordnen

[Sir Rufo]

Eine Telefonnummer ist auch immer abhängig vom Kontext.

Diese Rufnummern zeigen alle auf den gleichen Anschluss, wenn man sich in Deutschland im Vorwahlbereich 888 befindet:

Code:

00498887654321
[phone]
08887654321
7654321

Für eine zuverlässige Suche wird also auch der Kontext benötigt.

[Garfield]

Die Fritzbox gibt nationale Rufnummern mit OKZ und OKZPrefix an. Dabei wird die OKZ bei aktueller Firmware nicht mehr weggelassen, wenn der Anruf aus demselben Vorwahlbereich kommt.

[ringli]

Danke für die Antworten.

@sx2008: Diese Möglichkeit kannte ich noch gar nicht. Mal sehen ob ich mir daraus etwas basteln kann oder ob ich doch auf die Möglichkeiten vom NextGrid zurückgreife.

@Garfield: Das Fritz!Box Telefonbuch wollte ich eigentlich nicht benutzen, zumal ich mit XML nicht wirklich warm werde...

[Sir Rufo]

Zitat von ringli:

@sx2008: Diese Möglichkeit kannte ich noch gar nicht. Mal sehen ob ich mir daraus etwas basteln kann oder ob ich doch auf die Möglichkeiten vom NextGrid zurückgreife.

Controls sind zum Anzeigen von Daten gedacht und nicht als Datenspeicher!

[mquadrat]

ich nehme mal an das NextGrid hat sowas wie das Grid von TMS: SaveAsCsv, SaveAsXml, ...

[ringli]

Zitat von Sir Rufo:

Controls sind zum Anzeigen von Daten gedacht und nicht als Datenspeicher!

Ja weiß ich. Deswegen habe ich ja nach einer cleveren Lösung gefragt obwohl die Möglichkeiten des Grids ja wirklich verlockend sind...

Zitat von mquadrat:

ich nehme mal an das NextGrid hat sowas wie das Grid von TMS: SaveAsCsv, SaveAsXml, ...

Ja, genau so ist es.

[Sir Rufo]

Zitat von ringli:

Zitat von Sir Rufo:

Controls sind zum Anzeigen von Daten gedacht und nicht als Datenspeicher!

Ja weiß ich. Deswegen habe ich ja nach einer cleveren Lösung gefragt obwohl die Möglichkeiten des Grids ja wirklich verlockend sind...

Na dann bau dir doch da einfach was ...

Anfangen müsstest du mit der Beschreibung, was geht rein und was soll rauskommen.

Also eventuell so?

Delphi-Quellcode:

type
  TPhoneNumberResolver = class abstract
  public
    function GetPersonFrom( const APhoneNumber : string ) : string; virtual; abstract;
  end;

Eine simple konkrete Klasse wäre dann z.B.

Delphi-Quellcode:

type
  TSimplePhoneNumberResolver = class( TPhoneNumberResolver )
  private
    FPhoneNumberStrings : TStrings;
  public
    constructor Create( APhoneNumberStrings : TStrings );
    destructor Destroy; override;
    function GetPersonFrom( const APhoneNumber : string ) : string; override;
  end;

constructor TSimplePhoneNumberResolver.Create( APhoneNumberStrings : TStrings );
begin
  inherited Create;
  FPhoneNumberStrings := TStringList.Create;
  FPhoneNumberStrings.Assign( APhoneNumberStrings );
end;
 
destructor TSimplePhoneNumberResolver.Destroy;
begin
  FPhoneNumberStrings.Free;
  inherited;
end;

function GetPersonFrom( const APhoneNumber : string ) : string;
begin
  Result := FPhoneNumberStrings.Values[APhoneNumber];
end;

Je nachdem wie gut deine Programmierkenntnisse voranschreiten, kannst du die konkrete Ableitung noch verbessern oder eine neue, raffiniertere zusammenbauen.

Deine Anwendung selber bleibt aber gleich, denn die spricht nur die abstrakte Klasse an und der Aufruf bleibt gleicht

[Sir Rufo]

Und hier eine Klasse, die Telefonnummern in Abhängigkeit des Kontexts normalisiert und vergleicht

Delphi-Quellcode:

type
  TPhoneContext = record
    IntlPrefix : string;
    IntlNumber : string;
    NatPrefix : string;
    NatNumber : string;
  end;

const
  MunichPhoneContext : TPhoneContext = ( IntlPrefix : '00'; IntlNumber : '49'; NatPrefix : '0'; NatNumber : '89' );

type
  TPhoneNumberComparer = class
  private
    FContext : TPhoneContext;
    function NumberClearing( const Number : string ) : string;
  public
    property Context : TPhoneContext read FContext write FContext;
    function NormalizeNumber( const Number : string ) : string;
    function IsSameNumber( const Number1, Number2 : string ) : Boolean;
  end;

  { TPhoneNumberComparer }

function TPhoneNumberComparer.IsSameNumber( const Number1, Number2 : string ) : Boolean;
begin
  Result := NormalizeNumber( Number1 ) = NormalizeNumber( Number2 );
end;

function TPhoneNumberComparer.NormalizeNumber( const Number : string ) : string;
begin
  Result := NumberClearing( Number );

  if Result.StartsWith( '+' ) then
    Result := Context.IntlPrefix + Result.Substring( 1 );

  if Result.StartsWith( Context.IntlPrefix + Context.IntlNumber ) then
  begin
    Result := Context.NatPrefix + Result.Substring( Length( Context.IntlPrefix + Context.IntlNumber ) );
  end;

  if Result.StartsWith( Context.NatPrefix + Context.NatNumber ) then
  begin
    Result := Result.Substring( Length( Context.NatPrefix + Context.NatNumber ) );
  end;
end;

function TPhoneNumberComparer.NumberClearing( const Number : string ) : string;
var
  LIdx : Integer;
  LChar : Char;
begin
  Result := '';

  for LIdx := 0 to Number.Length - 1 do
  begin
    case Number.ToUpper.Chars[LIdx] of
      'A', 'B', 'C' :
        LChar := '2';
      'D', 'E', 'F' :
        LChar := '3';
      'G', 'H', 'I' :
        LChar := '4';
      'J', 'K', 'L' :
        LChar := '5';
      'M', 'N', 'O' :
        LChar := '6';
      'P', 'Q', 'R', 'S' :
        LChar := '7';
      'T', 'U', 'V' :
        LChar := '8';
      'W', 'X', 'Y', 'Z' :
        LChar := '9';
      '+', '0' .. '9' :
        LChar := Number.Chars[LIdx];
    else
      LChar := #0;
    end;

    if LChar <> #0 then
      Result := Result + LChar;
  end;
end;

UPDATE
Jetzt frisst das Teil eigentlich (fast) alles

Code:

NormalizeNumber:
+49 89 BEIL => 2345
[phone] => 2345
(089) 2345 => 2345
[phone] => 0048892345

Diese (komischen) Konstrukte

Code:

[phone]

frisst er nicht (mag er auch nicht)

[Garfield]

Zitat von ringli:

@Garfield: Das Fritz!Box Telefonbuch wollte ich eigentlich nicht benutzen, zumal ich mit XML nicht wirklich warm werde...

Mit XML habe ich auch so meine Probleme. Aber für das Lesen der Namen und Nummern braucht man nicht viel. In der Demo sind das auch nur ein paar Zeilen um Namen und Telefonnummern in ein TListView zu übertragen. Sie hat nur den Fehler, das nicht berücksichtigt wird das die maximal drei Telefonnummern vom selben Typ sein können.