Telefonnummern Parsen

[bikerboy]

Hi,

ich soll einen Telefonparser bauen, finde aber kaum Dinge im Netz an denen ich mich orientieren kann.

Also wie sieht es aus mit Regeln und dergleichen. Habt ihr da schon Erfahrungen ? vllt sogar fertigen Code ? Bin über alles glücklich was ihr mir zuwerft

[eknori]

Wen wir dir Output geben sollen, musst du uns aber auch ein bisschen mehr Input liefern.

Vom @Formel über LotusScript und JavaScript ( RegexP ) ist da so ziemlich alles drin. Mit Sicherheit hat Axel Janssen für Java auch noch was in der Schublade ...

[koehlerbv]

(Brauchbaren) fertigen Code wird hier kaum jemand veröffentlichen, aber mit Tipps stehen wir sicherlich gerne zur Verfügung. Ich zum Beispiel habe schon viel auf diesem Gebiet gemacht.

Hast Du konkrete Fragen? Wie sieht Dein Ausgangsmaterial aus?
Willst Du aus

0172 4711 0815

eine gültige Nummer machen wie

004917247110815?

Oder feststellen, dass dies keine gültige Nummer ist (die letzte "5" ist zuviel)?

Hast Du Probleme mit Nummern wie

0172-4711-815 (nur privat!)

oder

Serverraum: 08662 012100

Einfach wäre auch noch, folgende Nummer zu wandeln:

+45 (0) 1234 567

