Ir para conteúdo
Fórum Script Brasil
  • 0

Extrair a extensão de um arquivo!


claytonprog

Pergunta

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 por bareta
troca do bloco de código pela função em si
Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0

É 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 por claytonprog
Link para o comentário
Compartilhar em outros sites

  • 0
É 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))

Link para o comentário
Compartilhar em outros sites

  • 0

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!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...