Redimensionner un tableau ASP à deux dimensions sans perdre les données

Un tableau ASP peut être redimensionné

Voilà une solution aux erreurs suivantes « This array is fixed or temporarily locked » ou « Tableau fixe ou temporairement verrouillé » sur le redimensionnement d’un tableau à deux dimensions :

Dim a
Redim a(3,0)
au lieu de
Dim a(3,0)
 
Il  faut dimensionner le tableau à une dimension, puis lui ajouter la deuxième avec un redim
ensuite, on peut faire
 
<%
Dim a
Redim a(3,0)
‘Dim a(3,0)

fc = split(« toto,titi,tutu,tyty », », »)
For Each f In fc
Redim Preserve a(3,UBound(a,2)+1)
a(1,UBound(a,2)) = f
a(2,UBound(a,2)) = f
a(3,UBound(a,2)) = f
Next
%>

Dim a ‘Déclaration du tableau
Redim a(3,0) ‘redimensionnement du tableau

fc = split(« toto,titi,tutu,tyty », », »)
For Each f In fc
   Redim Preserve a(3,UBound(a,2)+1) ‘redimensionnement de la dernière dimension uniquement
   a(1,UBound(a,2)) = f
   a(2,UBound(a,2)) = f
   a(3,UBound(a,2)) = f
Next

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *