Newest functions Upload a function Leave a tip My account

There are 2,523 functions in this library.

chTelNrTrimmen ( FonNrWieEingegeben )

Formats Swiss Telephone Numbers

  Be the first to rate this function Log in to vote

Raffa Hochstrasser - Show more from this author TCM Aarau https://www.tcmaarau.ch

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* This custom function RECOGNIZES AND TRIMS SWISS TELEPHONE NUMBERS into an easy-to-read format - Any phone number with swiss prefix will be returned formatted in 3 groups. E. g.: 079 888 77 66, 0800 88 77 66, 062 888 77 66 - Any other numbers will be returned as entered - Any non-digit character will be removed Create a backup-field with an exit script trigger, that stores the original number! 2022-12-05, raffa, tcmaarau, www.tcmaarau.ch */ SetzeVar ( [ fo = FonNrWieEingegeben; // Nummer wie eingegeben f = FilterZeichen (fo;"0123456789"); // Nummer ohne Leerschläge und Sonderzeichen fRe = ZeichenRechts (f;9) // Nummer ohne Präfix ] ; // Prüfen, ob Schweizer-Tel-Format Falls ( (ZeichenLinks ( f; 2 ) = "41" UND Länge (f) = 11) ODER (ZeichenLinks ( f; 4 ) = "0041" UND Länge (f) = 13) ODER (ZeichenLinks ( f; 3 ) = "079" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "076" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "077" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "078" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "021" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "022" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "024" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "026" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "021" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "022" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "024" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "026" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "027" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "031" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "032" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "033" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "034" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "041" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "043" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "044" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "022" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "052" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "055" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "056" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "061" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "062" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "071" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "081" UND Länge (f) = 10) ODER (ZeichenLinks ( f; 3 ) = "091" UND Länge (f) = 10) ; // Präfix ersetzen "0" & // Nummer in 3er und 2er Blöcke gruppieren ZeichenLinks ( fRe ;2 ) & TextGröße ( " " ;8) & //1. Gruppe (3er Block) ZeichenMitte ( fRe ;3 ;3) & TextGröße ( " " ;8) & //2. Gruppe (3er Block) ZeichenMitte ( fRe ;6 ;2) & TextGröße ( " " ;8) & //3. Gruppe (2er Block) ZeichenRechts ( f ;2 ) //4. Gruppe (2er Block) ; // 0800er-Nr (ZeichenLinks (f; 4 ) = "0800" UND Länge (f) = 10); "0" & ZeichenLinks ( fRe ;3 ) & TextGröße ( " " ;8) & //1. Gruppe (4er Block) ZeichenMitte ( fRe ;4 ;2) & TextGröße ( " " ;8) & //2. Gruppe (2er Block) ZeichenMitte ( fRe ;6 ;2) & TextGröße ( " " ;8) & //3. Gruppe (2er Block) ZeichenRechts ( f ;2 ) //4. Gruppe (2er Block) ; // Falls nicht Schweizer-Tel-Format fo ) ) Click to copy

This custom function RECOGNIZES AND TRIMS SWISS TELEPHONE NUMBERS into an easy-to-read format

- Any phone number with swiss prefix will be returned formatted in 3 groups. E. g.: 079 888 77 66, 0800 88 77 66, 062 888 77 66
- Any other numbers will be returned as entered
- Any non-digit character will be removed

Create a backup-field with an exit script trigger, that stores the original number!

 

Comments

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 20 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: