PureBasic

Code : Tout sélectionner

; un tout petit prog qui écrit à l'envers parmi d'autres 
; plus ou moins ludiques... avec purebasic mac. 

;-------------------------------------------------------------
;INVERSION                                                                                                                                              
Global invMinus$= "ɐqɔpǝɟɓɥıՐʞյɯuodbɹsʇnʌʍxɦz"                                                   
Global invMajus$= "ꓯꓭꓛꓷꓱꓞꓨHIꓩꓘꓶWNOꓒÒꓤSꓕꓵꓥMX⅄Z"  

Procedure.s Inversion(text$)
  Define Resultat$, invCAR$, CAR$, Valeur.c, iText.c
  If text$=#Empty$: ProcedureReturn "ɓuıɥʇou":EndIf 
  
  For iText = 1 To Len(text$)
      CAR$= Mid(text$, iText, 1): Valeur= Asc(CAR$): invCAR$= ""
        
          Select Valeur
          Case $41 To $5A ;UPPERCASE
          invCAR$= Mid(invMajus$, Valeur-$40, 1)
          
          Case $61 To $7A ;lowercase
          invCAR$= Mid(invMinus$, Valeur-$60, 1)                                                  
          
          Case Asc(",") ;virgule
          invCAR$= "'"
          Case Asc("'") ;apostrophe
          invCAR$= ","
          Case Asc("?") ;interrogation
          invCAR$= "¿"
          Case $20,$2E,$2D;chars do not change
          invCAR$= CAR$
          
          Default ;ANOMALIE
          invCAR$= " " 
          
          EndSelect        
      Resultat$= invCAR$+ Resultat$
  Next iText
  
  ProcedureReturn Resultat$
EndProcedure 
;-------------------------------------------------------------
;exemple
Debug Inversion("I don't care if the WORLD turns upside down") 
; ;uʍop ǝpısdn suɹnʇ ꓷꓶꓤOM ǝɥʇ ɟı ǝɹɐɔ ʇ,uop I
;-------------------------------------------------------------

Code : Tout sélectionner

Global invMinus$= "ɐqɔpǝɟɓɥᴉՐʞյɯuodbɹƨʇnʌʍxɦz"                                                   
Global invMajus$= "ꓯꓭꓛꓷꓱꓞꓨHIꓩꓘꓶWИOꓒÒꓤƧꓕꓵꓥMX⅄Z"