[Resolvido] Função split o que há de errado?

[interlokk 0]

Num sistema de upload quero comparar a extensão do arquivo enviado com as extensões permitidas. Para isso criei o script abaixo:

 

Dim sText
ext = ".png"
sTexto = Split(".jpg,.gif,.png,.bmp", ",")
For i = 0 To UBound(sTexto)
if sTexto(i) = ext then
res = true
else
res = false
end if
Next

 

Só que o valor de res sempre retorna false pois ele compara a primeira array e vê diferença. Como faço para o valor da variável res ser true sempre que apenas uma das comparações (qualquer uma) for igual ou false se todas as comparações forem diferentes?

 

Valeu.

[xanburzum 169]

olha este exemplo

 

value = UploadRequest.Item("blob").Item("Value")
  If Lcase(Right(filename,3)) = "jpg" Or Lcase(Right(filename,3)) = "gif" then
    Set objFS = Server.CreateObject("Scripting.FileSystemObject")
'response.write(pasta_imagens & "\" & filename)
'response.end()

[hargon 64]

Uma sugestão:

<%
Dim sText
ext = ".png,"
sTexto = ".jpg,.gif,.png,.bmp,"
If (inStr(sTexto,ext) > 0)
	res = true
Else
	res = false
End If
%>

Se quiser continuar utilizando seu código, apenas acrescente i = UBound(sTexto) , após a linha res = true

[xanburzum 169]

olha um outro exemplo...

 

<%
dim strFileName, str3, strExt

strFileName = UCase(RS("FileName"))	
intHowLong = Len(strFileName)		
str3 = intHowLong - intHowLong + 3
strExt = Right(strFilename, str3)		
strFileName) from the filename.
%>


<%
If strExt = "JPG" Then
Response.Write "JPEG"
End If
%>

<%
If strExt = "GIF" Then
Response.Write "GIF"
End If
%>

<%
If strExt = "PDF" Then
Response.Write "Adobe Acrobat PDF"
End If
%>

<%
If strExt = "DOC" Then
Response.Write "Microsoft Word Document"
End If
%>

sempre é bom varios code, acabando ajudando a sair um melhor...

[interlokk 0]

Testei a dica do hargon e funcionou direitinho. Obrigado as todos pelas dicas.

[hargon 64]

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[xanburzum 169]

beleza