Visual Basic.NET - Guardar y Abrir Archivos (de texbox a .txt y .txt a textbox)

   
Vista:

Guardar y Abrir Archivos (de texbox a .txt y .txt a textbox)

Publicado por Marisol (11 intervenciones) el 25/09/2014 19:05:28
Muy buenas tardes.

Lo último que falta de mi programa es guardar y leer la información que guardé, he estado buscando diferentes fuentes para concluirlo, pero aún así no logro hacerlo o cargar el texto en el textbox correspondiente.
Por ejemplo adjunto la imágen de como se ve mi formulario.

1

pongo mi código para guardar ya que eso funciona bien, o al menos me funciona no sé si sea el correcto.

3

Ahora lo que necesito es con el archivo guardado cargarlo nuevamente a los campos correspondientes.
Aún no sé si me faltan instrucciones pero no.
Tengo esto programado y no llena mi el primer campo.

Si puedieran me gustaría un poco de ayuda para rellenar los campos con la información guardada

2

Adjunto el resultado de ejecutar el programa, un archivo .txt

De antemano gracias, se que aquí hay gente muy capaz por eso pido ayuda, excelente día
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Guardar y Abrir Archivos (de texbox a .txt y .txt a textbox)

Publicado por Miguel (350 intervenciones) el 25/09/2014 20:19:25
Hola, para guardar los campos en un *txt te recomiendo que utilices "&" en lugar de "+" (ya que si hay valores integer se sumarán). Aquí te paso una función para leer determinada linea de un archivo *txt. Si necesitas algo más comunícate.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Function LeerLineaTXT(ByVal RutaArchivoTXT As String, ByVal NumeroLinea As Long) As String
        	Dim Lines() As String = {String.Empty}
        	Dim Line_Length As Long = 0
        	Try
            	Lines = IO.File.ReadAllLines(RutaArchivoTXT)
            	Line_Length = Lines.LongLength - 1
            	Return Lines(NumeroLinea - 1)
        Catch ex As Exception
            	MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        Finally
            	Lines = Nothing
            	Line_Length = Nothing
        End Try
        	Return Nothing
    	End Function



Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Guardar y Abrir Archivos (de texbox a .txt y .txt a textbox)

Publicado por Lucas Nahuel (6 intervenciones) el 25/09/2014 20:34:28
Buenas tardes, te aconsejo que utilizes una sola liñea separado por un caracter, te será mas facil leer .txt en ese formato, en vez de separarlos por salto de línea.

Ej:
En el .txt que creas reemplaza los "vbCrlf" por ';' y también reemplaza los '+' por '&'

Luego lees el archivo de la siguiente manera:


1
2
3
4
5
6
7
8
9
10
11
12
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("Ruta del archivo\archivo.txt")
   MyReader.TextFieldType = FileIO.FieldType.Delimited
   MyReader.SetDelimiters(";")        'Separador del archivo de texto, en este caso punto y coma
   While Not MyReader.EndOfData ' Mientras no sea el final del archivo
 currentRow = MyReader.ReadFields()  'esto llenara el string() con las posiciones que contenga el .txt
 
Nombre.Text = currentRow(0).toString()
Paterno.Text = currentRow(1).toString()
Materno.Text = CurrentRow(2).toString()
Cuenta.Text = CurrentRow(3).toString() 'Y asi sigues hasta completar todos los controles.
End While
End Using

Además te dejo la observación que en el código que pusiste obtienes el nombre de la fila (FileName) pero no lo usas en la ruta. debería ser
ruta = "c:\Users\Dell\Desktop\" & FileName
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Guardar y Abrir Archivos (de texbox a .txt y .txt a textbox)

Publicado por Jorge (11 intervenciones) el 25/09/2014 22:38:46
Sí muchas gracias (:
Al parecer tenia problemas por importar la impormación 1 por 1, y con CurrentRow no sabía como utilizarlo.
Quedó de maravilla.

Gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar