Re: Scramble_String
Publié : mer. 13/janv./2016 20:58
Merci Dobro,
En effet cela peut s'avérer utile.
@++
En effet cela peut s'avérer utile.
@++
:
Code : Tout sélectionner
Procedure.s scramble_string3(txt.s)
; by Demivec
Protected long = Len(txt.s)
Dim liste.c(long)
PokeS(@liste(0), txt.s)
RandomizeArray(liste.c(), 0, long - 1)
ProcedureReturn PeekS(@liste.c())
EndProcedure