Snippet

[HateBreed]

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

[Chris]

Chouette, ce truc! Surtout la procedure Inverse().

J'ai essayé tout un tas de mots, c'est imprononçable !

Chris

[Backup]

faudrai couper le mot en 2 avant d'inverser les 2 partie cela crerai du "Verlan"

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

en collaboration avec lavalava

[HateBreed]

[Oliv]

normalement je le met en ligne demain ou samedi, désolé de ne pas le faire plus tôt

[HateBreed]

ok thx

super ton site continue

[nico]

Je ne vois pas bien pourquoi tu utilises ceci:

z.s = ReplaceString(chaine, Chr(32), Chr(160))

[Oliv]

merci, par contre je n'ai ps compris si tu veux que je le mette sur mon site, celui de codesFR ou les 2

[HateBreed]

oui mes le sur les 2 mais stp

hé codesfr ses ton site aussi ?

[Oliv]

Désolé je n'ai pas encore pus le faire, (ça fait 2 semaines que je ne suis pas venu sur le forum d'ailleurs, 105 nouveaux messages quand je reviens , IE plante et je dois tout regarder catégorie par catégorie ), CodesFR est une inittative du soldat inconnu qu'il a fait presque tout seul mais quand j'ai le temps je rajoute des codes