[Resolvido] Tabelando dados em TXT

d.eleete · Novembro 18, 2003

Este script utiliza o objeto FSO para ler e tabelar dados de um documento TXT.

São 2 arquivos que devem estar no mesmo diretório.

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

Arquivo nomes.txt

Antonio;19;pirilampo@saracura.com.brJoão;20;john@shitman.comMaria;17;m17@hotmail.com

Arquivo fso_txt.asp

<%@LANGUAGE="VBSCRIPT"%><%'Desenvolvido por D.eleete - http://www.deleete.kit.net - ICQ#37784213'Este script é de uso livre, e se for mantido em sua forma original, favor conservar os créditos.'Nome do Arquivo txt, deve estar no mesmo diretório que o scriptArquivo = "nomes.txt"'Setando o objeto principalset fso = server.CreateObject("Scripting.FileSystemObject")'Verificando se o arquivo existe ou não (ok ou nok)if fso.FileExists(server.MapPath(Arquivo)) = true then	vExiste = "ok"else	vExiste = "nok"End if %><html><head><title>Manipulando TXTs</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%'Caso o arquivo exista, executa os parametros abaixoif vExiste = "ok" then%><table width="59%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000"> <tr nowrap bgcolor="#FFFFFF">   <td width="28%">Nome:</td>  <td width="11%">Idade:</td>  <td width="61%">Email:</td> </tr><%'---'Abrindo o arquivo TXT com o método OpenTextFileset obj = fso.OpenTextFile(server.MapPath(Arquivo), 1)'---'Listando os dados do txt (linha por linha) até o fim do arquivoWhile obj.AtEndOfStream = false	response.write("<tr nowrap bgcolor=""#FFFFFF"">")&vbCrlf	Arr = NOK	linha = obj.ReadLine ' ReadLine é o método que lê cada linha do txt	'---	Arr = split(linha,";")' Dividindo cada linha por; (ponto e vírgula)	for x = lbound(Arr) to ubound(Arr) ' Loop para criar as colunas <td> dentro das linhas <tr>  response.write(" <td>"&Arr(x)&"</td>"&vbCrlf)	next	'---	response.write("</tr>"&vbCrlf)	Wend'---'Fechando os objetosset obj = nothingset fso = nothing %></table><%'Caso o arquivo não exista executa os parametros abaixoelse%><%response.write("O Arquivo <b>"&Arquivo&"</b> não foi encontrado!")End if%></body></html>

Entrar

Arquivado

[Resolvido] Tabelando dados em TXT

Recommended Posts

d.eleete 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

PHP+Codeigniter - Dúvida referente a PDV

PHP+Codeigniter - Dúvida em Relação a Teclas

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante