Bueno chicos la verdad es que recién estoy empezando a ver archivos, por lo que me cuesta todavía, lo que quiero hacer es un programa como el siguiente:
(http://i54.tinypic.com/2ywy4v9.jpg)
Quiero que vaya cargando los datos en un archivo aleatorio, y la primera vez lo ponga en la primera línea del archivo, la segunda vez que coloca datos en la línea siguiente (la segunda) y así sucesivamente
Este es el código que tengo pero no me funciona (aparte la edad en el archivo se ve mal, se ve así (http://i56.tinypic.com/2hfkz1j.jpg))
Public Type Persona
Nombre As String * 10
Apellido As String * 10
Edad As Byte
End Type
Private Sub cmdAceptar_Click()
Dim Alumno As Persona
Static i As Byte: i = 1
Open App.Path + "\datos.dat" For Random As #1 Len = Len(Alumno)
Alumno.Nombre = txtNombre.Text
Alumno.Apellido = txtApellido.Text
Alumno.Edad = txtEdad.Text
Put #1, i, Alumno
Close #1
i = i + 1
End sub
Alguien me puede decir como hago que me grabe los datos una línea abajo de otro y por qué los números se me ven en el archivo como puse en la imagen??
Gracias! :D
¿Te sirve esto?
Open "C:\prueba1.txt" For Append As #1
Print #1, Nombre
Print #1, Apellido
Print #1, Tel
Close
Saludos.
Claro pero eso no es acceso aleatorio, yo lo que ando buscando es poder hacerlo con archivos de acceso aleatorio
Gracias igual! A ver si alguien me puede dar una mano :-\
ok, omiti esa parte del acceso aleatorio,
prueba con esto:
Private Sub Command2_Click()
FF = FreeFile
Open "C:\datos.dat" For Random As FF Len = 255
Get FF, Num, Alumno
Me.TxtApellido = Alumno.Apellido
Me.TxtEdad = Alumno.Edad
Me.TxtNombre = Alumno.Nombre
Close
End Sub
esto es para leer lo que esta en el .dat
Tal parece que no importa como quede guardado,siempre y cuando leas este archivo tambien de forma aleatoria.
Saludos.