(By the way: Dänemark kennt für inländische (Fern-)Gespräche keine führende Null, aber das nur so am Rande ...


Oder muss Du gar aus so was Nummern herausflöhen?

RADIO CHIEMGAU

Programmanbieter GmbH & Co.
Rupertistraße 40-42
83278 Traunstein

Handelsregister Traunstein HRA 5644

persönlich haftende Gesellschafterin:
RADIO CHIEMGAU
Programmanbieter GmbH & Co.
Programmanbieter Verwaltungs GmbH

Geschäftsführer: Andi Nickl

Telefon Verwaltung: +49 861 98 63 6-0
Fax Verwaltung: +49 861 14 110
eMail: info@radio-chiemgau.de
   
Telefon Marketing: + 49 861 98 63 6-14
Fax Marketing: + 49 861 86 02
eMail: marketing@radio-chiemgau.de

Wie Ulrich schon schrieb: Mehr Input, mehr Output.

Bernhard

[flaite]

Mit Sicherheit hat Axel Janssen für Java auch noch was in der Schublade ...

Ich? Schublade. Regular Expressions?
Hätt ich gerne.
Immer wenn ich dabei war, da ein bischen fixer zu werden, war die Projekt-Aufgabe zu Ende. Seit 5 Jahren.
Das selbe Spiel mit xslt. 
Könnt ich mal machen für das Telefonnummernbeispiel.
Hmm. Sollte noch eine LS2J Umgebung für mein Mock-Framework bauen.

Warte auf Requirements. Bernhard hat schon ein paar gute Beispiele genannt.
Der deklarative Ansatz mit Regular Expressions ist wohl vom Ansatz her überlegen, d.h. man erzielt mit wenig Code gute Ergebnisse.

[ata]

... da wäre ich auch hellhörig 

Toni

[bikerboy]

Also , ich arbeite hier mit einem Datenmigrationstool und habe eine CSV-Datei liegen aus der ich mir komplette Adressen herausziehe,Ich bekomme die Nummer einzeln und muss sie nicht aufwendig suchen.

Die Herrausforderung besteht darin, dass ich sie für meine Applikation in 4 Felder unterteilen soll.

1. Ländervorwahl

2. Vorwahl

3. Hauptnummer

4. Durchwahl

So  nun gibt es ja in viel Möglichkeiten wie so eine NUmmer aussehen kann.

ob sie nun mit 0, 00 , +49 anfängt bis dahin ist die Nummer ob die Vorwahl nun  oder 4 stellen hat.


Ich habe bis jetzt ein Tool das erstmal alle Sonderzeichen rausschmeisst und sie durch Leerzeichen ersetzt, dann bilden sich Blöcke die ich untersuche, der erste Block ist ja die VOrwahl oder vllt auchs chon die Länderkennzeichnung, und dann versuche ich die weiter zubauen,

Bis Jetzt kann ich zum Beispiel aus 052741660

+49 5274 / 166 - 0

aber es gibt da noch einige Probleme mit nummern die nur 3 zeichen in der Vorwahl hat

[MadMetzger]

Haben die Telefon-nummern denn ein bestimmtes Format, aus dem du konvertieren willst? Oder lässt sich das auf bestimmte Formatierungen einschränken?

[m3]

Liste der Länder-Vorwahlen:
http://www.kropla.com/dialcode.htm
http://en.wikipedia.org/wiki/List_of_country_calling_codes

Damit sollten sich +43, 0043, etc. herausfiltern lassen.

Und auf
http://www.bundesnetzagentur.de/enid/1c8898cd0fe8ca657dc567bbdf5d5a62,0/Verzeichnisse/Losgroe_enverzeichnis_ONB_1gi.html
gibts ein Verzeichnis aller Ortsvorwahlen Deutschlands, damit solltest Du auch diese eigentlich erkennen können.

[flaite]

Das spannende an dem Parser (find ich) besteht gerade darin, dass er robust auf eine möglichst große Variabilität reagiert, die sich Anwender ausdenken.
Also er sollte.
+49 (0)233 644480
00492333644480
0223464480
0 22 34 6 44 80
02234 64480
alle klaglos verarbeiten können.

Hier gibts auch ein paar Beispiele und Ansatzpunkte für eine solche RegEx, die man vermutlich so in Java kopieren könnte und absolut LS2J fähig wäre, also in LotusScript code wie QuerySave einbindbar ist. 
http://regexlib.com/DisplayPatterns.aspx?categoryId=7&cattabindex=2

Gruß Axel

[diali]

es gibt für die Telefonnummern ein kanonisches Format, welches auch CTI-Anwendungen verwenden. Der Aufbau ist wie folgt:
+[Landeskennzahl] ([Ortsnetzkennzahl]) [Rufnummer]
* zwischen Landeskennzahl, Ortskennzahl und Rufnummer muss jeweils ein Leerzeichen stehen
* die Ortsnetzkennzahl muss ohne führende Null eingetragen werden

siehe auch Wikipedia, wobei die nichts von den Klammern wissen. Bei unserer Anlagensoftware ist in der Doku die Klammer erwähnt.

[bikerboy]

Ich freue mich über die rege Beteiligung,

@Axel genauso sollte es sein, man einfach eine Nummer reingeben und parst sie dann ins richtige Format, zwar ist es in dem Konkreten Beipspiel fast immer passend, aber halt nicht immer. Und kann ich den Code ja auch in anderen Anwendungen zur Anwendung kommen lassen.(Dürfte im Sinne von Bernhardt sein )

[bikerboy]

hier ein erster Versuch :

Code

Sub Click(Source As Button)
	
	Dim ws As New NotesUIWorkspace
	Dim Proc As NotesDocument
	
	Set Proc = ws.CurrentDocument.Document
	
	Dim Phone List As String
	Dim findArray(9) As String
	Dim replaceArray(9) As String
	Dim strArea As String
	Dim strCountry As String
	Dim strLine As String
	Dim strExtension As String
	
	Dim strCheckArea As String
	Dim strCheckLine As String
	Dim strCheckNewArea As String
	Dim strCheckNewLine As String
	Dim strCheckCountry As String
	Dim strCheckNewCountry As String
	
	Dim intLengthComplete As Integer
	Dim intLengthLastPart As Integer
	
	findArray(0) = " "    
	findArray(1) = "/"
	findArray(2) = "\"
	findArray(3) = "-"
	findArray(4) = "("
	findArray(5) = ")"
	findArray(6) = "|"	
	findArray(7) = "~"
	findArray(8) = "#"
	findArray(9) = "'"
	
	replaceArray(0) = " "
	replaceArray(1) = " "
	replaceArray(2) = " "
	replaceArray(3) = " "
	replaceArray(4) = " "
	replaceArray(5) = " "
	replaceArray(6) = " "
	replaceArray(7) = " "
	replaceArray(8) = " "
	replaceArray(9) = " "
	
	
	tmpPhone = Replace(Proc.ParserFieldComplete(0),findArray , replaceArray)
	
	DelimCount = 1
	
	Erase Phone
	
	If tmpPhone <> "" Then
		varPhone = Split(tmpPhone, " ")
		
		If Ubound(varPhone) = 0 Then
			
			strCountry = Left(varPhone(0),1)
			
			If strCountry = "+" Then 
				Proc.ParserFieldCountry= Left(varPhone(0),3)
			Else
				Proc.ParserFieldCountry= Left(varPhone(0),1)
			End If
			
			intLenthComplete = Len(varPhone(0))
			intLengthLastPart = Len(Proc.ParserFieldCountry(0))
			
			varPhone(0) = Right(varPhone(0),(intLenthComplete  - intLengthLastPart))
			strArea = Left(varPhone(0),4)
			
			Proc.ParserFieldArea = strArea
			
			intLengthLastPart = Len(Proc.ParserFieldArea(0))
			intLenthComplete = Len(varPhone(0))
			varPhone(0) = Right(varPhone(0),(intLenthComplete  - intLengthLastPart))
			
			strExtensionCheck = Right(varPhone(0),1)
			
			If strExtensionCheck = "0" Then
				Proc.ParserFieldLine = Left(varPhone(0),Len(varPhone(0))-1)
				Proc.ParserFieldExtension = Right(varPhone(0),1)
			Else
				Proc.ParserFieldLine = varPhone(0)
			End If
			
		Elseif Ubound(varPhone) = 1 Then
			
			Call Proc.ReplaceItemValue("ParserFieldCountry",varPhone(0))
			Call Proc.ReplaceItemValue("ParserFieldArea", Left(varPhone(1),4))
			Call Proc.ReplaceItemValue("ParserFieldLine",Right(varPhone(1),Len(varPhone(1))-4))
			If Right(Proc.ParserFieldLine(0),1) = "0" Then
				Call Proc.ReplaceItemValue("ParserFieldExtension",Right(Proc.ParserFieldLine(0),1))
				Call Proc.ReplaceItemValue("ParserFieldLine",Left(Proc.ParserFieldLine(0),Len(Proc.ParserFieldLine(0))-1))
			End If 
		Elseif Ubound(varPhone) = 2 Then
			
			Call Proc.ReplaceItemValue("ParserFieldCountry",varPhone(0))
			Call Proc.ReplaceItemValue("ParserFieldArea",varPhone(1))
			Call Proc.ReplaceItemValue("ParserFieldLine",varPhone(2))
			If Right(Proc.ParserFieldLine(0),1) = "0" Then
				Call Proc.ReplaceItemValue("ParserFieldExtension",Right(Proc.ParserFieldLine(0),1))
				Call Proc.ReplaceItemValue("ParserFieldLine",Left(Proc.ParserFieldLine(0),Len(Proc.ParserFieldLine(0))-1))
			End If 
			
		Elseif Ubound(varPhone) = 3 Then
			
			Call Proc.ReplaceItemValue("ParserFieldCountry",varPhone(0))
			Call Proc.ReplaceItemValue("ParserFieldArea",varPhone(1))
			Call Proc.ReplaceItemValue("ParserFieldLine",varPhone(2))
			Call Proc.ReplaceItemValue("ParserFieldExtension",varPhone(3))
			
			
		Elseif Ubound(varPhone) = 4 Then
			
			Call Proc.ReplaceItemValue("ParserFieldCountry",varPhone(0))
			Call Proc.ReplaceItemValue("ParserFieldArea",varPhone(1)+ varPhone(2))
			Call Proc.ReplaceItemValue("ParserFieldLine",varPhone(3))
			Call Proc.ReplaceItemValue("ParserFieldExtension",varPhone(4))
			
			
		Elseif Ubound(varPhone) = 5 Then
			
			Call Proc.ReplaceItemValue("ParserFieldCountry",varPhone(0))
			Call Proc.ReplaceItemValue("ParserFieldArea",varPhone(1) + varPhone(2))
			Call Proc.ReplaceItemValue("ParserFieldLine",varPhone(3) + varPhone(4))
			Call Proc.ReplaceItemValue("ParserFieldExtension",varPhone(5))
			
			
		End If 	
	End If
	
	' Validieren der Daten 
	
	'Prüfen der Vorwahl
	
	strCheckArea = Proc.ParserFieldArea(0)
	strCheckLine = Proc.parserFieldLine(0)
	
	If Len(strCheckArea) > 4 Then 
		strCheckNewArea = Left(strCheckArea,4)
		strCheckNewLine = Right(strCheckArea,(Len(strCheckArea)-Len(strCheckNewArea))) +strCheckLine 
		
		If Left(strCheckNewLine,1) = "0" Then
			strCheckNewLine = Right(strCheckNewArea,1) + strCheckNewLine
			strCheckNewArea = Left(strCheckNewArea,Len(strCheckNewArea)-1)
			If Left(strCheckNewLine,1) = "0" Then
				strCheckNewLine = Right(strCheckNewArea,1) + strCheckNewLine
				strCheckNewArea = Left(strCheckNewArea,Len(strCheckNewArea)-1)
				If Left(strCheckNewLine,1) = "0" Then
					strCheckNewLine = Right(strCheckNewArea,1) + strCheckNewLine
					strCheckNewArea = Left(strCheckNewArea,Len(strCheckNewArea)-1)
					If Left(strCheckNewLine,1) = "0" Then
						strCheckNewLine = Right(strCheckNewArea,1) + strCheckNewLine
						strCheckNewArea = Left(strCheckNewArea,Len(strCheckNewArea)-1)
					End If
				End If
			End If
		End If
		
		Proc.ParserFieldArea = strCheckNewArea
		Proc.ParserFieldLine = strCheckNewLine
		
	End If
	
	
	PhoneNumber = Proc.ParserFieldCountry(0) + " " +Proc.ParserFieldArea(0) + " / "+ Proc.ParserFieldLine(0) + " - " +Proc.ParserFieldExtension(0)
	Call Proc.Replaceitemvalue("ParserFieldComplete", PhoneNumber)
End Sub

[guesswho]

sorry Robert, würd dir gern helfen, aber mir ist grad übel

[flaite]

Wochenende schaff ichs vielleicht.
Ist ok, wenn das im Sinne der Aufgabenstellung ist.
Aber eigentlich sollte man dafür echt regex nehmen.
Ist schon sehr viel code im Verhältnis zur Aufgabe. 
Parsen kann beliebig komplex werden.

 

[bikerboy]

sorry Robert, würd dir gern helfen, aber mir ist grad übel

Warum überl ist der Code so beschissen ?

[guesswho]

Hallo Robert,

nein, das würde ich niemals sagen. Ich sag mal so, es wird mir einfach schlecht, wenn sich Variablen und Arrays ständig wiederholen, wenn (fast) gleiche Kostrukte so oft auftauchen. Das geht definitiv einfacher, lesbarer und besser wartbar. Aber vielleicht bist du noch am Anfang und willst das noch überarbeiten. Dann mach das später.

Allerdings: das ist dann wie neu programmieren....

mal ganz einfach

For i = 1 to 9
   replaceArray(i) = " "
next

wenn dein Array auf 15 anwächst, dann machst du aus 9 eben 15, aber auch das ist noch zu umständlich, was soll man denn mit leeren Inhalten in einem Array ?!

Da solltest oder könntest du wahrlich noch manches optimieren. Ich kann das imer noch nicht von oben nach unten durchlesen. Nicht böse gemeint, aber ganz ehrlich...

Ist nicht böse gemeint, nur ein Hinweis von meiner Wenigkeit.
Jo

[bikerboy]

Ja geb dir ja recht, habe auch elegantere Lösungen,


das war ja auch nur der erste Anlauf Quick and Dirty.

Mal sehen wann ich vom Chef Zeit dafür bekomme

[guesswho]

Robert,

dachte ich mir, a-bär denk immer dran: The Problem with quick an dirty is that the Dirty remains much longer than the Quick... 

Edit: Ein Chef ist nicht dafür da, Zeit zu geben. Tut ein Chef auch nie. Da musst du klar sagen, hab ich Zeit, dann mach ich das gern und gut, hab ich die Zeit nicht, dann sabbel ich das hin. Oder Kampfstrategie: Entweder ich krieg Zeit für das Projekt (und den Lerneffekt!!!) oder ich kann das nicht umsetzen! Wenns dann klemmt, Finger raus, Chef fällig. Tschüss Chef, vielleicht kommt ja was Besseres nach...

Jo

[LN4ever]

Lieber Radlbub,

Telefonnummern parsen, um sie in ein standardisiertes Format zu bringen, ist sehr sinnvoll, weil man damit dann z.B. CTI-Anbindungen von Applikationen realisieren kann. Aber welchen Sinn es machen soll, Telefonnummern in mehrere Felder zu zerschnippseln, kann und will mir nicht einleuchten. Ich habe nämlich seit Jahren eine Anwendung, in der der Programmierer genau diese Zerteilung vorgesehen hat, an die sich die Anwender aber beim Ausfüllen nicht halten.

Jede Einzelinformation der zerteilten Telefonnummern findest du normalerweise auch in anderen Feldern - und dort viel besser (Land, Ort).

Hintergrund geparster Nummern für eine Telefonanbindung ist doch die Frage, wie viele Teile der Nummer du in welchem Umfeld für einen bestimmten Anrufer nicht mitwählen mußt. Und das kannst du am einfachsten ermitteln, wenn die komplette Telefonnummer in einem einzigen Feld steht.

Überleg es dir gut, ob du wirklich 4 Felder füllen willst. Mein Tip: Parsen Ja, zerschnippseln Nein.

Gruß

Norbert

[diali]

also zum Thema CTI, es spielt keine Rolle für CTI wo ich mich befinde und wo der angerufene sich befindet. Man übergibt immer die komplette Rufnummer inkl. der Landesvorwahl. Damit kann die Anwendung auch länderübergreifend verwendet werden und sich (sofern richtig konfiguriert) die Telefonanlage darum kümmert, ob es sich um anlageninterne Anrufe oder externe Anrufe handelt und diese richtig routet.

Im Handy gibt man auch nur die Nummern im internationalen Format ein, weil sonst die Telefonnummern im Ausland nicht funktionieren. Wer hier die Nummern falsch eingetragen hat, muss entweder im AUsland jedesmal die Nummer von Hand wählen oder seinen Einträge berichtigen. Genau so verhällt es sich bei einer Anwendung, die falsch bedient wird.

In einigen meiner Anwendungen zerlege ich die Telefonnummer bei festnetzanschlüssen auch in 4 Zahlenfelder (Landeskennung, Ortsvorwahl, Anlageneinwahl, Durchwahl). Dabei handelt es sich um reine Zahlenfelder und außer dem Anlageneinwahlfeld um Pflichtfelder. Landeskennung und Ortsvorwahl kommen dabei aus einer zentralen Datenbank.

Vorteil die Nummer kann für den Anwender in jeder Form formatiert angezeigt werden und es schleichen sich weniger Schreibfehler ein. Außerdem muss die Nummer dann nicht mehr geparst werden.