void ReverseStr(char *psz)
{
  char *c = psz, a;
  while(*c) c++; // POUSSE c A LA FIN DE psz
  while(psz < --c) {a = *psz; *psz++ = *c; *c = a;}
}

Private Function ReverseStr(sChaine As String) As String 
     Dim i As Integer 
     ReverseStr = vbNullString 
     For i = Len(sChaine) To 1 Step -1 
         ReverseStr = ReverseStr & Mid$(sChaine, i, 1) 
     Next i 
 End Function 
 '
 'à noter que cette fonction existe déjà dans VB :
 ReverseStr = StrReverse(sChaine)

function ReverseStr ($sString) {
    return strrev ($sString);
}

public static String reverseStr(String str)
{
  return new StringBuffer(str).reverse().toString();
}

<cffunction name="ReverseStr" hint="Inverser une chaîne de caractères">
 <cfargument name="sChaine" type="string" required="yes">
 <cfreturn Reverse(sChaine)>
</cffunction>

function reverseStr (sString) {
 var reg=new RegExp("", "g");
 var aString = sString.split (reg);
 var cpt = aString.length;
 var sNewString = '';
 for (var i = cpt - 1; i >= 0; i--) {
  sNewString += aString[i];
 }
 return sNewString;
}

Dim chaine As String = "hello world !"
Dim chaineInverse As String = StrReverse(chaine)

function ReverseStr(str) {
  return str.split('').reverse().join('');
}

public unsafe string Reverse( string s )
{
    fixed ( char* p = s )
    {
        char* pS = p;
        char* pC = p + ( s.Length - 1 );
        char tmp;

        while( pS < pC )
        {
            tmp = *pS; *pS = *pC; *pC = tmp; pC--; pS++;
        }
    }

    return s;
}

public string Reverse( string s )
{
    char[ ] tab = s.ToCharArray( );
    Array.Reverse( tab, 0, tab.Length );
    return new string( tab );
}

DECLARE @Variable AS VARCHAR(50)

SET @Variable = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

SELECT
   REVERSE(@Variable)
AS INVERSION;

 

{ ReverseString simply reverses the given string }

function ReverseString(const AText: string): string;
function AnsiReverseString(const AText: AnsiString): AnsiString;
Utilisation
Uses StrUtils;
Begin
  NewStr := ReverseString( StringToReverse);
End;

FONCTION sInverserChaine(LOCAL sChaine)
iInd est un entier
sRetour est une chaine
POUR iInd=Taille(sChaine) A 1 PAS -1
   sRetour+=sChaine[[iInd]]

FIN

Renvoyer sRetour

 

function ReverseStr(str) {   return str.split("").reverse().join(""); } 

>>> phrase = "Les sanglots longs des violons de l'automne, blessent mon coeur d'une langueur monotone"
>>> phrase[::-1]
"enotonom rueugnal enu'd rueoc nom tnesselb ,enmotua'l ed snoloiv sed sgnol stolgnas seL"

proc ReverseStr {s} {return [string reverse $s]}