if en un array

[Nateskin]

hola a todos.

Estoy creando un sistema de subida de archivos. El problema viene en que quiero comprobar si la extension de un archivo, existe en un array.

Código:

extensions = Array ("doc", "docx", "jpg", "jpeg") 

If (fs.GetExtensionName(Request("archivo")))=extensions Then
       Response.Write("El archivo existe en el array")
Else
       Response.Write("El archivo ....")
End If

Obviamente falla, pero he intentado buscar como hacer un if a un array en asp clasico... y no hay manera.

¿alguna ayuda?

PD: se que en el ejemplo no he puesto "Server.CreateObject("Scripting.FileSystemObject") " pero supongo que... os hareis a la idea de que lo tengo declarado en mi archivo.

[u_goldman]

Creo que tienes que iterar el array para determinar si la extension de tu archivo se encuentra en el.

Código:

Dim boolExisteExtension
extensions = Array ("doc", "docx", "jpg", "jpeg") 

boolExisteExtension = false
archivo = fs.GetExtensionName(Request("archivo"))

for i = 0 to uBound(extensions)
  if archivo = extensions (i) then
     boolExisteExtension = true
     exit for
  end if
next

If boolExisteExtension Then
       Response.Write("El archivo existe en el array")
Else
       Response.Write("El archivo ....")
End If

Saludos

[Nateskin]

se agradece tu ayuda goldman. Voy a probar.

[Nateskin]

Tengo una duda (aprender siempre es bueno).

Porque se declara al principio "Dim boolExisteExtension" como false?

[u_goldman]

Hola Nateskin
Simplemente porque es más seguro pues se supone que cumpliendo con la condición su valor solo cambia una vez por ciclo, es como aquello que todo mundo es inocente hasta que se demuestra lo contrario en este caso se está diciendo que la extensión no existe, y se tiene que comprobar su existencia mediante el ciclo.

Espero no haberte enredado.

Saludos

[Myakire]

Tan fácil que hubiera sido contestar: "para darle un valor inicial a la variable"

ok,ok, ya no me meto donde no me llaman

[u_goldman]

Iniciado por Myakire

Tan fácil que hubiera sido contestar: "para darle un valor inicial a la variable"

ok,ok, ya no me meto donde no me llaman

Te hubiera baneado cuando tenía la oportunidad

[AlZuwaga]

Te paso otra alternativa usando InStr. Lo que no estoy seguro si el número 1 es para que compare sin importar las mayúsculas y las minúsculas:

Código:

extensions = "|doc|docx|jpg|jpeg|"
extension = "|" & fs.GetExtensionName(Request("archivo")) & "|"
If InStr(extensions, extension, 1) > 0 tehn

Iniciado por u_goldman

Te hubiera baneado cuando tenía la oportunidad

[Nateskin]

AlZuwaga gracis por tu solucion, aparte de tener menos codigo, aún asi, nose porque, me fio mas de los arrays :P.

Y gracias a los demas por vuestra solucion.

Un saludo.