hier ein kleiner Code der sich leicht erweitern lässt um Ländervorwahlen an FAX & Telefon Nummer zu ergänzen.
Gerne könnt ihr das ganze erweitern...
Code: Alles auswählen
Procedure.s System_MakeLand(Land$)
Select LCase(Land$)
; Deutschland
Case "ger", "de", "deutschland", "d", "deu", "germany"
ProcedureReturn "D"
; Österreich
Case "austria", "österreich", "östereich", "au", "a"
ProcedureReturn "A"
;Schweiz
Case "schweiz", "swiss", "ch", "c"
ProcedureReturn "C"
; Case "holland", "niederland", "niederlande", "nl", "nederland", "n"
; ProcedureReturn "N"
EndSelect
EndProcedure
Procedure.s System_MakeVorwahl(PFNummer$, Land$, Trennzeichen$ = "-")
If FindString(PFNummer$, "+", 0) Or FindString(PFNummer$, "00", 0)
ProcedureReturn PFNummer$
EndIf
Select System_MakeLand(Land$)
Case "D"
ProcedureReturn "+49" + Trennzeichen$ + PFNummer$
Case "A"
ProcedureReturn "+43" + Trennzeichen$ + PFNummer$
Case "C"
ProcedureReturn "+41" + Trennzeichen$ + PFNummer$
EndSelect
ProcedureReturn PFNummer$
EndProcedure
Debug System_MakeVorwahl("012345-6789", "DE")
Debug System_MakeVorwahl("012345-6789", "Österreich")
Debug System_MakeVorwahl("012345/6789", "Germany","/")
Debug System_MakeVorwahl("012345-6789", "D")
Debug System_MakeVorwahl("+49-012345-6789", "Deutschland")
Debug System_MakeVorwahl("+49-012345-6789", "Schweiz") ; Nummer bleibt bestehen auch wenn es sich um eine bereits Deutsche Vorwahl handelt