Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: MiPa am 28.01.07 - 19:45:35

Titel: Suche Script um Telefonrufnummer zu konvertieren
Beitrag von: MiPa am 28.01.07 - 19:45:35
Hallo,

hier im Forum gab es mal einen Hinweis auf ein Script von W.Flamme mit einem Link auf:
http://www.sns1.de/partner/flamme/wflamme.nsf/ViewCat?ReadForm&View=News&Cat=Blog:News&Start=1&Count=10

um eine Beliebige Telefonnummer +49 (0) 43284 / 2323  od. 043284 / 2323  in eine "konforme" Nummer 04328423232 zu wandeln

Hat irgend jemand den passenden Formel- oder Script-Code noch?

Vielen Dank
Michael


Titel: Re: Suche Script um Telefonrufnummer zu konvertieren
Beitrag von: Axel am 29.01.07 - 08:11:53
Das Sript habe ich leider nicht, aber hier mal zwei Formelzeilen als Ausgangsbasis:

temp := @ReplaceSubstring(Telefonnummer; "-":"/":"(":")":" "; "");
result := @ReplaceSubstring(temp; "+49"; "0");


Axel
Titel: Re: Suche Script um Telefonrufnummer zu konvertieren
Beitrag von: klaussp am 29.01.07 - 08:33:53
Hallo eknori,

ich hätte zur Umwandlung noch folgende in LS zu bieten:

Code
' Rufnummer überprüfen und umwandeln
If sPhoneNumber <> "" Then
 sPhoneNumber = ReplaceSubstring(sPhoneNumber,"/","")		
 sPhoneNumber = ReplaceSubstring(sPhoneNumber,"-","")				
 sPhoneNumber = ReplaceSubstring(sPhoneNumber," ","")				
 If Left$(sPhoneNumber,1) = "0"And Left$(sPhoneNumber,2) <> "00" Then  
     sPhoneNumber = "00"+Mid$(sPhoneNumber,2,24)
     If Left$(sPhoneNumber,3) = "+49" Then sPhoneNumber = "00"+Mid$(sPhoneNumber,4,24)
		If Left$(sPhoneNumber,1) = "+" Then sPhoneNumber = "00"+Mid$(sPhoneNumber,2,24)
	End If
Titel: Re: Suche Script um Telefonrufnummer zu konvertieren
Beitrag von: aki am 29.01.07 - 08:43:53
Hi,

schau mal in die Contacts-Maske in Deinem persönlichen Adressbuch ( names.nsf ).

Die Entwickler von Lotus liefern Dir schon die gewünschte Funktionalität.

Im Adressbuch ist sie allerdings nicht aktiv und Du musst das Telefonnummern-Zielformat noch an Deine individuellen Wünsche anpassen.

Gruß,
aki