Discussion :

[shinrei]

Bonjour,

Voila j'aurai besoin de connaitre la syntaxe(si il existe sous asp) qui permet de creer une session à 2 dimensions car j'ai besoin de stocker plusieurs produits dans un un panier(e-commerce).

J'ai teste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Session("panier")("produit") = produit_id

mais ca ne passe pas.


Merci pour votre aide,

[pc75]

Salut,

Tu peux créer une variable de session à 2 dimensions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Redim Preserve panier(3, 2)
panier(1, 1) = produit_1
panier(1, 2) = Quantite_1
panier(2, 1) = produit_2
panier(2, 2) = Quantite_2
panier(3, 1) = produit_3
panier(3, 2) = Quantite_3
 
Session("panier") = panier

[shinrei]

Et si on connait pas au départ le nombre de produits ajoutés?si on met (,) ca ferait une erreur?!
A quoi sert la fonction preserve?
Et comment fait-on pour afficher ce qu'il y a dans cette session?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
response.write Session(1,1) -> marche pas
response.write Session("panier")(1,1) -> marche pas non plus
response.write Session("panier") -> m'affiche rien

Merci,

[pc75]

Re,

Un peu de lecture (extrait de MSDN) :

ReDim, instruction


Instruction utilisée auniveau procédure pour réattribuer de l'espace de stockage auxvariables de tableaux dynamiques.

Syntaxe

ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .

La syntaxe de l'instruction ReDim comprend les éléments suivants :

Élément Description
Preserve Facultatif.Mot clé utilisé pour conserver les données d'untableau préexistant dont vous modifiez la taille de la dernière dimension.
varname Nom de la variable. Respecte les conventions standard d'affectation de noms aux variables.
subscripts Dimensions d'une variable tableau. Vous pouvez déclarer jusqu'à 60 dimensions. La syntaxe de l'argument subscripts est la suivante :
[lower To] upper [,[lower To] upper] . . .

La limite inférieure d'un tableau qui n'est pas explicitement fixée dans l'argument lower est déterminée par l'instruction Option Base. Cette limite a la valeur zéro en l'absence d'instruction Option Base.

type Facultatif.Type de données de la variable. Elle peut être de typeByte,Boolean,Integer,Long,Currency,Single,Double,Decimal (non pris en charge actuellement),Date,String (pour les chaînes de longueur variable), String * length (pour les chaînes de longueur fixe),Object,Variant, untype défini par l'utilisateur ou untype objet. Utilisez une clause As type distincte pour chaque variable à définir. Pour une variable de type Variant contenant un tableau, l'argument type décrit le type des éléments du tableau, mais ne permet pas de passer du type Variant à un autre.


Remarques

L'instruction ReDim permet de dimensionner et de redimensionner un tableau dynamique ayant déjà été déclaré de manière formelle par le biais d'une instruction Private, Public ou Dim suivie de parenthèses vides (sans indices de dimension).

Vous pouvez utiliser l'instruction ReDim à plusieurs reprises pour modifier le nombre d'éléments et de dimensions d'un tableau. Cependant, vous ne pouvez changer a posteriori le type d'un tableau à l'aide de l'instruction ReDim, sauf si ce tableau est contenu dans une variable de type Variant. Dans ce cas, le type des éléments est modifiable en utilisant une clause As type, sauf si vous utilisez le mot clé Preserve. Aucun changement de type de données n'est alors possible.

Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau. Vous ne pouvez en aucun cas modifier le nombre de dimensions. Par exemple, si votre tableau n'a qu'une dimension, vous pouvez la modifier puisqu'il s'agit de la dernière et seule dimension. Toutefois, si le tableau compte plusieurs dimensions, seule la taille de la dernière dimension est modifiable si vous souhaitez préserver le contenu du tableau. L'exemple suivant montre comment augmenter la taille de la dernière dimension d'un tableau dynamique sans effacer les données qu'il contient :

ReDim X(10, 10, 10)
. . .
ReDim Preserve X(10, 10, 15)

De même, le mot clé Preserve ne permet de redimensionner un tableau qu'en modifiant la limite supérieure ; toute modification de la limite inférieure provoque une erreur.

Si vous réduisez la taille d'un tableau, les données contenues dans les éléments supprimés sont perdues. Si vous transmettez par référence un tableau à une procédure, ce dernier ne peut être redimensionné au sein de la procédure.

Lors de l'initialisation des variables, une variable numérique prend pour valeur initiale 0, une chaîne de longueur variable prend pour valeur initiale une chaîne de longueur nulle (""), et une chaîne de longueur fixe est remplie de zéros. Les variables de type Variant ont la valeurEmpty à l'initialisation. Chaque élément d'une variable de type défini par l'utilisateur est initialisé comme s'il s'agissait d'une variable distincte. Une variable qui fait référence à un objet ne peut être utilisée avant d'avoir été associée à un objet existant avec l'instruction Set. Tant qu'elle n'est pas associée à un objet, lavariable objet déclarée a la valeur spéciale Nothing, indiquant qu'elle ne fait référence à aucune instance spécifique d'un objet.

Attention L'instruction ReDim a un effet déclaratif si la variable déclarée n'existe pas auniveau module ou auniveau procédure. Si une autre variable portant le même nom est créée ultérieurement, même avec uneportée plus importante, l'instruction ReDim fait référence à cette dernière et n'engendre pas systématiquement d'erreur de compilation, même si Option Explicit est activé. Pour éviter tout conflit de ce type, l'instruction ReDim ne doit pas être utilisée dans un but déclaratif, mais uniquement pour redimensionner des tableaux.

Note Pour redimensionner un tableau contenu dans une variable de type Variant, il vous faut au préalable déclarer explicitement cette variable.

Pour récupérer le contenu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Str_Panier = Session("panier")
For i = 1 to ubound(Str_Panier)
   response.write Str_Panier(i, 1) & " - " & Str_Panier(i, 2) & "<br>"
Next

[shinrei]

Bon ça va faire quelques heures que je galère donc je pose mes questions:

Je voudrai sur ma page de selection des produits:
- connaitre le nb de produits sélectionnés (pour redimensionner mon tableau).
- affectuer le produit_id dans mon tableau.
- envoyer ce tableau en session("pannier").

notes: l'ajout se fait via la methode get sur la meme page.

Page de panier:
- recupérer ma session("pannier").
- connaitre la taille de ce tableau pour bien afficher dans un tableau.

Voici une partie de mon code sur la page liste des produits:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'mon panier serait tab(produit,quantité)
 
'verification si le panier est vide ou pas
if(Request.QueryString("order") <>"") THEN 'verifie si j'ai une methode get
	redim preserve panier(1,2) 'defini une taille par défaut car sinon = indice en dehors de la page???!
	if (Session("panier") <> "") then 'verifie si j'ai une session (tableau)
		dim taille
		taille = Ubound(panier())  'erreur = indice en dehors de la page et Ubound inconnu
		'ici je voudrai ajouter un produit dans mon tableau
	else'sinon c'est la 1ere fois que j'insère
		panier(1,1)= Request.QueryString("order") 
		reponse.write panier(1,1) 'erreur = mettre des (") ??? 
		Session("panier") = panier 'sais pas si ca marche
	end if
end if

Voila celui de mon panier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
'faut pas declarer Str_Panier en tableau?
Str_Panier = Session("panier")
 
response.write "<table>"
for i = 1 to (nb d'elements de la 1ere colonne du tableau)
  response.write "<tr><td>"&Str(i,1)&"</td></tr>"
next 
response.write "</table>"

J'espere que vous m'avez compris.

Merci beaucoup,

[pc75]

Re,

Peux-tu préciser où se situe ton problème (Message d'erreur, code qui ne fonctionne pas, ...) ?

[shinrei]

C'est bon j'ai trouver une autre solution.
J'ai du utiliser trois tableaux au total pour bien recuperer ce que je voulais:
car le premier me donner des doublons avec des incrementations de 0-1,2-3 au lieu d'avoir 0-1,1-2,2-3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
panier(i) = Request.QueryString("order")
i = i+1

Ce code n'est pas bon..
bref j'ai du passer par un autre qui ne recupere pas les doublons puis un autre qui recupere le bon nombre d'element.

Bon je sais c'est pourri mais j'ai pas eu le choix.

Page de produits:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
if (session("up") = "") then
	session("up") = 0
end if
 
if (Request.QueryString("order") <> "") then
	if not isarray(session("order")) then
		dim  panier(0)	
	else
		panier=session("order")
		redim preserve panier(ubound(panier)+1)
	end if
	panier(session("up")) = Request.QueryString("order")
	session("up") = session("up")+1
	session("order") = panier
end if

ce code est bon mais il passe de la 0eme element qui est inseré à la 2eme element inseré...bizarre
quand j'insere une fois ca donne:

0eme= H06740-G006

et quand j'inser une deuxieme fois:

0eme= H06740-G005
1eme= H06740-G005
2eme= H06740-G003

Donc ca double le i-1 eme element.

Page panier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
tab = session("order") 'recupere le tableau de la session
dim i,count
dim table(),tmp(30)
count = 0
if (session("add") = "") then
	session("add") = 0
end if
'recupere le tableau sans les doublons
for i = 0 to ubound(tab)-1
	if ((tab(i) <>"") and (tab(i) = tab(i+1)))then
	tmp(count) = tab(i)
	count = count + 1
	end if
next 
'recupere le bon nombre d'element du tableau 
redim table(ubound(tab)-count+1)
 
for i = 0 to ubound(table)
	table(i) = tmp(i)
next

Voila si qqun trouve qqchose de plus optimisé je prends.

Ciao,