Datos a archivo txt

[seques]

Hola de antemano gracias xq me han ayudado mucho, soy novato en esto y la verdad me ha gustado bastante trabajar con vs.net. Bien, ahora quisiera pedirles ayuda para enviar la informacion diligenciada en un formulario a un archivo de texto de forma q quede organizada; otra cosa: para validar un textbox q solo ingresen numeros (no comprendo aun como se usa el custom validator); y la ultima ya como de diseño ¿a perte de los estilos de bordes de los paneles q hay en las propiedades puedo poner uno dfte, como?
De nuevo gracias...MAESTROS!

[RootK]

ahora quisiera pedirles ayuda para enviar la informacion diligenciada en un formulario a un archivo de texto de forma q quede organizada;

no entiendo a que le llamas organizada.?? lo quieres guardar en un archivo tipo .csv, o con algun separador y mostrarlo dentro de algun contenedor, tabla, panel, como un simple response.. o como..??

otra cosa: para validar un textbox q solo ingresen numeros

En post pasado ya se ha tratado ese tema (puedes usar el buscador) de hecho también está en las faq´s,

ya como de diseño ¿a perte de los estilos de bordes de los paneles q hay en las propiedades puedo poner uno dfte, como?

No entiendo.

Salu2

[seques]

Bien lo q necesito es guardar los datos ingresados, pero es q cada vez q lo hago me sobreescribe el archivo (reemplaza lo q habia, es un .txt). Esto es lo q hago:
Private Sub escribir()

Dim newFile As IO.File
Dim strStreamW As IO.Stream
Dim swText As IO.StreamWriter

Dim TextFile As String = ("C:\correo\contact.txt")

''strStreamW = File.Create(TextFile)
strStreamW = File.OpenWrite(TextFile)
swText = New StreamWriter(strStreamW, System.Text.Encoding.UTF8)

swText.WriteLine("fecha: " + Me.fecha.Text)
swText.WriteLine("nombre: " + Me.txt_nombre.Text)
swText.WriteLine("empresa: " + Me.txt_empresa.Text)
swText.WriteLine("e-mail: " + Me.txt_email.Text)
swText.WriteLine("telefono: " + Me.txt_telef.Text)
swText.WriteLine("ciudad: " + Me.txt_ciudad.Text)
swText.WriteLine("asunto: " + Me.txt_asunto.Text)
swText.WriteLine("Comentario: " + Me.txt_coment.Text)
swText.Write("************************************ ************************")

swText.Close()

End Sub

////////////////////
intente cambiar strStreamW = File.OpenWrite(TextFile) por strStreamW = File.AppendText(TextFile) pero me saca error

[RootK]

pero es q cada vez q lo hago me sobreescribe el archivo (reemplaza lo q habia, es un .txt)

pero cual es tu problema??? que lo sobreescriba ?? quieres que sobreescriba o que despliegue un mensaje de error de que si desea sobreescribir o no el file ? o que pretendes..??

[seques]

antes q nada rootk gracias por el interes.
lo que quiero es q me guarde los datos sin eliminar lo q ya habia (es decir q el archivo vaya aumentando de tamaño). por ej si en un principio el archivo contiene los siguientes datos:
-----
Fecha:07/07/06
Nombre: juan
Empresa:samsung
e-mail:juan(at)samsung.com
telefono:555555
ciudad:ny
asunto:ninguno
comentario:prueba
----
y se ingresan nuevos datos, el srchivo quede de la sgt manera


Fecha:07/07/06
Nombre: juan
Empresa:samsung
e-mail:juan(at)samsung.com
telefono:555555
ciudad:ny
asunto:ninguno
comentario:prueba
*************************

Fecha:07/08/06
Nombre: juana
Empresa:ibm
e-mail:juana(at)ibm.com
telefono:555628
ciudad:lima
asunto:ninguno
comentario:prueba 2
************************

y asi sucesivamente.
de nuevo gracias

[RootK]

ahh ok... si ese es el caso entonces puedes hacer ésto:

Dim TextFile As String = "C:\correo\contact.txt"
Dim separator = "*********************************"

If Not File.Exists(TextFile) Then
Dim fs As New FileStream(TextFile, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)
fs.Close()
End If

Dim swText As New StreamWriter(File.OpenWrite(TextFile), System.Text.Encoding.UTF8)
swText.BaseStream.Seek(0, SeekOrigin.End)
swText.WriteLine("fecha: " + Me.fecha.Text)
swText.WriteLine("nombre: " + Me.txt_nombre.Text)
swText.WriteLine("empresa: " + Me.txt_empresa.Text)
swText.WriteLine("e-mail: " + Me.txt_email.Text)
swText.WriteLine("telefono: " + Me.txt_telef.Text)
swText.WriteLine("ciudad: " + Me.txt_ciudad.Text)
swText.WriteLine("asunto: " + Me.txt_asunto.Text)
swText.WriteLine("Comentario: " + Me.txt_coment.Text)
sw.WriteLine(Chr(10) + Chr(13) + separator + Chr(10) + Chr(13))

sw.Flush() 'liberamos y cerramos objetos
sw.Close()

[seques]

Rootk muchas gracias funciono perfecto, disculpa x no hacerme entender antes