Foros del Web » Programando para Internet » ASP Clásico »

de un for each a una variable

Estas en el tema de de un for each a una variable en el foro de ASP Clásico en Foros del Web. hola tengo un script que me muestra todas las imagenes que hay en cuna carpeta Código PHP: dim objFSO ,  objF , objF2 , objF3 ,  ...
  #1 (permalink)  
Antiguo 06/09/2007, 11:20
Avatar de engonga
Usuario no validado
 
Fecha de Ingreso: marzo-2002
Ubicación: Buenos Aires
Mensajes: 1.300
Antigüedad: 23 años, 1 mes
Puntos: 8
de un for each a una variable

hola tengo un script que me muestra todas las imagenes que hay en cuna carpeta

Código PHP:
dim objFSOobjF,objF2,objF3objFCobjFC2,objFC3 pobleallotjamentmasiaimatge
   dim f1
whcstrTypemostranom
   dim quina_carpeta
   quina_carpeta 
request.QueryString("carpeta")
   
Set objFSO CreateObject("Scripting.FileSystemObject")
   
Set objF objFSO.GetFolder(Server.MapPath("imatges/seccions/poble/"))
   
Set objF2 objFSO.GetFolder(Server.MapPath("imatges/seccions/allotjament/"))
   
Set objF3 objFSO.GetFolder(Server.MapPath("imatges/seccions/masia/"))
   
Set objFC objF.Files
   Set objFC2 
objF2.Files
   Set objFC3 
objF3.Files

   
For Each f1 in objFC
   
if instr(ucase(f1.Name), ".JPG") or instr(ucase(f1.Name), ".GIF") or instr(ucase(f1.Name), ".PNG")then
   
  poble
="'imatges/seccions/"&f1.Name&"'<br>"
   
 
     
end if
   
Next 
lo que quiero que en la variable poble me cargue todas las cadenas seguidas

de esta manera 'imatges/seccions/imagenpueblo.jpg' ' imatges/seccions/piscina.gif'' imatges/seccions/entrada.jpg

lo he intentado de esta manera pero no me funciona

i que despues yo con solo llamar a la variable <%=poble%> me las pinte en un lugar determinado

alguien sabe?


gracias
  #2 (permalink)  
Antiguo 06/09/2007, 12:27
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses
Puntos: 98
Re: de un for each a una variable

Pero es que cuando sale del for each, esa varibale tiene:

Código:
"imatges/seccions/imagen.gif<br>imatges/seccions/imagen.jpg<br>imatges/seccions/imagen.png" etc...
Despues tendrias que separarlas de alguna manera...no se si estoy captando lo que quieres hacer, pero personalmente trataría de hacer por ejemplo un arreglo con el nombre de todas las imágenes, y ya que sabes la ruta, entonces si lo puedes reutilizar donde tu quieras.

Código:
<%
Dim arr()
Dim x
Dim ruta

ruta = "imatges/seccions/"
x = 0
for each imagen in ObjFolder.files
    if right(imagen.name, 4) = ".gif" or right(imagen.name, 4) = ".jpg" or right(imagen.name, 4) = ".png" then
      redim preserver arr(x)
      arr(x) = imagen.name
      x = x + 1
    end if
next
%>
'Y lo usas
<img src="<%=ruta&arr(0)%>" alt="algun alt" />
Salud
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #3 (permalink)  
Antiguo 06/09/2007, 12:38
Avatar de JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses
Puntos: 27
Re: de un for each a una variable

pregunta

ahorita te sale?

imatges/seccions/imagenpueblo.jpg
imatges/seccions/piscina.gif
imatges/seccions/entrada.jpg

y tu quieres todo eso en una sola linea??????

si es asi quitale el <br> y metele espacios o comillas.

suerte
__________________
JuanRa Pérez
San Salvador, El Salvador
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:31.