PureBasic

Code : Tout sélectionner

; PureBasic - Snippet (2) - String
;  inverse("texte") retourne le texte à l'envers
;  exemple inverse("Purebasic") retourne "cisaberuP"
;  text("texte") retourne la chaine comme ceci : TeXtE
;
;  Rien d'impressionnant, mais j'commence le purebasic sa fait 2 jours
;
; (c) 2004 - Hatebreed Studio
;

Procedure.s inverse(chaine.s)
  z.s = ReplaceString(chaine, Chr(32), Chr(160)) : i.w = Len(z)
  While i > 0
    s.s = s + Mid(z, i, 1)
    i.w = i - 1
  Wend
  ProcedureReturn s
EndProcedure

Procedure.s text(chaine.s)
  i.w = 1
  While i <= Len(chaine)
    z.s = ReplaceString(chaine, Chr(32), Chr(160))
    e.s = e + UCase(Mid(z, i, 1)) + Mid(z, i + 1, 1)
    i.w = i + 2
  Wend
  ProcedureReturn e
EndProcedure

Code : Tout sélectionner

 Procedure.s Verlan(chaine$)
  long=Len(chaine$)
  Droite$=Right(chaine$,Long/2)
  If (Long/2)*2=Long
;    Chaine paire
    Gauche$=Left(chaine$,Long/2)
  Else
;    Chaine impaire
    Gauche$=Left(chaine$,Long/2+1)
  EndIf
  F$=Droite$+"-"+Gauche$
  ProcedureReturn F$
EndProcedure
Debug Verlan("Dobro")
Debug Verlan("Lava")
End