p2p.wrox.com: Archives - aspx

aspx_espanol thread: Archivo txt
Message #1 by "jayson osvaldo" <jabord@h...> on Fri, 26 Apr 2002 13:35:30 -0500
<html><div style='background-color:'><DIV>
<P>Hola listeros.</P>
<P>Tengo una dificultad, quiero leer un archivo txt, bueno en realidad ya tengo el c�digo para leerlo:</P>
<P>&nbsp;Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim build As New
StringBuilder()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim line As
String<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim lineENC As
String<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim filename As String =
"c:\explorer.txt"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Try<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim sr
As StreamReader =
File.OpenText(filename)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp; line =
sr.ReadLine()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
; lineENC = Server.HtmlEncode(line) &amp; vbCrLf &amp;
"&lt;br&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&a
mp;nbsp;
build.Append(lineENC)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&
amp;nbsp; Do While Not line Is
Nothing<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&
nbsp;&nbsp;&nbsp;&nbsp; line =
sr.ReadLine()<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp;&nbsp;&nbsp; lineENC = Server.HtmlEncode(line) &amp; vbCrLf &amp;
"&lt;br&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&a
mp;nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
build.Append(lineENC)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&
amp;nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Response.Write(lineENC)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp; Loop<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Catch ex As
Exception<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Response.Write(ex.Message)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Try</P>
<P>&nbsp;&nbsp;&nbsp; End Sub<BR></P>
<P>Pero esto me coloca el texto, pegado al margen sin espacios. Alguien sabe como hacerlo de otra manera que lee el archivo
tal como esta. U otra idea para abrir y mostrar un archivo txt.</P>
<P>Saludos Gracias<BR></P></DIV>
<DIV></DIV>VisualStudio.Net lo mejor del Web 
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV><mailto:%%email.unsub%%>
<DIV></DIV></mailto:%%email.unsub%%></div><br clear=all><hr>Get your FREE download of MSN
Explorer at <a href='http://g.msn.com/1HM100901/155'>http://explorer.msn.com</a>.<br></html>
Return to Index
P2P Archives
