Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: forrestgump en 3 Junio 2008, 23:12 pm



Título: ayudita con un Form por favor
Publicado por: forrestgump en 3 Junio 2008, 23:12 pm
Buenas  amigos...miren el caso que tengo es que:

tengo 2 FORM en uno de ellos leo un archivo .txt  ubicado en C:/MALPICA/NOMBRES.TXT  el caso esque cuando elimino algo de  ahi lo borra  de una lista y del archivo eso esta bien pero cuando vuelvo a  abrir el FORM y agrego un NOMBRE mas a la lista se  agrega  a la lista pero me  elimina todo lo ANTERIOR de el archivo   agregandose  el NUEVO  solamente  :-[...


 alguien  puede  ayudar ???



Título: Re: ayudita con un Form por favor
Publicado por: seba123neo en 3 Junio 2008, 23:18 pm
Hola,es porque seguro estas usando el Output para escribir en el archivo,usa Append...

saludos.


Título: Re: ayudita con un Form por favor
Publicado por: forrestgump en 3 Junio 2008, 23:44 pm

Muchas  gracias  por  responder  amigo.. mira este es  parte de mi codigo.


Private Sub Command1_Click()          AQUI AGREGO
List2.AddItem Text1.Text
Text1.Text = ""
List2.AddItem List2
Text1.SetFocus
If List2.ListIndex = -1 Then Exit Sub
List2.RemoveItem List2.ListIndex
Call GuardarArchivo
Text1.SetFocus
End Sub



Private Sub GuardarArchivo()         AQUI   GUARDO EN EL ARCHIVO
Dim i As Integer
Open "c:\malpica\lineas.txt" For Append As #1
For i = 0 To List2.ListCount - 1
Print #1, List2.List(i)
Next i
Close #1
End Sub


Acabo de  agregar APPEND  tal como me  dices y  lo que paso esque  se  agrega el nombre1  y cuando vuelvo a  agregar nombre2  se  repite el nombre1    apareciendo 2 veces..  creo que ya nose ni lo que hago puede ser ago tan simple y no me doy cuenta por eos te anexo  el codigo.   GRACIAS.