PureBoard

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

Code: Alles auswählen

Case "Deutschland", "de", "germany" ;...