Escribir en archivo de texto

[jclaurian]

Estoy intentando agregar los datos de un textbox a un archivo, tengo el siguiente código:

Dim materias As New FileStream("C:\mat01.dat",FileMode.OpenOrCreate)
Dim SWrite As New System.IO.StreamWriter(materias)
Dim i As String

i = TextBox1.Text
SWrite.WriteLine(i)
SWrite.Close()
materias.Close()

Esto agrega el valor del textbox al archivo, pero el problema es que siempre escribie en el mismo lugar, es decir, lo reemplaza, ¿de qué forma puedo hacer que los elementos que valla ingresando tomen la forma de una lista? es decir, que cada elemento se agrege en un renglon nuevo. Estoy usando VB.NET

Gracias

[Kelpie]

Estás empleando el modo 'openOrCreate'. Yo creo que mejoraría mucho la cosa si empleas el método 'Append':

Código:

Dim materias As New FileStream("C:\mat01.dat",FileMode.Append,FileAccess.Write)

Ojo, porque abieto de esta manera no se puede leer, solo escribir. Si intentas leer... excepción al canto.

Tambien puedes hacerlo con

Código:

Dim salida As StreamWriter
salida = File.AppendText("C:\mat01.dat") 'Abrir para añadir
salida .WriteLine("Una linea que añado...") 'Añadir
salida .WriteLine("Y otra")
salida .Flush() 'Acabar de escribir
salida .Close() 'Cerra

Con este método, el fichero debe existir!!!

Espero que te sirva

Saludos

[David]

Iniciado por jclaurian

Estoy intentando agregar los datos de un textbox a un archivo, tengo el siguiente código:

Dim materias As New FileStream("C:\mat01.dat",FileMode.OpenOrCreate)
Dim SWrite As New System.IO.StreamWriter(materias)
Dim i As String

i = TextBox1.Text
SWrite.WriteLine(i)
SWrite.Close()
materias.Close()

Esto agrega el valor del textbox al archivo, pero el problema es que siempre escribie en el mismo lugar, es decir, lo reemplaza, ¿de qué forma puedo hacer que los elementos que valla ingresando tomen la forma de una lista? es decir, que cada elemento se agrege en un renglon nuevo. Estoy usando VB.NET

Gracias

Sería más fácil utilizar Open y Line Input para guardar en un archivo...

[jclaurian]

Gracias Kelpie
Me funciono el código que me pasaste.
Sobre utilizar Open y Line Input, voy a ver que tal, gracias.