ABCdatos

tengo un programa en visual basic el cual me guarda la informacion que le introdusca en un bloc de notas, lo que pasa es que al guardar informacion me borra la informacion contenida anteriormente, pero lo que quiero y no se como hacer es que me guarde toda la informacion que le introdusca para que mas tarde la pueda consultar, GRACIAS. Aqui les dejo el codigo de mi boton para ver si alguien me puede ayudar
Dim savefile As Long
Open ("i:data.txt") For Output As #1
Write #1, Text1.Text
Write #1, Text2.Text
Write #1, Text3.Text
Write #1, Text4.Text
Write #1, Text5.Text
Write #1, Text6.Text
Close #1
MsgBox "los datos han sido guardados correctamente"

Si he entendido bien el problema que planteas, lo que no te gusta es que cada vez que ejecutas el programa, te vacía el archivo, sobrescribiendo los datos anteriores. Para que los nuevos datos se anexen a lso ya existentes en lugar de empezar de cero, cambia en la apertura del archivo Output por Append, quedando así:

Pitufo escribió:Si he entendido bien el problema que planteas, lo que no te gusta es que cada vez que ejecutas el programa, te vacía el archivo, sobrescribiendo los datos anteriores. Para que los nuevos datos se anexen a lso ya existentes en lugar de empezar de cero, cambia en la apertura del archivo Output por Append, quedando así:

Código: Seleccionar todo

Open ("i:data.txt") For Append As #1

ya lo probe y me funciono de maravilla GRACIAS, solo tengo una duda ¿ para que funciona Append ? de verdad GRACIAS

SJACH escribió:¿ para que funciona Append ?

No entiendo la pregunta, append es el modo de apertura para escritura de un archivo secuencial, agregando los datos desde el final del archivo.

Consulta la documentación del comando open de la versión que utilices.

ya esta me funciono muy bien gracias por todo pero ahora tengo otro problema lo que pasa es que nesesito borrar los registros que voy creando, para esto tengo un boton y en el tengo el siguiente codigo

Private Sub Command1_Click()
Dim nombre As String
Dim precio As String
Dim calidad As String
Open ("c:data.txt") For Input As #1
Open ("c:pasadata.txt") For Append As #2
Do While Not EOF(2)
Input #1, nombre
Input #1, precio
Input #1, calidad
If nombre = Text1.Text Then
Text1.Text = nombre
Text2.Text = precio
Text3.Text = calidad
End If
Close #1
Close #2
Kill ("c:data.txt")
MsgBox "los datos han sido borrados correctamente"
Loop
End Sub

espero y me puedan ayudar el error me lo marca en donde esta el "open" gracias por todo

Si intentas hacer sangrado en el código para aclarar el principio y final de las aperturas de archivos y bucles, verás que el anidado es incorrecto, al igual que sucede con el kill, que trata de eliminar un archivo abierto y múltiples veces además.

Pitufo escribió:Si intentas hacer sangrado en el código para aclarar el principio y final de las aperturas de archivos y bucles, verás que el anidado es incorrecto, al igual que sucede con el kill, que trata de eliminar un archivo abierto y múltiples veces además.

Entonces como puedo hacer para borrar o eliminar un registro que ya realice anteriormente????