Fonction strreverse de vb 6 pour vb4/5 et lotusscript

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 352 fois - Téléchargée 30 fois

Contenu du snippet

Utilisation :
Debug.Print StrReverse "Salut"

Résultat :
tulaS

Source / Exemple :


Public Function StrReverse(ByVal sString As String) As String

  ' Pour les version 4 et 5 de VB
  ' Fonction StrReverse de VB 6

  Dim i As Long
  Dim nLen As Long
  Dim sBuffer As String

  nLen = Len(sString)
  For i = nLen To 1 Step -1
    sBuffer = sBuffer & Mid$(sString, i, 1)
  Next i

  StrReverse = sBuffer
End Function

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_Warny

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.