Comment inverser une chaine de caractères en 5 lignes.

Contenu du snippet

Vous cherchez à inverser une chaine de caractères rapidement et en 5 lignes (+2 pour la déclaration de la fonction).

Je sais, c'est une fonction assez basique, mais ce que j'aime avec VB.NET, c'est que l'on peut faire de la notation façon C++. Regardez ci-dessous pour voir.

En gros, je prépare différentes sources pour faire une suite de fonction pour crypter vos messages MSN, ICQ, etc... ou aussi vos mails. ;)
Cette fonction est la première d'une grande série. Enfin, j'espère :p

Source / Exemple :


Public Function InverseStr(ByVal Chaine As String)
        'Nombre de caractère de la chaine et position du pointeur dans celle-ci
        Dim NbCar As Integer = Len(Chaine)
        'La boucle d'inversion
        While NbCar > 0 'Tant que le pointeur est > à 0
            'Caractère corespondant à la position du pointeur et transfert dans
            'la chaine de retour qui est la fonction elle-même.
            InverseStr += Mid(Chaine, NbCar, 1) 'Replacement des caractères
            NbCar -= 1 'Décrémentation façon C++
        End While
    End Function

Conclusion :


Vous avez juste à faire appel à la fonction "InverseStr" et en retour de cette fonction, vous aurez votre chaine inversée.

Par exemple : ChaineInversee = InverseStr("1234567890")
InverseStr retourne "0987654321" donc,
ChaineInversee = "0987654321"

Bon OK, l'exemple est de trop ;) Mais je préfère mettre des exemples. C'est plus parlant.

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.