Como podria bajar una linea cuando grabo texbox en un txt

[luis456]

Bueno tengo un bloke de 12 texbox que reciben los datos que son numeros y para
guardar esos datos tendrían que ser de lineas de tres

datos de;
texbox1  texbox2, texbox3
texbox4  texbox5, texbox6
texbox7  texbox8, texbox9 ....

con esta rutina tengo solventado lo del txt pero solo escribe una linea

Código [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, _
                      ByVal e As System.EventArgs) _
                      Handles Button2.Click
        ' Crea el archivo 
        FileOpen(1, "C:\Users\Acuario\documents\visual studio 2010\Projects\texto.txt", OpenMode.Output)
        ' escribe el contenido 
        Write(1, TextBox8.Text, TextBox9.Text, TextBox10.Text)

        FileClose(1) ' lo cierra 
    End Sub



Luis

[Eleкtro]

Deberías reemplazar todo el código porque estás usando métodos de VB6 en VB.NET, FileOpen, Write, Fileclose.

Y también podrías concatenar el texto para no estar abriendo/cerrando el archivo cada vez:

Código (vbnet) [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button2.Click

   Dim [Text] As String = String.Format("{1}{0}{2}{0}{3}{0}{4}", Environment.NewLine, _
                                        TextBox1.Text & TextBox2.Text & TextBox3.Text, _
                                        TextBox4.Text & TextBox5.Text & TextBox6.Text, _
                                        TextBox7.Text & TextBox8.Text & TextBox9.Text, _
                                        TextBox10.Text & TextBox11.Text & TextBox12.Text)

   MsgBox([Text])
   IO.File.WriteAllText(".\Test.txt", [Text], System.Text.Encoding.Default)

End Sub

EDITO: O puedes crear propiedades si quieres manejar las filas de textboxes por separado...

Código (vbnet) [Seleccionar] Expandir

   ReadOnly Property Text1 As String
       Get
           Return String.Format("{1}{0}{2}{0}{3}", _
                                Convert.ToChar(Keys.Space), _
                                TextBox1.Text, TextBox2.Text, TextBox3.Text)
       End Get
   End Property

Código (oobas) [Seleccionar] Expandir

MsgBox(Me.Text1)

Saludos

[luis456]

Gracias Elektro

lo de reemplazar los datos se debe que cada ves que se hace la función se modifican todos los datos no son datos fijos,probe tu codigo y no da errores pero no se como o donde se crea el txt lo he buscado y na, es que este archivo txt cada ves se debe de imprimir para guardarlo físicamente,


Luis

[Eleкtro]

probe tu codigo pero no se como o donde se crea el txt lo he buscado y na

Código [Seleccionar] Expandir

IO.File.WriteAllText(".\Test.txt")

Fíjate en la ruta, se crea en el directorio actual de trabajo (WorkingDir), es decir, que si en tu applicación no modificas el parámetro del directorio de trabajo actual entonces el TXT se creará en la carpeta de compilación de tu aplicación, en la carpeta "...\...\Debug" o "...\...\Release".

PD: No creo que fuese necesario realizar una pregunta sobre donde se escribe el archivo, ¿Porque no le pones la ruta que tu quieras y ya está? xD.

Saludos.

[luis456]

bueno es que lo de la pregunta es que antes de hacerla lo he buscado (tan novato no soy jejeje pero no lo he encontrado) por eso    a demás mis 5...y picote de años no estoy tan pilas como antes jeje, y te agradezco la ayuda, yo no vivo de esto es solo pasión por la programación, yo vivo de las tuercas soy mecánico de camiones

Muchas gracias por tu ayuda de verdad

Luis

[Eleкtro]

yo no vivo de esto es solo pasión por la programación

Muchas gracias por tu ayuda de verdad

yo diría que el 90% de los que frecuentan esta sección les apasiona la programación (el resto solo quieren que le hagan el trabajo), tampoco vivo de esto, aunque hago lo que puedo como Freelancer.

Pa eso estamos, si no has entendido algo del tobo bien no dudes en preguntar,
Un saludo!

[luis456]

yo diría que el 90% de los que frecuentan esta sección les apasiona la programación (el resto solo quieren que le hagan el trabajo), tampoco vivo de esto, aunque hago lo que puedo como Freelancer.

Pa eso estamos, si no has entendido algo del tobo bien no dudes en preguntar,
Un saludo!

Gracias de nuevo,, AAA ya conseguí el archivo jejej me sirve y cuando acabe con el te muestro lo que hace

Luis