Admin
Admin
Nombre de messages: 48
Age: 17
Localisation: France
Date d'inscription: 03/05/2007
 |  Sujet: Fonction : textInverse(Avant)  Sam 5 Mai - 10:19 | |
| Description :Voici une fonction que j'ai inventer qui retourne la chaine de character mis en attribut a l'envers. ex : "CodeCréatif" devient "fitaérCedoC" | Code: | Function Cryptage_F01(ByVal Avant As String) As String
Dim Après As String = ""
Dim i As Integer = 0
Dim nbCara As Integer = Len(Avant)
For i = 0 To nbCara - 1
Après = Après + Mid(Avant, nbCara - i, 1)
Next
Return Après
End Function |
Explications :
La 1e ligne créée la variable "Aprés" où sera stoké le résultat.
La 2e ligne initialise la variable pour la boucle for qui va suivre.
La 3e ligne créée la variable "nbCara" où est stoké le nombre de charactère de la chaine à modifier.
La boucle for...next va créer la chaine de sortie en sachant que :
la fonction Mid(chaine, x, y) récupère dans la chaine les y charactères à partir du x eme charactère |
|
