
24/06/2004, 12:14
|
 | | | Fecha de Ingreso: abril-2004 Ubicación: Zaragoza
Mensajes: 305
Antigüedad: 20 años, 11 meses Puntos: 0 | |
Muy buenas. A ver si te sirve esto:
- Para crear y escribir:
<%@ Import Namespace="System.IO" %>
<Script Runat="Server">
Sub Button_Click( s As Object, e As EventArgs )
Dim objStreamWriter As StreamWriter
objStreamWriter = File.AppendText( MapPath( "myFile.txt" ) )
objStreamWriter.WriteLine( txtInput.Text )
objStreamWriter.Close
End Sub
</Script>
<html>
<head><title>AppendText.aspx</title></head>
<body>
<form runat="Server">
<h1>Append to a Text File:</h1>
<br>
<asp:TextBox
ID="txtInput"
Runat="Server" />
<asp:Button
Text="Append Text!"
OnClick="Button_Click"
Runat="Server" />
</form>
</body>
</html>
- Para leer
<%@ Import Namespace="System.IO" %>
<Script Runat="Server">
Sub Page_Load
Dim objStreamReader As StreamReader
Dim strInput As String
If File.Exists( MapPath( "myFile.txt" ) ) Then
objStreamReader = File.OpenText( MapPath( "myFile.txt" ) )
strInput = objStreamReader.ReadLine()
While strInput <> Nothing
lblContents.Text &= "<li>" & strInput
strInput = objStreamReader.ReadLine()
End While
objStreamReader.Close
Else
lblContents.Text = "myFile.txt does not exist!"
End If
End Sub
</Script>
<html>
<head><title>OpenText.aspx</title></head>
<body>
<h1>Contents of myFile.txt</h1>
<asp:Label
ID="lblContents"
Runat="Server" />
</body>
</html>
Disculpa que te lo dé por separado, pero ando fatal de tiempo. Si tienes cualquier duda, ya sabes.
Un saludo.
__________________ Pide lo que quieras...y luego paga por ello |