Extrair a extensão de um arquivo!

[claytonprog 0]

Ai Galera!

 

Mais um script interessante que eu fiz!

 

 

Extrair a extensão de um arquivo!!!

 

 

Segue o código:

 

<%

' Aqui estou fazendo um while para pegar todos os nomes dos aquivos


do while not RS.EOF AND x < rs.PageSize

x = x + 1
Cont = cont + 1

			 	
	   	arquivo = rs("arquivo") 

		' Ex: banner.swf
		   
	 	
	   	RecebeExtensao = mid(arquivo,instr(1,arquivo,".",1),4)  ' Aqui está o segredo
		  
	' A variavel RecebeExtensao retornará  .swf e assim sucessivamente

%>

<%
	   ' Aqui eu mostro a extensão dos arquivos listados


	   <td align="center" width="79" style="border-style: none; border-width: medium">	
	   <p align="justify"><font face="tahoma" style="font-size: 11px; color: 000000"> 
	<font size="2" face="Tahoma"> <%=RecebeExtensao%><b>

%>



<% RS.MoveNext

loop
Cont = cont + 1

%>

 

É isso ai Galera

[zrageburn 0]

e se por acaso a extensão do documento for mais extenso?... hehehe (ex.: .docx)

[Ted k' 126]

boa pergunta. OBS:

 

Isso foi testado?

Tem que colocar a função separada, parece que você "recortou" do seu projeto e colou!

[jrcardozo 4]

pra fazer isso tem que ter uma função usando o INSTRREV

 

acho que é isso, não testei mas é a base

 

function extensao(arquivo)

 

extensao = Mid(arquivo, instrrev(arquivo, ".", 1, vbTextCompare) + 1)

 

end function

[augustoclaro 2]

eai gente eu vi o tópico que o cara fez que tinha uns erros ao pegar a extenção do arquivo, então eu fiz esta função que pega a extenção do arquivo independente de quantos pontos tenha o noem do arquivo ou do tamanho da extenção:

 

 

 

<%
function extencao(arquivo)
arquivo = "qualquer.coisa.aqui.txt"
tamanho = len(arquivo)
for i = 0 to tamanho-1
letra = mid(arquivo,tamanho-i,tamanho-i)
letra = mid(letra,1,1)
if letra = "." then
extencao = right(arquivo,i+1)
exit for
end if
next
end function
response.write extencao("qualquer.coisa.aqui.txt")
%>

 

espero ter ajudado xD

 

 

Augusto Claro

[hargon 64]

Extensão é o que está sempre após o último ponto, correto?

 

<%
Function extensao(byVal nmArquivo)
	   nmArquivo = split(nmArquivo,".")
	   extensao = nmArquivo(uBound(nmArquivo))
End Function

Response.Write extensao("qualquer.coisa.aqui.txt")
%>

[augustoclaro 2]

ótima solução hargon xD

 

adorei ter tido essa dúvida do nosso amigo, que me motivo a faze um "looping ao contrario das letras" xD

 

tava qrendo fze isso há um tempo mas tava cm preguiça ^^

[hargon 64]

Bacana augustoclaro http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

O bom de programação é que existe várias formas de se fazer a mesma coisa hehe.

[Ted k' 126]

é hargon, creio que o seu método já soluciona o problema, e bem mais simples!