Problema al escribir en un archivo aleatorio
Publicado por Daisy (1 intervención) el 09/06/2008 20:50:00
Hola!!
Espero contar con su ayuda y poder resolver ese problemita q tengo .
El caso es que estoy manejando archivos aleatorios y necesito escribir y modificar registros, creo una estructura para almacenar mis datos en el archivo, pero tengo una variable de tipo STRIG, la cadena que almaceno en esta variable es muy larga, contiene una cantidad de 808 caracteres como maximo, el problema es que cuando intento almacenar mi variable me mara un error 59 'Longitud de registro incorrecta'
este es mi codigo
option explicit
Private Type estructura_huella
var_iduser As String * 5
var_parametro As String * 808
End Type
Dim es_user As estructura_huella
Private Sub Command1_Click()
Dim unaCadena As String * 813 'Almacena la cantidad total de informacion
'Dim id_usuario As String * 5
Dim parametro As String * 808
Open "parametros_user.dat" For Random As #2 Len = Len(es_user)
id_usuario="15"
parametro= "AQAAABQAAAAUAgAAAQASAAMAYgAAAAAADAIAAB6sk*6nUwkYOIhvRu5s9GP98qbjcjffh6DbMum12G8IVxnxifdKyRB/Zr8bvzX6pUqIHBLe2BFNsByDO1hO/owt1eOKHsQ*G5ttGTxhjJvWptretretERTERtETTEWRTWERTvOg05N3tZ3JTTNoxCDMNyvXRokHpT3DixYF0RQ5Dmya*ptAYuXKiVjl5WdL17TqmatOg*c0iXrmiwsTAkQ7JO6JKFLb2cVkXswh0XcQ1QrxVAARt1*ZX3QlJd3xlShRSMNStyJO4ISE1*Rwqt5MVIonbeWzXnlOd/SEvo7fUZjeYtBTwgQDAadr3rvwaZdwhtXNDqDh4SVCl832BqGHdglRjLNRZ7pS6iV3WS3qVwtrbPuMPkgBQ8mKYrI6NquRh8OkoiM0x1MDL2S6d/ME5XlyIHfPDYSIPoyLdRlhJRITKAncpq/WaWkvNaoSuc6PQVgfstjTLx*hkxkN2dlOt4WSB3LWp*gNlSF2atOcCkeViiOXTXMx7gAJ0tCIOsk8gbCMLtqKGyNwN35y5vqYnA0zQmvBbXw823cH78WsLo7enJFk82*uXyYP9GGBV1Wq8h2gy4rToQmY8kOQNkRqM1925MFpNL2w4FZNGX7TQXD2K3YxwAf1L3HAdsJKJTPqUnpQb3kfjOtMqLw7wVA"
unaCadena = id_usuario & parametro
Put #2, 2, unaCadena ' ======> Y qui es donde me genera el error 59 'Longitud de registro incorrecta'
End Sub
No se si tenga que declarar mi variable de otro tipo , o sea la longitud que le estoy asignando a mi variable 'parametro'=808.
Si alguien puede apoyarme para encontrar la solucion o me puede decir en que estoy mal se lo voy agradecer.
Muchas Gracias!!
atte:Daisy.
Espero contar con su ayuda y poder resolver ese problemita q tengo .
El caso es que estoy manejando archivos aleatorios y necesito escribir y modificar registros, creo una estructura para almacenar mis datos en el archivo, pero tengo una variable de tipo STRIG, la cadena que almaceno en esta variable es muy larga, contiene una cantidad de 808 caracteres como maximo, el problema es que cuando intento almacenar mi variable me mara un error 59 'Longitud de registro incorrecta'
este es mi codigo
option explicit
Private Type estructura_huella
var_iduser As String * 5
var_parametro As String * 808
End Type
Dim es_user As estructura_huella
Private Sub Command1_Click()
Dim unaCadena As String * 813 'Almacena la cantidad total de informacion
'Dim id_usuario As String * 5
Dim parametro As String * 808
Open "parametros_user.dat" For Random As #2 Len = Len(es_user)
id_usuario="15"
parametro= "AQAAABQAAAAUAgAAAQASAAMAYgAAAAAADAIAAB6sk*6nUwkYOIhvRu5s9GP98qbjcjffh6DbMum12G8IVxnxifdKyRB/Zr8bvzX6pUqIHBLe2BFNsByDO1hO/owt1eOKHsQ*G5ttGTxhjJvWptretretERTERtETTEWRTWERTvOg05N3tZ3JTTNoxCDMNyvXRokHpT3DixYF0RQ5Dmya*ptAYuXKiVjl5WdL17TqmatOg*c0iXrmiwsTAkQ7JO6JKFLb2cVkXswh0XcQ1QrxVAARt1*ZX3QlJd3xlShRSMNStyJO4ISE1*Rwqt5MVIonbeWzXnlOd/SEvo7fUZjeYtBTwgQDAadr3rvwaZdwhtXNDqDh4SVCl832BqGHdglRjLNRZ7pS6iV3WS3qVwtrbPuMPkgBQ8mKYrI6NquRh8OkoiM0x1MDL2S6d/ME5XlyIHfPDYSIPoyLdRlhJRITKAncpq/WaWkvNaoSuc6PQVgfstjTLx*hkxkN2dlOt4WSB3LWp*gNlSF2atOcCkeViiOXTXMx7gAJ0tCIOsk8gbCMLtqKGyNwN35y5vqYnA0zQmvBbXw823cH78WsLo7enJFk82*uXyYP9GGBV1Wq8h2gy4rToQmY8kOQNkRqM1925MFpNL2w4FZNGX7TQXD2K3YxwAf1L3HAdsJKJTPqUnpQb3kfjOtMqLw7wVA"
unaCadena = id_usuario & parametro
Put #2, 2, unaCadena ' ======> Y qui es donde me genera el error 59 'Longitud de registro incorrecta'
End Sub
No se si tenga que declarar mi variable de otro tipo , o sea la longitud que le estoy asignando a mi variable 'parametro'=808.
Si alguien puede apoyarme para encontrar la solucion o me puede decir en que estoy mal se lo voy agradecer.
Muchas Gracias!!
atte:Daisy.
Valora esta pregunta


0