Discussion :

[LineLe]

salut!
J'ai ecrit une fonction asp qui a partir du contenu d'une base de donnees, ecrit un tableau javascript...
je m'explique :

contenu de ma base de donnees :

0166BUE
0176BUE
0266BUE
A163BUE
A175BUE
A176BUE
A263BUE
A275BUE
A279BUE
A371BUE
A379BUE
A671BUE
A871BUE
AA63BUE
AAB3BUE
AAC3BUE
AAD3BUE
AAS5BUE
AB63BUE
ABE3BUE
abe8bue
ABM3BUE
ABN4BUE
ABW3BUE
[...]

et ca me donne un tableau du genre :

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
<script language='javascript'>var K=new Array();
K["0"] = new Array("0166BUE","0176BUE","0266BUE");
 
K["1"] = new Array();
 
[...]
 
K["9"] = new Array();
 
K["A"] = new Array("A163BUE","A175BUE","A176BUE","A263BUE","A275BUE","A279BUE","A371BUE","A379BUE","A671BUE","A871BUE","AA63BUE","AAB3BUE","AAC3BUE","AAD3BUE","AAS5BUE","AB63BUE","ABE3BUE");
 
K["B"] = new Array();
 
[...]
 
K["Z"] = new Array();
 
K["a"] = new Array();
 
[...]
 
K["z"] = new Array();
</script>
<script language="JavaScript">

seulement voila... lorsque je tombe sur un recordset ecrit en minuscule (je suppose que c'est ca le probleme), il bloque... et je comprends vraiment pas pourquoi puisque j'utilise la fonction Ucase.

Voici mon 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
 
		If NOT (Rs.BOF AND Rs.EOF) Then
			'rs.movenext()
			'tmpkennung=Rtrim(Ucase(RS("Username")))
			response.Write("<script language='javascript'>")
			response.Write("var K=new Array();")
 
			For i=48 to 122
				if ((i<=57) OR (i>=65 AND i<=90) OR (i>=97 AND i<=122)) then
					response.Write(vbcrlf)
					response.write("K["&chr(34)&chr(i)&chr(34)&"] = new Array(")
						if not rs.eof then
							tmpkennung = Rtrim(Ucase(RS("Username")))
						end if
						if 	(left(tmpkennung,1))=Chr(i) then	
							while (left(tmpkennung,1))=Chr(i) and not rs.EOF
								response.Write(chr(34) & tmpkennung & chr(34))
								rs.movenext()
								if (i>=97 AND i<=122) and (not rs.eof) then
									tmpkennung = Rtrim(Ucase(RS("Username")))
								else 
									if not rs.eof then
									tmpkennung = Rtrim(RS("Username"))
									else
										tmpkennung=""
									end if
								end if
								if (left(tmpkennung,1))=Chr(i) then
									response.Write(",")
								else 
									response.Write(");"&vbcrlf)
								end if
							wend
						else
							response.Write(");"&vbcrlf)
						end if
				end if
			next
			response.Write("</script>")
		end if

si quelqu'un a une idee du pourquoi du comment de la chose, qu'il n'hesite pas a se manifester!!!

[edit] alors j'ai essaye en enlevant la fonction Ucase : abe8bue est mis dans K[a] et il va pas plus loin(ce qui est normal par contre cette fois)[/edit]

PS : pour les modos : desolee pour la longueur du post, mais je trouve que c'etait beaucoup plus explicite que des paroles

[jérôme]

Tu devrais déjà trier ta requête, comme ça tu ne risques pas de zapper des lignes.

[LineLe]

c'est ce que j'ai fait.
je suis obligee de trier de toute façon, sinon ma fonction ne vaut pas un clou.

la liste que j'ai donné au dessus; est le resultat de la meme requete que j'utilise pour creer le tableau...

[JEFF56]

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
      If NOT (Rs.BOF AND Rs.EOF) Then 
         'rs.movenext() 
         'tmpkennung=Rtrim(Ucase(RS("Username"))) 
         response.Write("<script language='javascript'>") 
         response.Write("var K=new Array();") 
 
         For i=48 to 122 
            if ((i<=57) OR (i>=65 AND i<=90) OR (i>=97 AND i<=122)) then 
               response.Write(vbcrlf) 
               response.write("K["&chr(34)&chr(i)&chr(34)&"] = new Array(") 
                  if not rs.eof then 
                     tmpkennung = Rtrim(Ucase(RS("Username"))) 
                  end if 
                  if    Ucase(left(tmpkennung,1))=Chr(i) then    
                     while (left(tmpkennung,1))=Chr(i) and not rs.EOF 
                        response.Write(chr(34) & tmpkennung & chr(34)) 
                        rs.movenext() 
                        if (i>=97 AND i<=122) and (not rs.eof) then 
                           tmpkennung = Rtrim(Ucase(RS("Username"))) 
                        else 
                           if not rs.eof then 
                           tmpkennung = Rtrim(RS("Username")) 
                           else 
                              tmpkennung="" 
                           end if 
                        end if 
                        if (left(tmpkennung,1))=Chr(i) then 
                           response.Write(",") 
                        else 
                           response.Write(");"&vbcrlf) 
                        end if 
                     wend 
                  else 
                     response.Write(");"&vbcrlf) 
                  end if 
            end if 
         next 
         response.Write("</script>") 
      end if

[LineLe]

merci Jeff56!
grace a toi j'ai vu ma bete erreur!!!
ca fonctionne a merveille maintenant !

merci beaucoup