[Resolvido] Arquivos

[*_Charles Potter_* 1]

Ahe gente,, preciso de uma ajudinha,,

 

 

tipo tenho os arquiovos assim

teste_teste_teste_teste_teste_teste_154.jpg

 

Preciso tirar a part em negrito. Ela sempre estara pepoios do ultimo anderline e antes do ultimo ponto..

 

 

vlw

[hargon 64]

<%

Function pegaNumero(byVal nmarquivo)

pegaNumero = left(mid(nmarquivo,inStrRev(nmarquivo,"_")+1,len(nmarquivo)), inStr(mid(nmarquivo,inStrRev(nmarquivo,"_")+1,len(nmarquivo)),".")-1)

End Function

 

Dim arquivo

arquivo= "teste_teste_teste_teste_teste_teste_154.jpg"

 

Response.Write pegaNumero(arquivo)

%>

[*_Charles Potter_* 1]

Vlw cara deu certinho!

 

 

Tipo seeu precisase de tudo que estiver depois de "/" como faria?

[hargon 64]

É só você utilizar a função INSTRREV. Ela realiza busca dentro de variáveis e retorna a posição. Nesse caso bastaria você usar junto com as funções mid ou right.

 

Qualquer dúvida poste aqui.