Buscando informações em um txt

[<%include file%> 0]

E ae pessoal...

gostaria de uma ajudinha aqui!!!

 

Como que eu busco uma informação de dentro de um arquivo em txt

Não parece ser muito dificil e creio eu que não seja...

 

 

Obrigado a quem solucionar meu problema

[*Marcinha* 0]

É só você dar uma pesquisada por FSO (FileSystemObject)

[crazybaby 0]

nao tem como importar para um bd access?

[<%include file%> 0]

nao tem como importar para um bd access?

é que eu quero e coisa simples d+ [porem eu não sei] não queria criar um banco de dados so para recuperar 10 informações...

[crazybaby 0]

eu tb tava qrendo fazer isso , esses dias pra trás, dê uma olhada aki

http://forum.wmonline.com.br/index.php?showtopic=53136

a solução foi passar pra bd mesmo...

concerteza com fso tem jeito de fazer, dê uma procurada..

 

Flows

:D

[d.eleete 0]

Coisa simples = banco de dadosCoisa complicada = FSO com TXT

[williamds 0]

Tenho algo aqui que pode ajudar

 

ele procura registros em um arquivo txt.

<form method="post" action="buscaFSO.asp" name="buscar">   <input type="text" name="search" value="<%= request.form("search")%>">   <input type="submit" name="submit" value="buscar">   <input type="hidden" name="botao" value="true"></form><%'Verifica que o botão submit foi acionadoif request("botao") <> "" then   dim search   search = request.Form("search")   search = trim(search)'Criamos um objeto FSO para abrir o arquivo txt   dim ObjAbreArq, ObjFso, Var_Caminho   Var_Caminho = Server.MapPath("meuarquivo.txt") 'nome do arquivo txt    set ObjFso = Server.CreateObject("Scripting.FileSystemObject")   set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho, 1, true, False)   'Verificamos se existe o conteudo no arquivo txt	if ObjAbreArq.AtEndOfStream = true then  response.Write("Não existem informações no arquivo")	else  dim contador  contador = 0  Do While Not ObjAbreArq.AtEndOfStream  linha = ObjAbreArq.ReadLine    icampo = split(linha,",",-1,1)    if ucase(trim(icampo(0))) = ucase(trim(search)) then  	response.Write "<a href='"& trim(icampo(1))&"'>"& trim(icampo(0)) &"</a><br>"  	contador = contador + 1  end if  	Loop  	  	response.Write "Total de registros encontrados: <b>"& contador &"</b><br>"	end if		ObjAbreArq.close	set ObjAbreArq = nothingend if%>

Isso é so uma ideia, agora é so implementar e usar.

tava esquecendo, este codigo procura registros em um arquivo txt com este tipo de conteudo separado por virgula.

Marcus, 15/1/1985, São PauloWilliam, 07/12/1974, ValinhosGabriel, 07/03/2001, ValinhosCardeal, 29/1/1980, Rio de Janeiro