liste deroulante a partir d'un tableau [Résolu]

guili · 10/07/2006, 10h04

Bonjours a tous, je cherche a faire une liste deroulante dynamique a partir d'un tableau asp avec le code suivant

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
%
lettre = Request.Form("demande")
 
strTextFile = Server.MapPath("test.txt")
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objTStream = objFSO.OpenTextFile(strTextFile)
contenu = objTStream.ReadAll
Dim test : test = Split(contenu,Chr(10))
nombre=UBound(test)
for i=0 to (nombre-1)
	if left(test(i),1)=lettre then Dim essais : essais = essais & test(i) & ";" end if
next
response.write essais
 
 
 
Dim final : final = Split(essais,";")
%>

la variable "lettre" est recuperer d'un formulaire ou l'utilisateur choisit la premiere lettre d'un email puis je recupere tous les mail commencant par cette lettre dans le tableau final et je voudrais maintenant remplir une liste deroulante avec le tableau "final" qui contient les email concerner...
Je ne sais malheureusement pas comment faire...
Merci d'avance pour votre aide...

malbaladejo · 10/07/2006, 10h19

tu peux faire un truc comme ca :

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
<%
dim lettre
lettre = Request.Form("demande")
dim strOptions 
 
strTextFile = Server.MapPath("test.txt")
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objTStream = objFSO.OpenTextFile(strTextFile)
contenu = objTStream.ReadAll
Dim test : test = Split(contenu,Chr(10))
nombre=UBound(test)
for i=0 to (nombre-1)
	if left(test(i),1)= lettre then 
                strOptions = strOptions &"<option value='" & test(i) &"'">" & test(i) & "</option>"
             end if
next
response.write essais
%>
<select>
<%=strOptions %>
</select>

guili · 10/07/2006, 10h51

Une ou 2 petites erreur de code (guillemets) mais maintenant ca marche nickel...
Merci beaucoup c'est super cool de ta part pour les interressé voila le code

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
<%
lettre = Request.Form("demande")
 
strTextFile = Server.MapPath("test.txt")
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objTStream = objFSO.OpenTextFile(strTextFile)
contenu = objTStream.ReadAll
Dim test : test = Split(contenu,Chr(10))
nombre=UBound(test)
 
 
 
for i=0 to (nombre-1)
	if left(test(i),1)= lettre then 
                strOptions = strOptions & "<option value='" & test(i) &"'>" & test(i) & "</option>"
             end if
 
next
 
 
 
 
 
'for i=0 to (nombre-1)
'	if left(test(i),1)=lettre then Dim essais : essais = essais & test(i) & ";" end if
'next
'response.write essais
 
%>
 
 
<html>
 
<head>
 
</head>
 
<body>
 
 
<select>
<%=strOptions %>
</select>
 
 
 
</body>
 
</html>

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email