Jump to content


Photo

Fso


  • Faça o login para participar
11 replies to this topic

#1 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 26/02/2006, 23:44

Olá Pessoal,
Hoje preciso da ajuda de vocês.

Sabemos que se eu usar o Código
<% Set fso = Server.CreateObject("Scripting.FileSystemObject")
For Each file In fso.GetFolder(Server.MapPath("/")).Files 
Response.Write "<a href="& file.name &" target=_blank>"& file.name &"</a><br>"
Next %>
Ele exibira com o comando file.name o nome e extensão ex.: "documento.doc", mas o meu querer é que ele mostre apenas o nome "documento" e sem a extensão ".doc"

HELP HELP HELP :cry:
...

#2 Felipe Pena

Felipe Pena

    O temor do Senhor é o princípio da sabedoria

  • Ex-Admins
  • 6441 posts
  • Sexo:Masculino

Posted 27/02/2006, 00:15

Já que não conheço as funções existentes no ASP, faria da seguinte forma:

- Inverteria a string.
- Pegaria a posição que está o primeiro ponto encontrado (o que está antes da extensão).
- Subtrairia o total de caracteres do nome com o obtido no processo anterior.
- Exibiria os caracteres de 0 até o valor obtido na subtração.


Felipe Pena
[...] ó terra, terra, terra; ouve a palavra do Senhor. — Jeremias 22:29

#3 gUiTaR_mAn

gUiTaR_mAn

    Programador ASP

  • Usuários
  • 431 posts
  • Sexo:Masculino
  • Localidade:Gaspar - SC

Posted 27/02/2006, 00:15

tenta assim cara:


<% Set fso = Server.CreateObject("Scripting.FileSystemObject")
For Each file In fso.GetFolder(Server.MapPath("/")).Files 
Response.Write "<a href="& file.name &" target=_blank>"& file.ShortName &"</a><br>"
Next %>


flw (y)
MegaClassi.com.br
Seu próximo veículo está aqui.

#4 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 27/02/2006, 00:37

Guitar eu coloquei o comando e ele mostra o caminho em dos "meus~1.wmw"

Vlw Eclesiastes pela ideia
...

#5 gUiTaR_mAn

gUiTaR_mAn

    Programador ASP

  • Usuários
  • 431 posts
  • Sexo:Masculino
  • Localidade:Gaspar - SC

Posted 27/02/2006, 01:06

humm... to ligado... maix acho issu tem como fazer com FSO
da uma olhada nessas referencias

http://www.sloppycod.../Reference/FSO/
MegaClassi.com.br
Seu próximo veículo está aqui.

#6 Generation

Generation

    Super Veterano

  • Usuários
  • 1546 posts
  • Sexo:Masculino
  • Localidade:Curitiba - PR

Posted 27/02/2006, 10:18

Duas Possiveis soluções, das N que podem existir :

Minha logica..
<%
TXT = "arquivo.enorme"
TXT =  Mid(TXT,1,InstrRev(TXT,".", -1, 1)-1)
Response.Write(TXT)
%>

Uma Encontrada pelo Eclesiastes, que adaptei para funcionar ;)
<%
TXT = "arquivo.enorme"
str = instrrev(TXT,".")
str2 = left(TXT,(len(TXT)+1)-str)
response.Write(str2)
%>

[]'d
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)

#7 siola

siola

    Usuário

  • Usuários
  • 894 posts
  • Sexo:Masculino
  • Localidade:SBC - SP
  • Interesses:ASP, .NET, javascript

Posted 27/02/2006, 14:01

pode fazer assim tambem

nome="sdfdsfdsfdsfdsfsdfdsfsduivo.txt"
pegar =Len(nome) -4
Response.Write Left(nome, pegar)


#8 Generation

Generation

    Super Veterano

  • Usuários
  • 1546 posts
  • Sexo:Masculino
  • Localidade:Curitiba - PR

Posted 27/02/2006, 16:38

pode fazer assim tambem

nome="sdfdsfdsfdsfdsfsdfdsfsduivo.txt"
pegar =Len(nome) -4
Response.Write Left(nome, pegar)

E se o arquivo for com mais de 3 caracteres, ou com menos :( ...

Por isso sugerimos outras possiveis soluçoes :)


[]'s
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)

#9 felipecm

felipecm

    Expert

  • Usuários
  • 541 posts
  • Sexo:Não informado
  • Localidade:ABC / SP

Posted 28/02/2006, 14:21

pode fazer assim tambem

nome="sdfdsfdsfdsfdsfsdfdsfsduivo.txt"
pegar =Len(nome) -4
Response.Write Left(nome, pegar)

E se o arquivo for com mais de 3 caracteres, ou com menos :( ...

Por isso sugerimos outras possiveis soluçoes :)


[]'s

Se a extensão nao existir ou a string for vazia, ocorre o erro tbm. :D
Ai vai mais duas alternativas:

  strArqExt = "teste.doc"
  arrFile = Split(strArqExt, ".")
  If UBound(arrFile) > 0 Then Redim Preserve arrFile(UBound(arrFile) - 1)
  Response.Write(Join(arrFile, "."))

***

  strArqExt = "teste.doc"
  If InStr(strArqExt, ".") = 0 Then 
    strArq = strArqExt
  Else
    strArq = Left(strArqExt, InStrRev(strArqExt, ".") - 1)
  End If
  Response.Write(strArq)

(y)
MCAD, MCP

#10 Agente Linhares

Agente Linhares

    fuis...abraços!

  • Ex-Admins
  • 3138 posts
  • Sexo:Não informado
  • Localidade:Biritiba Mirim-SP

Posted 17/03/2006, 15:42

conta os caracteres q estiverem depois da "."

e usa o right ou left pra pegar apenas o que estiver pra ca ou pra la da virgula.

- c/ o len(variavel) vc conta

pra usar o right ou left

right(variavel,5)
left(variavel,5)
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!

#11 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 18/03/2006, 10:15

Obrigado a Todos, Caso solucionado.
...

#12 gUiTaR_mAn

gUiTaR_mAn

    Programador ASP

  • Usuários
  • 431 posts
  • Sexo:Masculino
  • Localidade:Gaspar - SC

Posted 20/03/2006, 15:32

com fso é assim:

<% 
Set fso = CreateObject("Scripting.FileSystemObject") 
A = fso.GetBaseName(ServerMappath & "/default.asp") 
Response.Write A 
Set fso = Nothing 
%>

saída:

default


dixculpa o atraso :P
sabia que tinha um jeito de fazer com FSO

flw (y)

Edição feita por: gUiTaR_mAn, 20/03/2006, 15:32.

MegaClassi.com.br
Seu próximo veículo está aqui.




0 user(s) are reading this topic

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

IPB Skin By Virteq