RE:datos en archivo de texto(yo te ayudo pero poco
Publicado por
John (1 intervención) el 19/04/2006 06:31:20
Lo puedes hacer con un archivo de tipo binario ( puede ser un "mi_archivo.dat")
ejemplo:
Private Type Registros
Nombre as String 'viene siendo el "campo" "Nombre"
Edad as Integer 'Viene siendo el "campo "Edad"
End Type
Dim Registro as Registros
Private Sub cmdAgregar_Click()
Open App.Path + "/MiArchivo.dat" For Random as #1 ' Si no existe lo crea
' Agregamos valores
Registro.Nombre = txtNombre.Text
Registro.Edad = Val(txtEdad.Text)
' Escribimos en el archivo los registros
Put #1, 1, Registro
Close
End Sub
Private Sub cmdVer_Click()
Open App.Path + "/MiArchivo.dat For Random as #1
Get #1, 1, Registro 'en ésta parte vemos cómo obtenemos el registro "1" del archivo "#1" y lo colocamos en "Registro"
'...y lo mostramos en sus respectivas cajas de texto
txtVerNombre.Text = Registro.Nombre
txtVerEdad.Text = Registro.Edad
'Cerramos
Close
End Sub
Hasta ahí te puedo ayudar, pero cheka
si ponemos " Put #1, 1, Registro", habremos agregado un sólo registro para poner otro sería en "Put #1, 2, Registro", claro que te diste cuenta del "2" verdad?
ok, si encuentras la forma de hacer más dinámico esto, es decir agregar más registros y lograr hacer una "búsqueda" de un determinado registro para mostrarlo en su respectiva caja de texto me mandas un mail porfa' me serviría mucho, pues lo que te mostré es hasta donde sé.
Por cierto, espero te haya servido.
Saludos, John