<% ' Merci Aurelien !
Function invArray(ByVal inArray)
' Cette function renvoie un Array inverse
' - inArray : Array a inverser
' Declarations des variables
Dim laTaille
Dim i
Dim outArray()
' On recupere la taille de inArray
laTaille = UBound(inArray)
' On redimensionne l'Array de retour
ReDim outArray(laTaille)
' On boucle sur l'Array
For i = LBound(inArray) to UBound(inArray)
' On inverse l'ordre
outArray(laTaille - i) = inArray(i)
Next
' On retourne l'Array inverse
invArray = outArray
End Function
tableau2 = invArray(tableau)
%> |
| <?
$tableau2=array_reverse($tableau);
?> |
|
