Código Fonte - O melhor conteúdo para programadores

Autor

Angelo Resende Júnior

membro deste dezembro de 2006

Compartilhe e guarde

Enquete

Com qual Framework JavaScript você trabalha?

Home Código Fonte ASP Arquivos

Visualizar arquivo TXT em página ASP

Um exemplo simplificado de como podemos visualizar arquivos TXT em página ASP

*´¨) AN-ICE
¸.•´¸.•*´¨) ¸.•*¨)
(¸.•´ (¸.•` * ANGELO JÚNIOR (.)(.)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
'O parâmetro forReading é utilizado somente para leitura.
ForReading = 1
'Informe aqui o caminho do arquivo TXT
str_caminho="C:\nome_do_arquivo.txt" 
%>

<HTML>
<HEAD>
<title>.:: C&oacute;digo Fonte ::.</TITLE>
</HEAD>
<BODY>
<table width="424" border="1" align="center">
<tr>
<td height="67"><div align="center">Arquivo TXT em p&aacute;gina ASP </div></td>
</tr>
<tr>
<td height="67"><div align="center">

<% 
'Cria o objeto
Set objeto = CreateObject("Scripting.FileSystemObject")

'Condição para verificar se o arquivo exite no local informado
If (objeto.FileExists(str_caminho)) Then
%>
	<textarea name=caixa rows=15 cols=60 value="" >
	<%
	'Abertura do objeto e loop para ler o arquivo TXT
	Set str_fso = objeto.OpenTextFile(str_caminho,ForReading,False)
	While (not str_fso.AtEndOfStream) 
	campo = str_fso.readline 
	response.write(Server.HTMLEncode(campo) & CHR(13)) 
	wend
	%>
	</textarea>
<%
Else
	response.write "Arquivo não encontrado !!!"
End If
%>
</div>
</td>
</tr>
<tr>
<td height="67"><div align="center"><font size="1"><a href="http://www.codigofonte.com.br">www.codigofonte.com.br</a></font></div></td>
</tr>
</table>
<% 
Set str_fso = nothing 
set objeto = nothing 
%> 
</BODY> 
</HTML>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
'O parâmetro forReading é utilizado somente para leitura.
ForReading = 1
'Informe aqui o caminho do arquivo TXT
str_caminho="C:\nome_do_arquivo.txt" 
%>

<HTML>
<HEAD>
<title>.:: C&oacute;digo Fonte ::.</TITLE>
</HEAD>
<BODY>
<table width="424" border="1" align="center">
<tr>
<td height="67"><div align="center">Arquivo TXT em p&aacute;gina ASP </div></td>
</tr>
<tr>
<td height="67"><div align="center">

<% 
'Cria o objeto
Set objeto = CreateObject("Scripting.FileSystemObject")

'Condição para verificar se o arquivo exite no local informado
If (objeto.FileExists(str_caminho)) Then
%>
	<textarea name=caixa rows=15 cols=60 value="" >
	<%
	'Abertura do objeto e loop para ler o arquivo TXT
	Set str_fso = objeto.OpenTextFile(str_caminho,ForReading,False)
	While (not str_fso.AtEndOfStream) 
	campo = str_fso.readline 
	response.write(Server.HTMLEncode(campo) & CHR(13)) 
	wend
	%>
	</textarea>
<%
Else
	response.write "Arquivo não encontrado !!!"
End If
%>
</div>
</td>
</tr>
<tr>
<td height="67"><div align="center"><font size="1"><a href="http://www.codigofonte.com.br">www.codigofonte.com.br</a></font></div></td>
</tr>
</table>
<% 
Set str_fso = nothing 
set objeto = nothing 
%> 
</BODY> 
</HTML>

Este código foi útil para você?

Nota	Comentário
Ainda não foi enviado nenhum comentário.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco