Bannière

Menu

  Accueil
  Forum (Partagé)

PureBasic

  Présentation
  Tutoriaux
      Mode Console
      Mode Screen
      Mode Window
      Autres
  Téléchargements

3D Games-Creator

  Présentation
  Tutoriaux
  Téléchargements

Autres

  Téléchargements
  Partenaires
  Liens
  Contact
  Livre d'Or
  News Letter

Snippet

      Voici une petit code qui montre comment inverser une chaine de caractères et comment mettre une chaine de caractères en majuscules.


; ------------------------------------------------------------
;
; PureBasic - Snippet (2) - String
; - inverse("texte") retourne le texte à l'envers
; exemple inverse("Purebasic") retourne "cisaberuP"
; - text("texte") retourne la chaine comme ceci : TeXtE
;
; (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

 

© Oliv.fr.fm - Design de PourTaPageWeb (Visitez le site)