Visual Basic - URGENTE!! acceso ficheros directos

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE!! acceso ficheros directos

Publicado por yolanda (22 intervenciones) el 11/04/2002 05:25:38
necesito ayuda urgente, no sé como leer y escribir en un fichero directo,
parto de un formulario con 3 cajas de texto, que voy guardando en un
type registro
muchísimas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTE!! acceso ficheros directos

Publicado por jose carlos (243 intervenciones) el 11/04/2002 14:03:48
para crear un archivo usa
OPEN ARCHIVO FOR OUTPUT AS #1
PRINT #1,TEXTO
CLOSE #1

Para recuperar el archivo
OPEN ARCHIVO FOR INPUT AS #1
INPUT #1,A
CLOSE #1

En ARCHIVO debe estar la dirección exacta y el nombre del aqrchivo a crear o recuperar.
Cuidado con las comas, en caso de que las uses, no uses input sino LINE INPUT

SALUDOS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:URGENTE!! acceso ficheros directos

Publicado por Daniel (75 intervenciones) el 12/04/2002 02:00:34
Yolanda:

Para acceder a un registro en un archivo random o aleatorio, tienes que saber la posicion del registro,, es decir.. el registo 1 se graba en la posicion 1, y asi sucesivamente, para saber la posicion en donde grabar tienes que saber el tamaño del registro (len)

Aca te mando un ejemplo:

Option Explicit
Dim NuevaPosicionRegistro as Integer

'// Aca definis el registro
Type Agenda
Nombre As String * 25
Direccion As String * 25
Telefono As String *20
End Type
'--- asi lo abres
Open "Archivo.ext" For Random As 1 Len = (70)
NuevaPosicionRegistro=(lof(1)/70)+1
'----

Agenda.nombre = txtName.text
Agenda.direccion = txtDireccion.Text
Agenda.telefono = txtTelefono
Put #1, NuevaPosicionRegistro,Agenda
Close #1
'--------------------- ojo si quieres modificar un registro existente
primero tienes que llamarlo con
get#1, Posicion,Registro

y luego actualizar los datos y volver a usar el put#...

Bueno espero que te ayude en algo

Saludos desde Argentina

Daniel




Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar