Extrair a extensão de um arquivo!

[claytonprog]

Ai Galera!

Mais um script interessante que eu fiz!

Extrair a extensão de um arquivo!!!

Segue o código:

/*bareta

function pega_extensao(arquivo)
pega_extensao=mid(arquivo,instr(1,arquivo,".",1),len(arquivo))
end function

response.write "a extensão é "&pega_extensao("x.doc")

*/

É isso ai Galera

Editado Fevereiro 19, 2009 por bareta
troca do bloco de código pela função em si

[bareta]

me diga se esse script seu está de acordo como que seria um script para pegar extensão???

function pega_extensao(arquivo)
pega_extensao=right(arquivo,3)
end function

response.write "a extensão é "&pega_extensao("x.doc")

[claytonprog]

É uma outra forma de se pegar sim! A idéia minha não foi achar com caminho das pedras!!! Foi uma solução que encontrei que me ajudou. de qualquer forma está ai o script. Fique a vontade se quiser deixar ou retirar! Mais uma coisa é certa funciona!!!!

Editado Fevereiro 18, 2009 por claytonprog

[Jonathan Queiroz]

É uma outra forma de se pegar sim! A idéia minha não foi achar com caminho das pedras!!! Foi uma solução que encontrei que me ajudou. de qualquer forma está ai o script. Fique a vontade se quiser deixar ou retirar! Mais uma coisa é certa funciona!!!!

Na verdade acho que o bareta estranhou foi o fato de você ter postado o código todo ao invés de postar só a parte pra remover a extensão !

Na minha opinião a melhor forma de se fazer isso é a seguinte (as outras também estão corretas, mas poderá ocorrer erro se a extensão tiver mais ou menos de três caracteres)

RecebeExtensao = mid(arquivo,instr(1,arquivo,".",1),len(arquivo))

[claytonprog]

Neste caso você tem Razão Jonathan! Boa dica!

[bareta]

opa agora sim...

function pega_extensao(arquivo)
pega_extensao=mid(arquivo,instr(1,arquivo,".",1),len(arquivo))
end function

response.write "a extensão é "&pega_extensao("x.doc")

[manuelarroz]

Bom para quem quer o goste da seguinte função para validar mais de uma extensão,

Exemplo de uso:

IsExtension("figura.jpg","jpg,gif,bmp")

Public Function IsExtension(ByVal MyFile,ByVal sExtensions)
    Dim aExts
    Dim bErro
    Dim iIndex
    aExts = Split(sExtensions,",")
    bErro = True
    
    For iIndex = LBound(aExts) To UBound(aExts)
        If Trim(LCase(aExts(iIndex))) = LCase(Mid(MyFile, InStrRev(MyFile,".")+1)) Then
            bErro = False
        End If
    Next
    
    If Not bErro Then
        IsExtension = True
    Else
        IsExtension = False
    End If
End Function

Já agora gostaria de saber se algem gosta o faz jeito a algem!

[Temo Barbosa]

Ola galera,

Mais não percebo... Porque é qui se quer extrair a extensão de um ficheiro... eu gosto de saber que tipo de ficheiro tenho... eu quero dizer a extensão.. se é .doc do word ou outro por exemplo... .xls do excel...

Abraço

[AislanRosa]

Gostei do Tópico

[Durval Bittencourt]

Usei e funcionou, obrigado a todos !