Telefonnummer in Bestandteile zerlegen

[TKC]

Hallo,

ich baue gerade ein kleines Anrufer Log.

Ich bekomme jetzt die Telefonnummern von meiner Telefonanlage und will die Nummern in ihre Bestandteile,
wie Länderkennung,Vorwahl,Rufnummer, zerlegen.

Ich habe eine Tabelle mit den entsprechenden Vorwahlen und arbeite mit Locate um z.b. den Ort zu bekommen.

Bisher mache ich das so...

Delphi-Quellcode:

        // Ort Finden
        if StrLeft(qryAnrufe.FieldByName('telnummer').AsString, 1) = '0' then
          begin
            sVw := StrLeft(qryAnrufe.FieldByName('telnummer').AsString, 6);
            if tblVorwahlen.Locate('vorwahl', sVw, []) then
              li.Captions[4] := tblVorwahlen.FieldByName('ort').AsString
            else
              begin
                sVw := StrLeft(qryAnrufe.FieldByName('telnummer').AsString, 5);
                if tblVorwahlen.Locate('vorwahl', sVw, []) then
                  li.Captions[4] := tblVorwahlen.FieldByName('ort').AsString
                else
                  begin
                    sVw := StrLeft(qryAnrufe.FieldByName('telnummer').AsString, 4);
                    if tblVorwahlen.Locate('vorwahl', sVw, []) then
                      li.Captions[4] := tblVorwahlen.FieldByName('ort').AsString
                    else
                      begin
                        sVw := StrLeft(qryAnrufe.FieldByName('telnummer').AsString, 3);
                        if tblVorwahlen.Locate('vorwahl', sVw, []) then
                          li.Captions[4] := tblVorwahlen.FieldByName('ort').AsString
                      end;
                  end;
              end;
          end;

Aber irgendwie gefällt mir diese Lösung nicht besonders. Habt ihr evtl. nen besseren Ansatz für mich ?

[mkinzler]

Wie sieht eine solche Nummer aus?

[TKC]

z.B. so

0350465x1x3

oder

016285x2x50

oder

07711x89x8x

Das Problem ist das die Vorwahlen eine unterschiedliche Länge haben können.

[mkinzler]

Zitat:

Das Problem ist das die Vorwahlen eine unterschiedliche Länge haben können.

Und wie willst du dann erkennen, wo die eigentliche (Basis-)Telefonnummer anfängt? Ist imho nur mit Abgleich einer Voewahlenliste erreichbar.

[shmia]

ein kleine Unterfunktion bringt Ordnung in den Code.
Du brauchst eine Funktion, die dir x-Stellen der Telnr von links liefert:

Delphi-Quellcode:

function PhoneLeftPart(anz:integer):string;
begin
   result := StrLeft(TrimLeft(qryAnrufe.FieldByName('telnummer').AsString), anz);
end;

Dann einfach das Ganze in einer Schleife:

Delphi-Quellcode:

ort := 'unbekannt';
for i := 6 downto 3 do
begin
   sVw := PhoneLeftPart(i);
   if tblVorwahlen.Locate('vorwahl', sVw, []) then
   begin
      ort := tblVorwahlen.FieldByName('ort').AsString 
      break;
   end;
end;
li.Captions[4] := ort;

Mit Zwischenvariablen (z.B. ort:string)wird die Sache schon wesentlich eleganter.

[marabu]

Hallo,

eventuell stecken in diesem thread ein paar Ideen, die hier wiederverwendet werden können:
telefonnummern trennen in vorwahlrufnummer mit tsql

Grüße vom marabu

[TKC]

ok...

Danke für die Anregungen.