Ir para conteúdo

POWERED BY:

Arquivado

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

borsatti

Ler arquivo e escrever

Por , em ASP Clássico

Recommended Posts

borsatti    2

borsatti
Postado

Bom dia gente, eu sou programador php, mas estou precisando de uma coisa em asp.

 

Eu preciso que o ASP leia um arquivo, que ja tem varias informações. vá até o final dele e escreva algumas coisas que passaria por post...

 

Teria como fazer isso ?

 

Vllww gente...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Public2004    79

Public2004
Postado

Bom dia! Qual seria o tipo de arquivo? Se for arquivo de texto (TXT), utilize o FSO para isso, no laboratório de scripts e tutoriais tem exemplos de utilização.

 

Att.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo:

 

Num TXT com este conteúdo.

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

Freecode|http://www.freecode.com.br

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

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

Freecode|http://www.msdn.com.br/drArtigos

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

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

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

Tutoriais|http://www.teste.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
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