Tableau a deux dimensions [Résolu]

[dragonfly]

Bonjour a tous je voudrais pouvoir créer un tableau a deux dimensions mais comportant une chaine de caractére dans l'un des deux dimensions, un truc du genre :
array ("chaine",0).

De plus je voudrais le remplir comme suit (la syntaxe du array doit surement être foireuse)

Code :

1
2
3
4
5
 
for each element in request.Querystring
  		if (request.Querystring(element)<>"") then	                      		            array(element,0)=server.HTMLEncode(request.Querystring(element))
		end if		
next

Esce possible ???
Si oui comment le déclarer, le remplir et l'interroger.

MERCI d'avance

[SPOUTNIK007]

Tu ne peux pas mettre deux types différents dans un tableau.
La solution consisterait à définir deux tableaux un numérique et un caractère ayant le même nombre d'élément.

Code :

1
2
3
4
5
 
dim n(5)
dim c(5)
n=array(2,4,5,6,9)
c=array("A","b","c","d","e")

En Vb il existe des structures qui permette de définir un tableau avec plusieurs type différents.
Je n'ai pas l'impression que ça existe en asp

Code :

1
2
3
4
5
6
7
8
 
struct mastructure
    n as integer
    c as string
end struct
dim x(5) as mastructure
x(0).n=1
x(0).c="A"

[dragonfly]

Le truc c'est que je veut que chaque colonne ne soit pas réferencer par un entier mais par un string.
Il me faut absolument cette méthode pour pouvoir utiliser le tableau en fonction du nom ("pour le remplir facilement") et pour lire facilement ("chaque donnée de la case doit servir dans une requete SQL et je me vois mal parcourir le tableau 50 fois pour chaque requete sans compter le HTMLEncode ")

Il me faut donc un truc dans le genre

Code :

1
2
3
4
5
6
 
for each element in request.Querystring
  		if (request.Querystring(element)<>"")then
array(element,0)=server.HTMLEncode(request.Querystring(element))
		end if		
next

Je sais que en PHP c'est possible de créer des tableaux référencer par des string donc en ASP ... why not ???

[dragonfly]

En fait j'ai trouvé, il faut (juste) passer par des scripting.dictionnary, ce qui donne

Code :

1
2
3
4
5
6
7
8
9
10
 
Set Tabl = Server.CreateObject("Scripting.Dictionary")	
	Tabl.CompareMode = VBBinaryCompare
	for each element in request.Querystring
  		if (request.Querystring(element)<>"") then
			Tabl.Add element, request.QueryString(element)	
	 		Tabl.Item(element) = replace(Tabl.Item(element),"""","""""")
    		Tabl.Item(element) = replace(Tabl.Item(element),"'","''")
		end if		
	next

Evidemment, c'est mon exemple a moi.

MERCI.
Bye