Ir para o conteúdo

Pegar Extenção De Arquivo Em Expressão Regular


Criado por Patrique, Out 10 2010 00:28

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Patrique

Patrique
  • Patrique
  • Colaborador
  • 13 Revisões

Revisou 10 outubro 2010 - 00:28

<%

'autor: Patrique André (O Gostosão)

'perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/



Function ExtArq(byVal Arquivo)

   dim regExt

   Set regExt = New RegExp

   regExt.Pattern = "^.*(\.[^\.]*)$"

   regExt.Global = False

   regExt.IgnoreCase = True

   ExtArq = regExt.Replace(Arquivo, "$1")

   Set regExt = Nothing

End Function



Response.Write ExtArq("teste.gif")

%>





1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)