probleme avec un array

**kaygee** · 27/11/2003, 10h24

Salut,

je voudrais créer un tableau avec a chaque fois les noms du fichier que j'ai dans mon repertoire.

je pense que je dois utiliser redim pour ajouter le nom de mon fichiers a tableau (je ne connais pas le nombre de fichier a l'avance)

mais je bloque un peu

pourriez-vous m'aider?

merci

voila mon code test:

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
<html>
<head>
	<title>Untitled</title>
	<%Set FSO = Server.CreateObject("Scripting.FileSystemObject")%>
	<%dir = Server.MapPath("pix/")%>
 
	<%set foldPt = FSO.GetFolder(dir)%>
	<%set fc = foldPt.Files%>
</head>
 
<body>
<%dim photo%>
<%for each f in fc%>
 
 
<%next%>
 
<% 
dim a
a = array(photo)%>
<%=a(0)%>
il y a <%=fc.count%> fichiers
</body>
</html>

**zoltar** · 27/11/2003, 12h19

Salut,

Pour redimensionner un tableau, il faut d'abord le déclarer.
Par exemple :

Dim a(3)

et ensuite :

Code :

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

1
2
nb = fc.count
Redim a(nb)

**kaygee** · 27/11/2003, 14h16

j'ai modifié mon code comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
<% 
dim a(3)
 
nb = fc.count
redim a(nb)
%>
<%for each f in fc%>
	<%a(f) = "historique" + f%>
<%next%>

et j'ai cette erreur

Type d'erreur :
Erreur d'exécution Microsoft VBScript (0x800A000A)
Tableau fixe ou temporairement verrouillé
/new/testefichier.asp, line 18

peut tu m'aider?

merci

[Balise code ajoutée par jérôme]
[Merci d'y penser vous-même à l'avenir]

**zoltar** · 27/11/2003, 17h07

Essaye ça :

Code :

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

Redim a(Cint(nb))

Cint : conversion de la variable nb en sous-type entier (Integer).

Si ça marche pas non plus, dimensionne ton tableau dès le départ à un nombre que tu estimes supérieur au nombre de fichiers : si tu estimes le nombre maximum à 500, dimensionne le à 600, etc.

Code :

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

Dim a(600)

Pour les balises <% et %>, c'est pas la peine d'en mettre sur chaque ligne : ça retarde l'interprétation du code.

**zoltar** · 27/11/2003, 17h20

J'ai pas compris pourquoi tu veux stocker les noms de fichiers dans un tableau.
Il y a mieux : c'est créer un lien hypertexte pour chaque fichier affiché.
Voilà 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
 
<%
Dim fsys, dossier, collec, f, flist, chemin
chemin="\monDossier"
Set fsys=CreateObject("Scripting.FileSystemObject")
Set dossier=fsys.GetFolder(Server.MapPath(chemin))
Set collec=dossier.Files
For Each f in collec
	flist=flist + "<a href=""" & chemin & f.name """>" 
	& f.Name & "</a><br>" 
Next 
Response.Write flist 
Set fsys=Nothing
Set dossier=Nothing 
Set collec=Nothing  
%>

**kaygee** · 28/11/2003, 09h31

donné une dimension superieur suis pas trop pour.

en fait c'est un peu plus compliqué que ca.

je vais utilisé chaque photo pour une banière animée de 5 photos qui defile de haut en bas ou inverse.

j'ai un nombre inconnu de photo et donc j'ai besoin d'un tableau avec les nom, pour pouvoir aller les rechercher une a une pour faire suivre mon anim.

avec un tableau j'aurai deja toutes les références dont j'aurai besoin et je pourrai utiliser chaque photo indépendament

merci

**Yoh** · 28/11/2003, 10h16

Salut,

essai ça :

Code :

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

1
2
3
4
5
6
7
8
9
<% 
 
Dim a
a = Array()
 
For Each f In fc
   Redim Preserve a(UBound(a)+1)
   a(UBound(a)) = "historique" + f
Next%>

**kaygee** · 04/12/2003, 08h58

merci ca marche a merveille

je vais pouvoir m'y mettre serieux

**brunocatteau** · 26/03/2007, 12h33

Je me permets de compléter ce post pour l'étendre aux tableaux à plusieurs dimensions car j'ai eu la même erreur ("This array is fixed or temporarily locked" ou "Tableau fixe ou temporairement verrouillé") sur 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
%>

Bruno CATTEAU
http://bruno.catteau.free.fr

probleme avec un array

ASP

Discussions similaires

Partager

Partager