Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Boca

Busca Arquivo com FSO

Por , em ASP Clássico

Recommended Posts

Boca    0

Boca
Postado

Pessoal preciso de uma ajuda.

 

estou tentando fazer uma busca de uma arquivo no servidor, utilizando o seguinte script, mas tenho uma duvida caso eu não saiba a extensão do arquivo como posso adaptar este script.

 

Exemplo: não sei se o arquivo é .txt ou .doc

 

<%
pasta = "D:\"
arquivo = "teste.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(pasta)
Set fc = f.Files
For Each f1 in fc
     if (f1.name=arquivo) then
         response.write "aquivo existe"
        end if
Next
%>

Aguardo Ajuda

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo, Num TXT com este conteúdo.

---------------------------------------------------------------------------------

imasters|http://www.imasters.com.br

MSDN|http://www.msdnbrasil.com.br

TechNet|http://www.technetbrasil.com.br

Artigos|http://www.imasters.com.br/drArtigos

Microsoft|http://www.microsoft.com.br

Forum|http://www.asp.com.br/forum

Tutoriais|http://www.uutoriais.com.br/tutorias

---------------------------------------------------------------------------------

 

<html>
<head>
<title>Busca em FSO</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#CCCCCC">
<form method="post" action="busca_fso_action.asp">
  <table width="650" cellpadding="1" cellspacing="0" border="1" align="center">
    <tr> 
      <td> <div align="center"><font color="#666699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>:: 
          Entre com a pesquisa</strong></font></div></td>
    </tr>
    <tr> 
      <td><font color="#666699" size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Pesquisar:</font> 
        <input name="pesquisa" type="text" id="pesquisa" size="20" maxlength="50">
          
        <input type="submit" name="Submit" value="buscar">
        <input type="hidden" name="botao" value="true">
        </strong></font> </td>
    </tr>
    <tr>
      <td> </td>
    </tr>
  </table> 
</form>
</body>
</html>

 

código 

<% Option Explicit
' declaro as variaveis
Dim fso, fsofile,varpesquisa,varcaminho,contador,linha,icampo

' recupero as variaveis
varpesquisa=Trim(request.form("pesquisa"))
' retiro o aspas simples
varpesquisa=Replace(varpesquisa,"'","")

' crio o FSO

Set fso=Server.createobject("Scripting.FileSystemObject")
' abro o arquivo txt
varcaminho=Server.MapPath("texto.txt")
Set fsofile=fso.opentextfile(varcaminho,1,true,false)
	if fsofile.AtEndOfStream = true then
		response.Redirect("busca_fso_form.asp?msgeof=1")
	else
		contador=0
		while not fsofile.AtEndOfStream = true
			linha=fsofile.readline
			icampo=Split(linha,"|",-1,1)
				if LCase(varpesquisa) = LCase(icampo(0)) then
					response.Write("<a href='"&icampo(1)&"'>"& icampo(0)&"</a><br>")
     			     contador=contador + 1
				end if
		wend
				response.Write("<br> Total de registros encontrados:") &contador
	end if
	fsofile.close
	Set fsofile=nothing
	Set fso= nothing
	%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boca    0

Boca
Postado

Entendi agora ele procura pelo nome do arquivo dentro do texto.txt, mas uma coisa que observei vamos supor dentro do arquivo texto.txt coloquei um nome do arquivo exemplo teste.doc, se tento localizar ele com teste.doc ele encontra mas se tento somente teste não acha nada.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tem um exemplo que coloquei no lab. de script para busca de termos em uma pagina ou txt,

dá uma pesquisada que você acha

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito