hola, tengo un problema, hice 2 archivos txt para guardar el nombre de usuario y contraseña del cliente, pero cuando la guarda, pues pone detras del usuario y pass unas barritas negras y gordas, y si lo pongo en multiline el textbox no salen, pero no me carga bien el nombre y pass, ya que esta solo en la 1º linea, aver quien me puede ayudar, necesito hacerlo sin CommonDialog. Aqui les dejo el codigo que tengo

Para guardar:

Código:

Private Sub Command1_Click()

Dim foo As Integer
foo = FreeFile
Open "./data/usuario.nudbox" For Output As #foo
Print #foo, Text1.Text
Close #foo

Dim foo1 As Integer
foo1 = FreeFile
Open "./data/pass.nudbox" For Output As #foo1
Print #foo1, Text2.Text
Close #foo1

MsgBox ("Para que los cambios tengan efecto,debera reiniciarse la aplicacion")
 Me.Hide
 End
End Sub

Para Cargar:

Código:

Private Sub Form_Load()
Dim foo As Integer

foo = FreeFile
Open "./data/usuario.nudbox" For Input As #foo
config.Text1.Text = Input(LOF(foo), #foo)
Close #foo

Dim foo1 As Integer

foo1 = FreeFile
Open "./data/pass.nudbox" For Input As #foo1
config.Text2.Text = Input(LOF(foo1), #foo1)
Close #foo1
End Sub

aver si alguien sabria como hacer que me cargara solo la 1º linea y me guardara tambien solo la 1º

gracias

Iniciado por soru13

pero cuando la guarda, pues pone detras del usuario y pass unas barritas negras y gordas

es raro.. a mi me carga perfecto..
no será que al guardar los archivos, el text1 y el text2 estan en multiline y les tienes que en el keypress al apretar ENTER en los textbox, se aprete el command1 ?? porque asi, el ENTER generaria un salto de linea en el textbox multilinea y quizá al leerlos tienes los texbox sin multilinea por lo que no acepta los saltos de linea que generaste "accidentalmente" al guardarlos, ahi es cuando genera las lineas gordas, cuando hay saltos de linea pero el textbox no los esta admitiendo, porque este no es multilinea.

Mi propuesta, revisa los keypress, keydown o keyup, porque podria ser que al apretar enter se genera un salto de linea... o pon los textbox al leer y guardar en multiline = false.

O como ultimo recurso, la forma mala, con la funcion replace, remplaza vbLf, que son esa barritas, por vbNull o "".

Saludos,
Skipped

Edited by: Skipped

ya lo arregle

bueno, pues lo que hice fue pasar el texto a un label, y luego que un textbox cojiera el Label, y otro textbox cojiera ese pero solo la 1º linea

gracias por la ayuda

Edited by: soru13

Hola soru13, tu codigo tiene un problema, no se si te diste cuenta que en el archivo nudbox solo queda grabado el contenido del Text2. Esto se debe a que estas abriendo dos veces el archivo en modo Output.
cuando se abre un archivo en modo Output se destruye el contenido del archivo.
Te dejo un ejemplo que lo probé y funciona

Private Sub Grabar()

Open "C:\nudbox" For Output As #1
Write #1, Text1.Text, Text2.Text
Close

End Sub


Private Sub Leer()

Dim T1 As String, T2 As String
Open "c:\nudbox" For Input As #1
Input #1, T1, T2
Close
Text1 = T1
Text2 = T2

End Sub

A mi parecer no es una buena idea, lo de un label y recuperarlo de ahi, puedes por eemplo guardar el usuario y la contraseña en el registro de windows, por ejemplo

Código:

Private Sub Command1_Click()
SaveSetting App.EXEName, "Configuracion", "Usuario", Text1.Text
SaveSetting App.EXEName, "Configuracion", "Password", Text2.Text
End Sub

Private Sub Form_Load()
config.Text1.Text = GetSetting(App.EXEName, "Configuracion", "Usuario", "")
config.Text2.Text = GetSetting(App.EXEName, "Configuracion", "Password", "")
End Sub

Ademas de que el contenido lo puedes encriptar con algunas funciones muy simples, busca en la seccion "Guia de Recursos"

Hola amigos, Sorry no leí bien y escribí cualquier cosa. Lo siento. Saludos